Hallo zusammen,
ich stehe vor folgendem Problem:
Ich möchte eine Excel-Datei im aktiven Excel-Fenster öffnen, d.h. wie wenn ich die Datei direkt über Excel mit der Öffnen-Maske aufrufen würde.
Mit meinem bisherigen Code öffnet sich die Excel-Datei in einem neuen Fenster:
Dim exApp As Excel.Application = New Excel.Application()
Dim exwb As Excel.Workbook
Dim exsh As Excel.Worksheet
Dim exrng As Excel.Range
With exApp
.Visible = True
exwb = .Workbooks.Open(docpfull)
exsh = exwb.Sheets(1)
exrng = exsh.Range("A1")
End With
In der Variable "docpfull " ist der Pfad der zu öffnenden Datei hinterlegt.
Ich hoffe Ihr könnt mir weiter helfen.