要用代码改,参考这里
http://www.foxtable.com/help/topics/2626.htm
如果要直接预览,参考这里
Dim App As New MSExcel.ApplicationDim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)App.Visible = TrueWs.PrintPreviewApp.Quit