好久不用VBA了，这么简单的问题，我居然绕不出来！

danhanqing · 发表于 2023-3-29 14:57

Sub 更新数据()
Application.ScreenUpdating = False
目标表 = ThisWorkbook.Path & "\MS-C-PB-001：标准作业指导书.xlsm"
数据源 = ThisWorkbook.Path & "\MS-B-YW-003：生产制造通知单.xlsx"
MsgBox 数据源
目标表.Sheets("开料").Range("K9:K19").Copy 数据源.Sheets("生产制造通知单").Range("E9:E19") //出错在这一行
数据源.Close False
Application.ScreenUpdating = True
End Sub

ZHLK · 发表于 2023-3-29 15:40

你文件不同打开就操作表格，当做出错了

ykcbf1100 · 发表于 2023-3-29 15:49

一、二个文件要同时打开，二、数据源.Close False这句也错了吧，应该是数据源.Close true；三、如果想不打开数据源文件，则代码不是这样写的。
最好是上传附件，那样解决问题更快。

zhenghui13 · 发表于 2023-3-29 16:16

是不是把数据源读入arr会比较好一些；

ivccav · 发表于 2023-3-29 18:32

目标表和数据源这2个变量都是字符串，怎么能代表工作簿？

至少也得workbooks.open一下吧。

zjzyj · 发表于 2023-3-29 19:19

workbooks(目标表).Sheets("开料").Range("K9:K19").Copy workbooks(数据源).Sheets("生产制造通知单").Range("E9:E19")

danhanqing · 发表于 2023-3-29 20:10

本帖最后由 danhanqing 于 2023-3-29 20:13 编辑

ykcbf1100 发表于 2023-3-29 15:49
一、二个文件要同时打开，二、数据源.Close False这句也错了吧，应该是数据源.Close true；三、如果想不打 ...

可能是我没有表达清楚：
日常操作的是目标文件，打开目标文件时，从同目录下的数据源文件指定工作表中复制内容到目标文件指定的区域中。最好是不打开数据源文件。

gwjkkkkk · 发表于 2023-3-29 20:38

应该文件没打开吧，建议上传附件。。。

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

[求助] 好久不用VBA了，这么简单的问题，我居然绕不出来！