|
初めましてこんにちは
MSQueryを使ってOLACLEデータをEXCELに抽出したいんですが,MSQueryから手動では抽出出来るんですがVBAで抽出が出来ずに困っています何方かご教授頂けないでしょうか?
自動記録では以下の記述はしてくるんですが
SQL文の知識が全くないもので
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=PROD_6C1;UID=PROD_USER;PWD=PROD_USER;DBQ=PROD_6C1;DBA=W;APA=T;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;FRL=F;MTS=F;CSR=F;PFC=1" _
), Array("0;TLO=0;")), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT DISTINCT EUCKOUMOKUT.KAIBMNID, EUCKOUMOKUT.PRDDAY, EUCKOUMOKUT.KAISU, EUCKOUMOKUT.SIZJUNO, MOTOITACUTSSZT.SIZSSZNO, EUCKOUMOKUT.HRPRCKBNG, EUCKOUMOKUT.SLTBNG, MOTOITACUTSSZT.SLOTNAILR, MOTOITAC" _
, _
"UTSSZT.SLOTNAIGLSMUKI, MOTOITACUTSSZT.JUGYONO, EUCKOUMOKUT.SSNJUN, MOTOITACUTSSZT.HINRYAKU, MOTOITACUTSSZT.CUTSNPH, MOTOITACUTSSZT.CUTSNPW, EUCKOUMOKUT.MAISU, MOTOITACUTJUNIT.CUTJUNBNG"&chr(13)&""&chr(10)&"FROM PROD_USER" _
, _
".EUCKOUMOKUT EUCKOUMOKUT, PROD_USER.MOTOITACUTJUNIT MOTOITACUTJUNIT, PROD_USER.MOTOITACUTSSZT MOTOITACUTSSZT"&chr(13)&""&chr(10)&"WHERE EUCKOUMOKUT.KAIBMNID = MOTOITACUTSSZT.KAIBMNID AND EUCKOUMOKUT.JUGYONO = MOTOITACUTS" _
, _
"SZT.JUGYONO AND EUCKOUMOKUT.SIZSSZNO = MOTOITACUTSSZT.SIZSSZNO AND MOTOITACUTSSZT.HINRYAKU = MOTOITACUTJUNIT.HINRYAKU AND MOTOITACUTSSZT.SIZSSZNO = MOTOITACUTJUNIT.SIZSSZNO AND EUCKOUMOKUT.KAIBMNID = " _
, _
"MOTOITACUTJUNIT.KAIBMNID AND EUCKOUMOKUT.JUGYONO = MOTOITACUTJUNIT.JUGYONO"&chr(13)&""&chr(10)&"GROUP BY EUCKOUMOKUT.KAIBMNID, EUCKOUMOKUT.PRDDAY, EUCKOUMOKUT.KAISU, EUCKOUMOKUT.SIZJUNO, MOTOITACUTSSZT.SIZSSZNO, EUCKOUMO" _
,,)
.Name = "マルチ切断テスト"
.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
|
|