自动宏的问题

2019-05-10 10:00:59 199 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

PADS VX2.4 缝合孔（阵列过孔）的添加方法缝合孔的主要目的是：①：增加底层和顶层的地铜皮的连接性，②：起到屏蔽外界信号干扰的作用。铺完铜后，右击空区域选择“选择形状”命令，选取整板中的一块大铜皮，右击选择“覆铜区域内过孔阵列模式”→“沿周边”指令后，再右击选择“覆铜区域内过孔阵列”，便能看到已选区域内添加的缝合孔（过孔阵列），也可以通过铜皮显示或隐藏的无模命令:PO进行查看。完成上面的“防止错误”和“过孔样式”的设置后，开始对整板进行铺铜处理，点击“工具栏”→覆铜平面指示器，在弹出的对话框点击“开始”，便能观察铺铜后的板子。阅读详情

我想实现让EXCEL工作簿关闭时自动保存，而不需要用户手工“保存”按钮。
代码如下：
Option Explicit

Dim XlApp As New Excel.Application '使用 Excel 对象删除指定行
Dim XlBook As New Excel.Workbook
Dim XlSheet As New Excel.Worksheet

Private Sub Command1_Click()
XlApp.StatusBar = "四维实业公司人事报表"
End Sub

Private Sub Command2_Click()
'XlBook.Save
XlApp.ThisWorkbook.Save

XlApp.Visible = False
End Sub

Private Sub Form_Load()
Set XlApp = CreateObject("Excel.Application") '创建EXCEL对象
XlApp.Visible = True

Set XlBook = XlApp.Workbooks.Open(App.Path & "\8-1 自动宏.xlsm")
Set XlSheet = XlBook.Worksheets(1)
End Sub