請問用代碼實作一打開一個excel檔案就讓你批量選擇需要匯入的xslx后綴名的檔案并創建一個新的excel檔案把這些選擇的檔案內容匯總，這些選擇的檔案格式是一樣的
uj5u.com熱心網友回復：
選檔案的話自己做個表單,將檔案名讀取到listbox,listbox做成checkbox模式供選擇;
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
MsgBox ListBox1.List(i)
End If
Next
End Sub
Private Sub UserForm_Initialize()
Dim fso As Object
Set fso = CreateObject("scripting.filesystemobject")
Dim objfolder As Object
Set objfolder = fso.getfolder("D:\我的檔案\檔案")
Dim objfile As Object
For Each objfile In objfolder.Files
If LCase(fso.getextensionname(objfile.Name)) = "xlsm" Then
ListBox1.AddItem objfile.Name
End If
Next
End Sub
運行示例:
下載地址:
鏈接：https://pan.baidu.com/s/1YcH7TfL0QKafBhwVcrvw8A
提取碼：kwka
實作的話你的要求太籠統,不過可以參考這個帖子:
請教：如何能把多個固定格式的EXCEL中部分內容提取到一張作業表中？
https://bbs.csdn.net/topics/392569858
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/33351.html
標籤：VBA