|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
猜的- Sub aa()
- Dim ph$, wb As Workbook, k&, ar(), d As Object
- With Application.FileDialog(msoFileDialogFolderPicker)
- If .Show = -1 Then
- ph = .SelectedItems(1)
- Else
- Exit Sub
- End If
- End With
- With CreateObject("scripting.filesystemobject")
- For Each d In .getfolder(ph).Files
- Set wb = Workbooks.Open(d.Path)
- k = k + 1
- ReDim Preserve ar(1 To 2, 1 To k)
- ar(1, k) = wb.Worksheets(1).[b3]
- ar(2, k) = wb.Worksheets(1).[b5]
- wb.Close False
- Next
- End With
- ThisWorkbook.Sheets(1).[a3].Resize(UBound(ar, 2), UBound(ar)) = Application.Transpose(ar)
- Set wb = Nothing
- End Sub
复制代码 |
|