863
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private oExcelApp As Object '//声明为object
Private oWorkBook As Object
Private oWorkSheet As Object
Private Sub Delete_Click()
Set oWorkSheet = oWorkBook.Worksheets(1)
oWorkSheet.Delete
End Sub
Private Sub Form_Load()
Set oExcelApp = CreateObject("Excel.Application") '//根据progid创建对象
Set oWorkBook = oExcelApp.Workbooks.Open("D:\gooore.xls")
oExcelApp.Visible = True
End Sub