|
本帖最后由 dukeyork 于 2015-6-10 10:39 编辑
本人刚开始学习excel中关于宏部分内容,设置了一个抽查表,但是录制宏之前的操作都没有问题,录制后执行时出现运行时错误`1004`:方法`run`作用于对象`_Application`时失败。
点调试后出现如下编码:
Sub Macro1()
'
' Macro1 Macro
'
'
Application.Run "ATPVBAEN.XLAM!Sample", ActiveSheet.Range("$A$2:$A$400"), _
ActiveSheet.Range("$A$5:$A$94"), "R", 90, False
ActiveWindow.SmallScroll Down:=-75
Range("B4:B94").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-87
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
求帮助{:soso_e154:}
|
|