调用已打开的工作簿

vleexhya · 发表于 2024-8-26 16:48

本帖最后由 vleexhya 于 2024-8-26 17:51 编辑

一般调用未打开的工作簿的数据代码如下：
Set wb = Workbooks.Open(ThisWorkbook.Path & "\数据源.xlsx")
With wb
……
End With
wb.Close

如果“数据源.xlsx"已经打开了，只是不是当前工作簿。
如果用with end with 对它进行数据读写？

谢谢各位老师的帮助！

chxw68 · 发表于 2024-8-26 17:42

Sub test()
With Workbooks("数据源.xlsx")
End With
End Sub

复制代码

vleexhya · 发表于 2024-8-26 17:51

chxw68 发表于 2024-8-26 17:42

哈哈，谢谢chxw68老师，之前看你的代码，with 确实简洁明了，结果打开的文件不知道怎么用，书本还是没系统看，用到哪求助到哪。

ykcbf1100 · 发表于 2024-8-26 19:40

set ws=ThisWorkbook
set wb= Workbooks.Open(ThisWorkbook.Path & "\数据源.xlsx", 0)
with wb.sheets(1)
'中间代码
end with

vleexhya · 发表于 2024-8-27 08:44

ykcbf1100 发表于 2024-8-26 19:40
set ws=ThisWorkbook
set wb= Workbooks.Open(ThisWorkbook.Path & "\数据源.xlsx", 0)
with wb.sheets(1 ...

多谢老师帮助！

		自动登录	找回密码
密码			免费注册

[已解决] 调用已打开的工作簿

评分