Hallo liebe Gemeinde,
ich als Neuling habe diverse Foren durchsucht finde die Lösung für mein Problem nicht und hoffe auf eure Unterstützung:
Nachfolgender Code findet und öffnet die zuletzt abgelegte Datei in einem Ordner, dass klappt bisher auch ganz wunderbar.
Die gefundene XLSX startet also und ich kann die Zellen darin bearbeitetn.
Ich kann diese Datei jedoch nicht mehr schließen!
Also das X oben rechts funktioniert nicht, ebenso funktioniert die Menüleiste oben in Excel nicht. Ich kann diese XLSX auch nicht abspeichern oder sonstiges.
Ich komme also nicht mehr zurück zu meinem Programm.
Mein wunsch wäre es, dass ich die datei öffne, diese bearbeite und abspeichere, danach manuell schließe und wieder zurück zu meinem VBA-Tool komme (FSTOOLHAUPTFENSTER) habe ich sie genannt.
Private Sub Button_1_ReiterRohrs_Click()
Const strPath As String = "C:\Users\z0031u9c\Desktop\Test\"
Dim strFile As String, strFile2Open As String, dteFile As Date, dteLast As Date
strFile = Dir$(strPath & "*.xlsx")
If strFile <> "" Then
Do
dteFile = FileDateTime(strPath & strFile)
If dteFile > dteLast Then
strFile2Open = strFile
dteLast = dteFile
End If
strFile = Dir$
Loop Until strFile = ""
Workbooks.Open strPath & strFile2Open
Else
MsgBox "No matching file found"
End If
End Sub
|