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