Sub Ujian()
Malapkan myPath Sebagai String, Nama Saya Sebagai String
myPath = "C:Documents" 'Dapatkan Laluan
MyName = Dir(myPath) 'cari fail pertama
Jika Betul(Nama Saya, 4) = ".csv" Kemudian Buku Kerja.Buka Nama Fail:=myPath & MyName
Lakukan Sementara Nama Saya ""
Nama Saya = Dir 'cari seterusnya
Jika Betul(Nama Saya, 4) = ".csv" Kemudian Buku Kerja.Buka Nama Fail:=myPath & MyName
Gelung
Tamat Sub
Sub TarikhSimpan()
Application.DisplayAlerts = Palsu
ActiveWorkbook.SaveAs Nama Fail:= _
Buku Kerja Ini. Laluan & """ & Tarikh & ".xls", _
Format Fail:=xlBiasa, _
Kata Laluan:="", WriteResPassword:="", _
ReadOnlyRecommended:=Salah, _
CreateBackup:=False
Application.DisplayAlerts = Benar
Tamat Sub
Sila tukar "This Workbook.Path & """ & Date & ".xls", _" kepada ""d:" & Date & ".xls", _", dengan ""d:" " ialah perkara yang anda mahu simpan laluan.
Saya harap jawapan saya akan membantu anda.
Atas ialah kandungan terperinci Cara menggunakan pengaturcaraan VBA untuk menentukan laluan folder dan membuka fail yang sepadan dengan akhiran tertentu mengikut urutan. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!