作者：乔山办公网日期：
返回目录：excel表格制作
直接VBA就能完成，为毛一定要扯上VBS？
是可以实现的，我传点例子代码给百你。度
例子代码是VBA写的，不要急着生气，这些VBA代码很容易移植为知VBS，里面打开EXCEL文件要使用CreateObject（启动一道个EXCEL进程），然后调用新建对专象的打开文件，最后关闭对象结束进程，这样的例子属代码百度很多。
代码如下zd，注意代码的位置（详见截图内）
Private Sub Worksheet_Activate()
Application.OnKey "~", "Copy4To500"
'Application.OnKey "{ENTER}", "Copy4To500" '小键容盘回车键
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "~"
'Application.OnKey "{ENTER}"
End Sub
Sub Copy4To500()
Rows("4:500").Copy Sheet2.Range("A4")
ThisWorkbook.Save
End Sub
可以这样实施，你写好你的代码，然后在 ThisWorkbook 中写下面的语句调用写好的程序代码就可以直接执行了 将整个程zhidao序模块写好了保存为VBA加载内宏， 使用定时软件定时运行这个加载宏就可以执行你的程序了 但EXCEL要设置为启用所有宏 即不对宏代码进行拦截 否则不能自动执容行 如果还不明白可以问我
Private Sub Workbook_Open()
Application.ScreenUpdating = False '关闭屏幕更新
On Error Resume Next
写好的程序代码名
Application.ScreenUpdating = True
End Sub