7,785
社区成员




Option Explicit
Dim XlApp As Excel.Application '使用 Excel 对象删除指定行
Dim XlBook As Excel.Workbook
Dim XlSheet As Excel.Worksheet
Private Sub Command1_Click()
XlApp.StatusBar = "四维实业公司人事报表"
End Sub
Private Sub Command2_Click()
XlBook.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
Private Sub Form_Unload(Cancel As Integer)
XlApp.Quit
End Sub
Option Explicit
Dim XlApp As New Excel.Application '使用 Excel 对象删除指定行
Dim XlBook As New Excel.Workbook
Dim XlSheet As New Excel.Worksheet
dim fso as object
Private Sub Command1_Click()
XlApp.StatusBar = "四维实业公司人事报表"
End Sub
Private Sub Command2_Click()
fso.delete xlbook.fullname,true
XlBook.Save
'XlApp.ThisWorkbook.Save
XlApp.Visible = False
End Sub
Private Sub Form_Load()
set fso = createobject("scripting.filesystemobject")
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