- 帖子
- 561
- 主題
- 160
- 精華
- 0
- 積分
- 725
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2024-8-7
  
|
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 |
|
發表於 2016-9-9 11:18
| 
