可是,为什么,下面的代码:
Dim xlApp As Excel.Application
Dim strDestination As String
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Private Sub Command1_Click()
Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
strDestination = App.Path + "\book.xls"
Set xlbook = xlApp.Workbooks.Open(strDestination, , False)
Set xlsheet = xlbook.Worksheets("sheet3")
xlbook.Worksheets("sheet3").Select
xlbook.PrintPreview
xlbook.Save
End Sub