大家知道用vb如何直接调用excel预览吗 ？

Question

我用vb制作了个报表输出，是用excel输出的，我想直接调用excel预览界面，即使关闭excel预览界面也不出现excel主界面，能实现吗？

Answer 1

ppExcel.ScreenUpdating   =   False   
  就可以不显示sheet1的内容，直接预览。

Answer 2

http://www.csdn.net/expert/topic/440/440871.shtm   
    
  主　　题：快来啊..我是老山.....vb   和excel的问题.............关于预览的......帮忙啊.....   
  作　　者：lzy5042   
  所属论坛：Visual   Basic   
  问题点数：50   
  回复次数：18   
  发表时间：2001-12-25   12:48:03   
      
        
      Dim   xlbook   As   New   Excel.Workbook   
          Dim   xlsheet   As   New   Excel.Worksheet   
          Dim   xlapp   As   Excel.Application   
          Set   xlapp   =   New   Excel.Application   
    
          xlapp.Visible   =   True   
    
          Set   xlbook   =   xlapp.Workbooks.Open(App.path   +   "\report1.xls")   
          Set   xlsheet   =   xlbook.Worksheets("sheet1")   
          xlsheet.PrintPreview   
    
  怎么能够做到不出现excel的sheet1的内容.直接出现excel的预览呢???   
  这断代码每次都要出现sheet的内容....然后才出现预览....   
  紧急!!!!!!!!!!!!!11111   
      
    
    
  回复贴子：     
  回复人：　dbcontrols(aa)　(2001-12-25   12:53:26)     得5分     
  这个我会.却...       
  回复人：　lzy5042(老山)　(2001-12-25   12:53:50)     得0分     
  快来啊       
  回复人：　sky100(大海边的沙滩上捡贝壳的孩子)　(2001-12-25   12:54:11)     得5分     
  先让xlapp.visible=false,在xlsheet.PrintPreview之后再让xlapp.Visible   =   True   
  试试。   
  只是建议，我机器上没装office,回头我再测试一下。   
      
  回复人：　lzy5042(老山)　(2001-12-25   12:54:40)     得0分     
  呵呵......       
  回复人：　dbcontrols(aa)　(2001-12-25   12:57:13)     得0分     
  你好象骂过我.对吧?       
  回复人：　lzy5042(老山)　(2001-12-25   12:58:11)     得0分     
  sky100(大海边的沙滩上捡贝壳的孩子):   
  呵呵..不行啊       
  回复人：　fraser01(王晓栋)　(2001-12-25   13:05:21)     得30分     
  直接预览用sheets.printout   
  可查看对象浏览器，找到关于SHEETS的各种属性和方法   
    
  aa:别，人家骂你是关心你，不要把关心当作骂，他不骂怎么知道他在关心你？   
              他不关心你怎么会骂你？喔弥陀佛！！！！       
  回复人：　lzy5042(老山)　(2001-12-25   13:14:34)     得0分     
  fraser01(王晓栋):   
  不好用啊....   
  这次直接到了sheet里面了...   
  我想要的是直接预览啊...　       
  回复人：　yangzhaoyu(老妖)　(2001-12-25   13:27:03)     得5分     
  我试试看       
  回复人：　fraser01(王晓栋)　(2001-12-25   13:29:35)     得0分     
  你不能把Sheet的visable=False？保证可以   
  我做过的。       
  回复人：　baoxiang(包香)　(2001-12-25   13:29:46)     得0分     
  我这里只有ACCESS的东西，我想法试试       
  回复人：　lzy5042(老山)　(2001-12-25   13:33:20)     得0分     
  我在试试   
  谢谢各位捧场       
  回复人：　gase(浪花)　(2001-12-25   13:36:47)     得5分     
  Dim   xlbook   As   New   Excel.Workbook   
          Dim   xlsheet   As   New   Excel.Worksheet   
          Dim   xlapp   As   Excel.Application   
          Set   xlapp   =   New   Excel.Application   
          Set   xlbook   =   xlapp.Workbooks.Open(App.path   +   "\report1.xls")   
          Set   xlsheet   =   xlbook.Worksheets("sheet1")   
    
          xlsheet.PrintPreview   
          xlapp.Visible   =   True   
  '难道这样不行吗？   
      
  回复人：　lzy5042(老山)　(2001-12-25   13:41:46)     得0分     
  死机.       
  回复人：　lzy5042(老山)　(2001-12-25   13:46:30)     得0分     
  又没有谁试过了???       
  回复人：　fraser01(王晓栋)　(2001-12-25   13:57:33)     得0分     
  我那可怜的老山啊！别这样死机啊！快来人啊！了不得了，老山死机了！   
  小弟，献上活机化淤代码一段，预知后事如何，各位老山，请留下MAIL：   
  Set   AppExcel   =   CreateObject("Excel.Application")   
  Screen.MousePointer   =   11   
  DataUpdate.Caption   =   DataUpdate.Caption   &   "。。"   
  OpenExcelFileName   =   OpenExcelFileName   &   FileName.FileName   
  AppExcel.Workbooks.Open   FileName:=OpenExcelFileName   
  DataUpdate.Caption   =   DataUpdate.Caption   &   "。。"   
  AppExcel.Caption   =   "Open   Filename:"   &   OpenExcelFileName   
  DataUpdate.Visible   =   False   
  DataUpdate.Caption   =   "数据装载中"   
  Screen.MousePointer   =   0   
  AppExcel.Visible   =   True   
  'Exceltest.SetFocus   
  '实现直接打印方式   
  'PrintOut   开始页，结束页，打印份数，是否预览   
  AppExcel.Worksheets.PrintOut   1,   1000,   1,   1   
  'AppExcel.Visible   =   False   
  AppExcel.Quit   
  Set   AppExcel   =   Nothing

Answer 3

hello!aspower!
我按你的方法试了，是不出sheet的内容，可是当关闭excel预览界面仍然还有excel主界面，我想只调用excel预览，没有其他多余的界面，麻烦仁兄了！

Answer 4

Private Sub Form_Load()
Dim xlapp As New Excel.Application
Dim xlbook As New Excel.Workbook
Dim xlsheet As New Excel.Worksheet
Set xlbook = xlapp.Workbooks.Add
Set xlsheet = xlbook.Worksheets("sheet1")xlsheet.Cells(1, 1) = "col1"
xlsheet.Cells(1, 2) = "col2"
xlsheet.Cells(1, 3) = "col3"xlapp.Visible = True
xlsheet.PrintPreview
xlbook.Close (False)
xlapp.Quit
Set xlsheet = Nothing
Set xlbook = Nothing
Set xlapp = Nothing
End Sub

Answer 5

hello !faysky2!
        厉害！牛！小弟佩服！我是新手，顺便问一下怎么给你们发分呀？