|
SO jetzt habe ich noch das Problem (auch nach etlichen Variationen und Versuchen, dass ich das Fenster, dass ich mit unten stehenden Code geöffnet habe, mit einer bestimmten Größe, an einer bestimmten Stelle am Bildschirm plazieren will.
Sub Buchhaltung(ByVal datei As String, ByVal dateiname As String)
Call Einzelschritt
Dim objShell As Object
Dim strPath As String
Dim objFolder As Object
Dim objWindows As Object
Set objShell = CreateObject("Shell.Application")
objShell.Open (datei)
Set objShell = Nothing
Set objFolder = Nothing
Set objWindows = Nothing
End Sub
Das Ziel soll sein, insgesamt eine Arbeitsumgebung am Bildschirm aufzurufen, da ich für die Buchhaltung verschiedene geöffnete Fenster benötige. Für die Excel Fenster hab ich es geschafft, aber bei den DateiExplorerfenstern bring ich es nicht hin.
Gruß
Andreas
|