Excel aus Excel heraus öffnen
17.10.2006 14:29:26
Holger
wie ich aus Excel heraus eine Excel-Datei öffne weis ich. Wie schaffe ich es das diese Datei aber in einer zweiten Excel-Application geöffnet wird und nicht als neues Fenster erscheint ?
So mache ich es zur Zeit:
Dim strDateiName As String, MyShell As Object, StrPfad As String
Dim objword As Object
Set MyShell = CreateObject("WScript.Shell")
strDateiName = Chr(34) & "C:\Datei.xls" & Chr(34)
'On Error GoTo Fehler
MyShell.Run strDateiName
Set MyShell = Nothing
Cancel = True
Set objword = GetObject(, "Excel.Application")
Application.Wait (Now + TimeValue("0:00:05"))
objword.Sheets("Tabelle1").Cells(1, 1).Value = "Test"
Gruss
Holger Wächter