1、打开EXCEL，建立一个空白页（有则不需要建立），将空白页另存为：文件名“包材”，保存类型选择“EXCEL 97-2003 加载宏（*.xla）”
2、按组合键ALT+F11，就是ALT和F11同时按下，进入VBA界面
3、在左上角找到“工程-VBAProject”窗口(没找到，按组合键CTRL+R会出现)，在窗口中用鼠标双击VBAProject（包材.xls）下的ThisWorkbook
4、在右边出现的大框找到（通用）下拉条，选择Workbook。这时就会自动弹出一个Private Sub Workbook_Open()End Sub代码就添加在这个Workbook_Open宏中间
