Readygo技术搜索引擎 网络搜索 efish 2008-1-17 7:16:39

急...（老板催着要）excel中生成的报表在vb窗体中的显示

楼主a_cai（阿彩）2003-06-30 18:45:47 在 VB / 多媒体 提问

我在excel里建好了报表模板，也可以生成相应的报表，但我想把它在窗体里显示出来，只要内容部分，excel的菜单部分最好能隐藏。该用什么控件，有代码吗。 问题点数：0、回复次数：2Top

1 楼a_cai（阿彩）回复于 2003-06-30 19:11:37 得分 0

为什么没有人回答呢，急死人了。  
  大家请多帮忙啊。Top

2 楼rainstormmaster（暴风雨 v2.0）回复于 2003-06-30 21:50:56 得分 0

用ADO访问excel的例子，参考一下：  
   
    Dim   adoConnection   As   New   ADODB.Connection    
          Dim   adoRecordset   As   New   ADODB.Recordset    
          "OLE   DB   +   ODBC   Driver   方式:    
          "adoConnection.Open   "Data   Provider=MSDASQL.1;driver=Microsoft   Excel   Driver   (*.xls);DBQ=e:\temp\book2.xls"    
          "Microsoft.Jet.OLEDB.4.0   方式,(建议)    
          adoConnection.Open   "Provider=Microsoft.Jet.OLEDB.4.0;Persist   Security   Info=False;Data   Source=e:\temp\book2.xls;Extended   Properties="Excel   8.0;HDR=Yes""    
             
          adoRecordset.Open   "select   *   from   ",   adoConnection,   adOpenKeyset,   adLockOptimistic    
          Debug.Print   adoRecordset.RecordCount    
          Dim   i   As   Integer    
          Do   Until   adoRecordset.EOF    
            For   i   =   0   To   adoRecordset.Fields.Count   -   1    
            Debug.Print   adoRecordset.Fields.Item(0).Name    
            Debug.Print   adoRecordset.Fields.Item(0).Value    
            Next   i    
            adoRecordset.MoveNext    
          Loop    
             
          "注:   OLE   DB   +   ODBC   Driver   方式不支持以下语句,但   Microsoft.Jet.OLEDB.4.0   方式支持!    
          adoConnection.Execute   "insert   into   (F1)   values(3)"    
          adoRecordset.AddNew   Array("f1",   "f2",   "f3",   "f4"),   Array(1,   2,   3,   4)    
  Top