標題: [發問] 下指令去odbc抓資料 [打印本頁]

---

作者: rouber590324    時間: 2016-9-9 11:18     標題: 下指令去odbc抓資料

DEAR ALL 大大
1.原需求為於EXCEL 儲存格SHEET1.RANGE("A1")輸入 L05 自動抓取對應中文 鑽孔   輸入 L20 自動抓取對應中文 壓合....
2.如圖一 資訊部門提供一指令供我抓取.
3.如圖二為我平時抓取ODBC之程式碼
請問有誰知道要如何抓取.煩不吝賜教. THANKS*10000

圖一資訊部門回應
Sorry！EXCEL 不熟，不知道如何啟動
看你平常怎麼下指令去odbc抓資料的 ?
修改前 select cnm from t2cept06 where mpid=’L05’;
修改後 SELECT URCE01P.f_get_t2cept06('L05') FROM DUAL;

圖二為我平時抓取ODBC之程式碼
Sub Macro1()
    Sheet1.Select
    Sheet1.[a1:BB65536].ClearContents
    With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DRIVER={Microsoft ODBC for Oracle};UID=URCE01B;;SERVER=JSRS05A;", _
        Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT TBDD2026.PCBKIND, TBDD2026.BULAY, TBDD2026.MPID, TBDD2026.IT, TBDD2026.CHKNUM, TBDD2026.COND, TBDD2026.SEQ, TBDD2026.RELEASE, TBDD2026.SCRAPDATE, TBDD2026.SCRAPNM, TBDD2026.SCRAPDESC" & Chr(13) & "" & Chr(10) & "FROM URCE" _
        , "01P.TBDD2026 TBDD2026")
        .Name = "來自 TONHMT02 的查詢"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)