VBA 菜问题

来源:百度知道 编辑:UC知道 时间:2024/09/24 17:16:21
录制了一个简单的宏,在BOOK1这个工作簿中打车ASR这个工作簿,再把ASR这个SHEET复制到BOOK1里面的SHEET1前. 关闭ASR工作簿.
中间那一行,出错, 请指教.

Sub ASRTEST()
'
'

'
ChDir "C:\Documents and Settings\shuang11\Desktop"
Workbooks.Open Filename:="C:\Documents and Settings\shuang11\Desktop\ASR.xls"
Sheets("ASR").Select

Windows("ASR.xls").Activate
ActiveWorkbook.RunAutoMacros Which:=xlAutoClose

Sheets("ASR").Copy Before:=Workbooks("Book1").Sheets(1)

ActiveWindow.Close
End Sub
出错的是这一句:
Sheets("ASR").Copy Before:=Workbooks("Book1").Sheets(1)
上面的代码放错顺序了, 代码是:

Sub ASRTEST()
'
'

'
ChDir "C:\Documents and Settings\shuang11\Desktop"
Workbooks.Open Filename:="C:\Documents and Settings\shuang11\Desktop\

录制宏后,把它粘贴到vb中,需要注意的是像xlAutoClose之类的这种值是不认的。

你可在excel的宏中跟踪,把鼠标移到xlAutoClose,看看是什么数字,然后在vb中把该数字替换xlAutoClose即可。