VBA编程中如何调用其他文件夹下工作簿里的数据

Posted 2023-04-11

现在用VBA（2010）编个简单的数据库，遇到一个问题，调用其他路径下某工作簿里的内容时报错。D:\Program Files路径下有三个文件夹，需要NTF文件夹里，“B车”工作簿里“主驾”sheet里的数据，程序代码如下：Public RootPath, FileName, WorkBookName, ResName as publicPublic i, a, x as LongPublic WS As WorksheetPrivate Sub CheckBox1_click() If CheckBox1 = Ture Then FileName = CheckBox1.Caption ‘NTF文件夹 WorkBookName = CheckBox2.Caption '工作簿：B车 ResName = OptionButton1.Caption 'B车工作簿里有三个表格，选取主驾 Set WS = Worksheets("\\D:\Program Files\" & FileName & "\[" & WorkBookName & "]主驾！) For i = 0 to 200 Step 1 Worksheets("绘图区").Cell(i+1, x).Value = WS.Cells(i+5, a).Value Next End IfEnd Sub

Dim wb As Workbook
Application.ScreenUpdating = False
Set wb = Workbooks.Open(要调用的工作薄的路径及名称）
‘路径及名称格式如下 ThisWorkbook.Path & "\Back.xlsx")
With wb.Sheets("表名 不是工作薄名").range(要调用的单元格）
对调用单无格的操作
End With
wb.Close 1
Application.ScreenUpdating = True追问

大神，程序行不通啊，帮我看看哪里有问题，多谢....



 参考技术A 一楼的老哥给你的是打开工作簿的框架，取数据的话，需要具体根据实际情况修改的。你贴的代码排版有点乱，如果还没解决，我可以帮你写个。VBA做这个最适合不过。

Excel多个文件合并到一个工作簿里

参考技术A

工具/原料

wps（excel）   电脑

方法/步骤

1、首先，打开excel软件。

2、进入界面，菜单栏点击“开始-智能工具箱”。

3、点击下方的“工作表”，点击“工作簿合并”。

4、弹出窗口，点击“添加文件”。

5、找到原有工作表文件路径并完成添加，点击“开始合并”。

6、合并完成，即可自动弹出合并后的工作表，点击三个点，即可查看工作表。