Dim xlapp1 As Excel.Application Dim xlbook1 As Excel.Workbook Dim xlsheet1 As Excel.WorksheetPrivate Sub CommandButton1_Click() Set xlapp1 = CreateObject("Excel.Application")
Set xlbook1 = xlapp1.Workbooks.Open("d:\test1.xls")
Set xlsheet1 = xlbook1.Worksheets(1) End Sub Private Sub CommandButton2_Click() xlapp1.Quit Set xlapp1 = NothingEnd Sub
Dim xlbook1 As Excel.Workbook
Dim xlsheet1 As Excel.WorksheetPrivate Sub CommandButton1_Click()
Set xlapp1 = CreateObject("Excel.Application")
Set xlbook1 = xlapp1.Workbooks.Open("d:\test1.xls")
Set xlsheet1 = xlbook1.Worksheets(1)
End Sub
Private Sub CommandButton2_Click()
xlapp1.Quit
Set xlapp1 = NothingEnd Sub
是我的表达不清楚吗?抱歉,在说一遍吧:主要就是:我是说book1.打开状态,不去管它。现在打开book2.xls.要求打开后是隐藏状态。
试试看。