pb中调excel的宏

Range("A1").Select  
          With   ActiveSheet.QueryTables.Add(Connection:=   _  
                  "ODBC;DSN=hdqt;SRVR=hdqt_db;UID=DBUSRHQ;PWD=futurehq",         Destination:=Range(   _  
                  "A1"))  
                  .CommandText   =   Array(   _  
                  "SELECT   BANK_CARDZY.CDZCODE,   BANK_CARDZY.CDZNAME,   BANK_CARDZY.CDZMEMO,   BANK_CARDZY.CDZFLAG"   &   Chr(13)   &   ""   &   Chr(10)   &   "FROM   DBUSRHQ.BANK_CARDZY   BANK_CARDZY"   &   Chr(13)   &   ""   &   Chr(10)   &   "ORDER   BY   BANK_CARDZY.CDZCODE"   _  
                  )  
                  .Name   =   "查询来自   hdqt"  
                  .FieldNames   =   True  
                  .RowNumbers   =   False  
                  .FillAdjacentFormulas   =   False  
                  .PreserveFormatting   =   True  
                  .RefreshOnFileOpen   =   False  
                  .BackgroundQuery   =   True  
                  .RefreshStyle   =   xlInsertDeleteCells  
                  .SavePassword   =   True  
                  .SaveData   =   True  
                  .AdjustColumnWidth   =   True  
                  .RefreshPeriod   =   0  
                  .PreserveColumnInfo   =   True  
                  .Refresh   BackgroundQuery:=False  
          End   With  
   
  上面这段代码怎样在pb中实现？已建立了ole连接如下：  
  ExcelServer   =   CREATE   OLEObject  
  li_ret   =   ExcelServer.ConnectToNewObject(   "excel.application"   )  
  IF   li_ret<>0   THEN  
  MessageBox('OLE错误','OLE无法连接!错误号：'   +   string(li_ret))  
  return   -1  
  END   IF 问题点数：100、回复次数：5Top

相关问题

• cardzy
• hdqt
• bank
• chr
• ole
• ret
• true

• 帖主：zengguochao1980

• PowerBuilder类图书
• PowerBuilder类源码下载