Cara menggunakan pengaturcaraan VBA untuk menentukan laluan folder dan membuka fail yang sepadan dengan akhiran tertentu mengikut urutan

Cara menulis laluan folder tertentu dalam pengaturcaraan VBA dan membuka fail yang memenuhi keperluan akhiran dalam urutan

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

Maafkan saya, pakar, bagaimana untuk memilih laluan fail dan nama fail di mana kawalan untuk dimasukkan ke dalam VBA

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!