返回目录：excel表格制作
让Excel工作簿中宏自动运行的方法步骤如下：
1、启动Excel并打开包含宏的工作表，在“开发工具”选项卡百的“代码”组中单击“宏”按钮，打开“宏”对话框，单击“编辑”按钮打开VBA编辑器窗口，如图1所示。在代码窗口中将度原有的过程名更改为"Auto_Open"，如图2所示。切换到Excel窗口，再次打开“宏”对话框，可以看到宏的名称已经改变，如图3所示。保存该文档，当再次打开该文档时，宏将自动运行。
图1 单击专“编辑”按钮
图2 修改过程名
图3 宏名称发生改变
2、在“开发工具”选项卡的“代码”组中单击"Visual Basic"按钮打开VBA编辑器，在工程资源管理器窗口中双击"Sheet1(Sheet1)"选项，如图4所示。在打开的代码窗口的“对象”下拉列表中选择"Worksheet"选项，在“事件属”下拉列表中选择"Activate"选项，在Activate事件代码中添加宏过程名，如图5所示。保存文档，这样当工作表被激活时宏将自动执行。
图4 双击
图5 选择对象和事件并输入代码
VBS打开Excel常见方法
dim oExcel,oWb,oSheet
Set oExcel= CreateObject("Excel.Application")
Set oWb = oExcel.Workbooks.Open("E:\其他\新装知电话表道.xls")
Set oSheet = oWb.Sheets("Sheet1")
MsgBox oSheet.Range("B2").Value '#提取单元格B2内容
'.....如果是XP系统，可以回使用如下代码 ：答
Dim objFileDlg
Set objFileDlg = CreateObject("UserAccounts.CommonDialog")
objFileDlg.Filter = "Excel File (*.xls) |*.xls"
If objFileDlg.ShowOpen Then
msgbox "您选择的文件是：" & objFileDlg.FileName & vbCrLf
End If
哈哈，真是舍近求远啊，vba不比vbs功能强大，vba里可以进行界面编程，看来你还在录制宏的阶段
点击“工具→宏→宏”
或
ALT+F8