VBA获取多工作簿固定单元格内容

jindenglin

请大侠帮忙看看附件中的数据源，如何使用VBA获取固定单元格数据。需求：会新增工作簿、获取第三行款号对应第五行金额。

ww87725244

这附件和模拟得结果似乎不搭边啊

ww87725244

猜的

1. Sub aa()
   
2. Dim ph$, wb As Workbook, k&, ar(), d As Object
   
3. With Application.FileDialog(msoFileDialogFolderPicker)
   
4.     If .Show = -1 Then
   
5.         ph = .SelectedItems(1)
   
6.     Else
   
7.         Exit Sub
   
8.     End If
   
9. End With
   
10. With CreateObject("scripting.filesystemobject")
    
11.     For Each d In .getfolder(ph).Files
    
12.         Set wb = Workbooks.Open(d.Path)
    
13.         k = k + 1
    
14.         ReDim Preserve ar(1 To 2, 1 To k)
    
15.         ar(1, k) = wb.Worksheets(1).[b3]
    
16.         ar(2, k) = wb.Worksheets(1).[b5]
    
17.         wb.Close False
    
18.     Next
    
19. End With
    
20. ThisWorkbook.Sheets(1).[a3].Resize(UBound(ar, 2), UBound(ar)) = Application.Transpose(ar)
    
21. Set wb = Nothing
    
22. End Sub

复制代码

jindenglin

ww87725244 发表于 2019-3-14 19:30
猜的

出现这个是什么问题啊，是扩展名问题吗？

jiminyanyan

jindenglin 发表于 2019-3-15 13:56
出现这个是什么问题啊，是扩展名问题吗？

汇总表要放在文件夹外面。。。

jindenglin

jiminyanyan 发表于 2019-3-15 19:18
汇总表要放在文件夹外面。。。

非常感谢，目前获取的数据只有b3 b5.后面i3 i5如果也有数据也要获取出来。

jindenglin

jiminyanyan 发表于 2019-3-15 19:18
汇总表要放在文件夹外面。。。

大侠可以帮忙附件这个数据看看吗？一个工作簿里面有多个款号。