Hallo,
ich versuche von einer Tabelle "x" eine andere Exceltabelle zu öffnen. Mit dem folgendem Code;
Sub musterlog()
Dim appExcel As Object
Dim sWorkbook As Object
Dim sPfad As String
Dim sFile As String
Dim strWorkbook As String
sPfad = ActiveWorkbook.Path
sFile = "musterdatei.XLS"
strWorkbook = sPfad & "\" & sFile
'ExcelObject erstellen
Set appExcel = CreateObject("Excel.Application")
'datei öffnen
appExcel.Workbooks.Open strWorkbook
'Datei anzeigen
appExcel.Visible = True
'jeweiliges Blatt öffnen
appExcel.Sheets("Tabelle1").Activate
Set appExcel = Nothing
End Sub
die Tabelle und das gewählte Blatt werden zwar geöffnet aber trotzdem ist die Tabelle "x" aktiv und wird angezeigt aber nicht die "musterdatei.xls"
Das selbe passiert auch wenn ich eine Worddatei öffne;
Die Worddatei wird zwar geöffnet aber nicht angezeigt, trotz visible=true
vielleicht kann jemand helfen, wäre super..
|