![](/img/trans.png)
[英]Why do I get a runtime error 424 when trying to set a word doc from an excel worksheet
[英]Why go I get error 1004 when calling a macro from Word doc, but not from Excel?
在Word文件中,我有一个宏,可以打开Excel文件并在该文件中调用宏。 (我正在使用VBA。)这是Word中的简单代码:
Set oExcelApp = CreateObject("Excel.Application")
Set oWorkbook = oExcelApp.workbooks.Open("C:\Documents and Settings\Eddy\Mina dokument\Insajt\Arbeten\Prido\Affärssystem\www\modules\mod_order\eco.xls")
oExcelApp.Visible = True
oExcelApp.Run "'ECO.xls'!Ritning"
将打开Excel文件并运行宏,但是随后出现错误提示(从瑞典语翻译为)。
无法为类PageSetup输入运行时错误'1004'PrintArea属性
如果选择“调试”模式,则此行将突出显示:
.PrintArea = "$A$1:$O$49;$Q$1:$AE$49;$Q$50:$AE$97;$AG$50:$AU$97"
代码的整个部分是这样的:
If Sheets("Beräkningar").Cells(6, 2) = "4V" Then
With Sheets("Ritn").PageSetup
.PrintArea = "$A$1:$O$49;$Q$1:$AE$49;$Q$50:$AE$97;$AG$50:$AU$97"
.Zoom = 85
End With
Sheets("Ritn").PrintOut
End If
现在到了真正奇怪的事情。 如果我中止Excel文件中对宏的调用,而只是手动调用同一个宏,则它就像一个超级按钮一样起作用。 同样,如果我手动打开Excel文件并启动宏,则一切正常。
尝试使用逗号分隔列表而不是分号
.PrintArea = "$A$1:$O$49,$Q$1:$AE$49,$Q$50:$AE$97,$AG$50:$AU$97"
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.