So verwenden Sie die VBA-Programmierung, um einen Ordnerpfad anzugeben und Dateien mit einem bestimmten Suffix der Reihe nach zu öffnen

So schreiben Sie einen angegebenen Ordnerpfad in der VBA-Programmierung und öffnen nacheinander Dateien, die die Suffixanforderungen erfüllen

Untertest()

Dim myPath As String, MyName As String

myPath = "C:Documents" 'Pfad abrufen

MyName = Dir(myPath) 'finde die erste Datei

Wenn Right(MyName, 4) = „.csv“ Then Workbooks.Open Filename:=myPath & MyName

Do While MyName ＂＂

MyName = Dir 'find next

Wenn Right(MyName, 4) = „.csv“ Then Workbooks.Open Filename:=myPath & MyName

Schleife

End Sub

Entschuldigung, Experten, wie wählt man den Dateipfad und den Dateinamen aus, in das das Steuerelement in VBA eingefügt werden soll?

Sub DateSave()

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Dateiname:= _

ThisWorkbook.Path & "＂" & Date & ".xls＂, _

FileFormat:=xlNormal, _

Password:=＂＂, WriteResPassword:=＂＂, _

ReadOnlyRecommended:=False, _

CreateBackup:=False

Application.DisplayAlerts = True

End Sub

Bitte ändern Sie „ThisWorkbook.Path & „＂“ & Date & „.xls“, _“ in „“d:＂ & Date & „.xls“, _“, wobei „d:“ das ist, was Sie möchten Pfad speichern.

Ich hoffe, meine Antwort wird Ihnen hilfreich sein.

Das obige ist der detaillierte Inhalt vonSo verwenden Sie die VBA-Programmierung, um einen Ordnerpfad anzugeben und Dateien mit einem bestimmten Suffix der Reihe nach zu öffnen. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!