修改Acad VBA项目中的XLS文件

Kheilmann · 发表于 2006-6-13 17:59:48

我有一个旧的xls文件(模板)和一个刚刚更新的新文件。更新是如此极端，以至于我试图将旧数据自动更新到新表中。我已经映射了旧工作表中的哪些单元格与新工作表中的单元格相匹配。然而，似乎没有什么工作(至于阅读复制旧数据和粘贴到新的工作表)。
我想我需要知道的是如何从一个打开的Excel应用程序切换到另一个。工作表没有在同一个Excel实例中打开。
下面是我所做的一些事情....(原谅这些错误..这只是一个快速参考)
Set obj app = Create EXcel . application
Set obj wsht = obj app . workbooks . open(" FileName ")
如果objwsht.cells(200，1) = "YES "，则'单元格A200是一个标志，用于确定哪些工作表已经更新
Set obj wsht 2 = obj wsht
Set obj wsht = Nothing
Set obj wsht = obj app . workbooks . open(" new template ")
end If
一个用旧床单，一个用新床单。
旧模板包含我的所有数据，我想复制这些数据并粘贴到新模板中...
当我在Excel中记录宏时，它显示如下..
Windows("OldFile.xls ")。激活Cutcopypaste = false范围(“金属制品”)。复制
Windows("NewTemplate.xls ")。激活
范围(“金属制品”)。粘贴
窗口(" filename.xls ")。激活会在ACAD VBA中生成一个错误..
“未定义函数”

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Atook · 发表于 2006-6-13 18:38:25

Excel VBA模型与您需要添加到Acad VBA项目中的Excel引用不同...
尝试在调用前抛出
ObjApp
...
=============================
ObjApp.Windows（"OldFile.xls"）。激活
ObjApp.Cutcopypaste=False'
ObjApp.Range（"MetalWork"）。复制
ObjApp.Windows（"NewTemplate.xls"）。激活
ObjApp.Range（"MetalWork"）。粘贴
=============================
我还没有浏览过它，但我想那是你的问题

修改Acad VBA项目中的XLS文件

发表回复

精选推荐