根据单元格打开指导工作簿并提取数据

Julian20113131

各位大神，请教一个工作簿打开问题。有一个文件夹，里面有一个汇总工作簿，2个（或多个）数据源工作簿。我在汇总工作簿中的汇总子表里，填写数据源工作簿名称，子表名称，数据区域（F6，F18），希望根据单元格中填写的工作簿名称打开工作簿，然后根据单元格填写的工作表和数据区域值把数据复制到汇总工作表。我已经在代码中设置单元格值赋值给字符串参数，可是还是无法打开工作簿并复制数据，有没有参考帖子或帮我指出以下问题出在哪里？望大神不吝赐教，谢谢。

caffish

代码已经提示这句话（Workbooks.Open "Path & wbname&".xls" & "*""）语法错了
首先，open的对象必须指明文件类型xlsx了，没有xls*这种文件类型，这个是用在dir查找文件夹的
其次，你这句话里引号打的有问题，你可以试试改成下面这个是不是能打开了？
Workbooks.Open Path & wbname &".xlsx"

附一段查找文件夹所有文件并批量打开的代码，供参考：

Myfolder = ThisWorkbook.Path & "\"
    MyFile = Dir(Myfolder & "\*.xls*")
    Do While MyFile <> ""
        Workbooks.Open Filename:=MyFolder & "\" & MyFile
        MyFile = Dir
    Loop

ykcbf1100

你想得太简单了。

Julian20113131

caffish 发表于 2023-6-8 09:45
代码已经提示这句话（Workbooks.Open "Path & wbname&".xls" & "*""）语法错了
首先，open的对象必须指明 ...

大神，感谢您的指导，已送上小红花。可以再问您一个问题吗？我写了个代码，在本文件夹下有汇总工作簿和另外2个（或多个工作簿），每个工作簿有多个子表。我写完代码，可以通过msgbox显示，实现：显示第1个工作簿名称，然后是第1个工作簿项下的每个子表名称；接着显示第2个工作簿名称，然后是第2个工作簿项下的每个子表名称。我想在显示时把工作簿和工作表名称写入汇总工作簿的汇总子表单元格，（后面用for循环）但是无法写入赋值，我看不出什么问题，显示下标越界，可否占用您宝贵时间指导一下。

Julian20113131

ykcbf1100 发表于 2023-6-8 10:19
你想得太简单了。

感谢大神，学习了，送上2个小红花，感谢

Julian20113131

找到这个，供大家学习，哈哈


https://club.excelhome.net/forum ... p;page=1#pid5245920

yynrzwh

这是AI写的吧