Private
Declare
PtrSafe
Function
SetFocus
Lib
"user32.dll"
(
ByVal
hwnd
As
LongPtr)
As
LongPtr
Public
Declare
PtrSafe
Sub
Sleep
Lib
"kernel32"
(
ByVal
Milliseconds
As
LongPtr)
Sub
ExcelAnzeigen()
ExtDateipfad =
"D:\Daten\Entwicklung\Tests\Test.xlsm"
Tabellenname =
"Tabelle1"
On
Error
Resume
Next
Set
ExcApp = CreateObject(
"Excel.Application"
)
On
Error
GoTo
0
wdhwnd = Application.ActiveWindow.hwnd
Set
excwb2 = ExcApp.Workbooks.Open(ExtDateipfad)
Set
ExcWs2 = excwb2.Sheets(Tabellenname)
excwb2.Activate
ExcApp.Visible =
True
ExcApp.WindowState = -4137
ExcWs2.Activate
ExcWs2.Visible =
True
ExcWs2.Cells(ExcWs2.Cells(ExcWs2.Rows.Count, 1).
End
(-4162).Row, 1).
Select
Set
rng = ExcApp.Selection
Do
DoEvents
Loop
Until
ExcApp.Selection.Address <> rng.Address
Debug.Print ExcApp.Selection.Address
Debug.Print rng.Address
SetFocus wdhwnd
Sleep 200
With
excwb2
.Saved =
True
.Close
End
With
ExcApp.Quit
Set
excwb2 =
Nothing
End
Sub