VBA录制宏的代码自动在模块中,可执行;但放入SHEET里的按钮代码,提示错误.
为什么呢?
Private Sub CommandButton1_Click()
' Macro1 Macro
' 宏由 5130010362 录制,时间: 2008-11-14
'
Dim m As Integerm = 4
'
Windows("IMAPS盘点-汇总5.xls").Activate
' Range("F4:H4").Select
Sheet1.Range(Cells(m, 6), Cells(m, 8)).Select Selection.Copy
Windows("新建 Microsoft Excel Worksheet.xls").Activate
Range(Cells(1, 1), Cells(1, 3)).Select
ActiveSheet.Paste
End Sub
以上这代码执行,提示"运行时错误'1004',类range的select方法无效"
请给小女子帮助,感激不尽!!!
为什么呢?
Private Sub CommandButton1_Click()
' Macro1 Macro
' 宏由 5130010362 录制,时间: 2008-11-14
'
Dim m As Integerm = 4
'
Windows("IMAPS盘点-汇总5.xls").Activate
' Range("F4:H4").Select
Sheet1.Range(Cells(m, 6), Cells(m, 8)).Select Selection.Copy
Windows("新建 Microsoft Excel Worksheet.xls").Activate
Range(Cells(1, 1), Cells(1, 3)).Select
ActiveSheet.Paste
End Sub
以上这代码执行,提示"运行时错误'1004',类range的select方法无效"
请给小女子帮助,感激不尽!!!
("IMAPS盘点-汇总5.xls")
("新建 Microsoft Excel Worksheet.xls")有没有啊。
Range(Cells(1, 1), Cells(1, 3)).Select 里单元格前需要是定SHEET.
那样就OK了。