String merken, auch nachdem Excel geschlossen wurd
15.05.2008 08:11:00
Peter
Mit nachfolgendem Makro (im PERSONL abgelegt) drucke ich mir alle *.xls Dateien eines Ordners aus. Nun möchte ich den Code so erweitern, dass bei erneutem Aufruf (auch wenn Excel in der Zwischenzeit geschlossen wurde) beim FileDialog der zuletzt aufgerufte Pfad vorgeschlagen wird.
Muss ich mir den String von strPath in einer Zelle von PERSONL abspeichern oder gibt es eine elegantere Möglichkeit?
Gruss, Peter
Sub AlleDrucken()
Dim WB As Workbook
Dim strPath As String
Dim strFName As String
Dim oFS As Object, oFolder As Object, oFile As Object
Dim strFolder As String
Dim WKB As Workbook
With Application.FileDialog(4)
.InitialFileName = "H:\"
.InitialView = 2
.Title = "Bitte einen Ordner wählen"
If .Show = -1 Then
strPath = .SelectedItems(1)
Else
Exit Sub
End If
End With
strPath = strPath & "\"
strFName = Dir(strPath & "*.xls")
While strFName ""
Set WB = Workbooks.Open(Filename:=strPath & strFName)
WB.PrintOut
WB.Close
strFName = Dir()
Wend
End Sub