Rumah >Tutorial perisian >Perisian Pejabat >Jumlah batch berbilang fail excel
Gelung dengan mudah semua fail Excel dalam folder menggunakan VBA. Di bawah ialah kod sampel, anda hanya perlu menentukan masalah, seperti sel mana yang anda mahu jumlahkan, dan kemudian saya akan menambah tempat yang sepadan dalam kod. ``` SubTraverseFiles() Malapkan FolderPath Sebagai Rentetan Malapkan Nama Fail Sebagai Rentetan Malapkan wb Sebagai Buku Kerja Malapkan ws Sebagai Lembaran Kerja Dim rng Sebagai Julat 'Tetapkan laluan folder FolderPath = "****" 'Gelung semua fail dalam folder Nama Fail = Dir(FolderPath & "*.xlsx") Lakukan Semasa Nama Fail "" 'Buka fail Excel Set wb = Workbooks.Open(FolderPath & ""
Sub CombineAll()
Untuk membantu pemain menyelesaikan teka-teki, mari kita belajar tentang kaedah khusus untuk menyelesaikan teka-teki. Untuk memudahkan operasi, kami perlu mengisytiharkan beberapa pembolehubah, seperti "Dim MyPath, MyName, AWbName", dan kami juga memerlukan pembolehubah "Num" untuk menyimpan nombor tersebut. Seterusnya kami akan memperkenalkan langkah-langkah menyelesaikan teka-teki secara terperinci.
Untuk membantu pemain yang belum menyelesaikan tahap, mari kita belajar tentang kaedah penyelesaian teka-teki khusus. Semasa proses penyelesaian teka-teki, kami boleh menggunakan kod berikut untuk membantu kami menyelesaikan tugas: Dim i As Byte Malap j Sebagai Bait Kod ini boleh membantu kami menentukan dua pembolehubah, i dan j, sebagai alat bantu untuk kami menyelesaikan teka-teki. Dengan menggunakan kedua-dua pembolehubah ini secara fleksibel, kita boleh lebih memahami dan menyelesaikan teka-teki.
Application.ScreenUpdating = Palsu
MyPath = ActiveWorkbook.PathMyName = Dir(MyPath & """ & "*.xls"")AWbName = ActiveWorkbook.Name
Bilangan = 0
Do While MyName "" Jika MyName AWbName Then Application.Workbooks.Open (MyPath & "" & My Name) ********************** Workbooks (My Name ).Tutup False Num = Num + 1 End If MyName = Dir Loop
Application.ScreenUpdating = Benar
MsgBox "Digabungkan sepenuhnya" & Num & "Buku kerja dalam folder semasa.", vbInformation, "Maklumat"
Tamat Sub
Cara terpantas untuk menggabungkan berbilang lembaran kerja menjadi satu ialah menggunakan pemprosesan makro:
Sebagai contoh, gabungkan berbilang jadual ke dalam jadual keseluruhan:
Jumlah jadual hanya mempunyai satu tajuk
Klik kanan tab Lembaran Kerja Ringkasan, lihat kod, salin kod berikut ke dalamnya, dan jalankan F5:
Sub lembaran kerja cantum()
Untuk Setiap st Dalam Lembaran Kerja
Jika st.Name ActiveSheet.Name Kemudian st.UsedRange.Offset(1, 0).Salin [a65536].End(xlUp).Offset(1, 0)
Seterusnya
Tamat Sub
Ia akan menggabungkan berbilang jadual ke dalam jadual induk,
Contoh berikut: Jalankan kod di atas dalam Jumlah Helaian, dan semua sub-jadual bulanan akan diringkaskan untuk memudahkan pemprosesan berikutnya tanpa perlu menampalnya berulang kali
Atas ialah kandungan terperinci Jumlah batch berbilang fail excel. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!