ç¼åä¸ä¸ªVBAæ¥å®ç°ã
ä¾ï¼
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
fd.Show
s = fd.SelectedItems(1)
Set f = fs.GetFolder(s)
Set fc = f.Files
For Each f1 In fc
Range("U4") = Range("U4") + Workbooks(2).Sheets("DailyReport").Cells(3, 7)
Next
温馨提示:答案为网友推荐,仅供参考