[[20230228165724]]　『dqyファイルをもとにODBCからの抽出をVBAで行いた』（ヒシ）　ページの最後に飛ぶ

『dqyファイルをもとにODBCからの抽出をVBAで行いたい』（ヒシ）

前任者より引きついだ業務ですが、かなり前から以下の内容のdqyファイルをメモ帳で書き換えながらデータ抽出を行っています。
この内容をVBAでdqyファイルなしで抽出するにはどう記述すればいいでしょうか？
対象年月をセル参照でボタン一つで月次データが抽出できるようにしたいです。
知恵をお貸しください。

XLODBC
1
DSN=HANBAIxDB;UID=HANBAIUID;DBQ=HANBAIDBQ;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;MLD=0;ODA=F;STE=F;TSZ=8192;AST=FLOAT;
SELECT VIEW_売上データ.対象年月, VIEW_売上データ.売上日付, VIEW_売上データ.当月区分, VIEW_売上データ.締切期間, VIEW_売上データ.売上番号, VIEW_売上データ.売上行番号, VIEW_売上データ.得意先コード, VIEW_売上データ.得意先名, VIEW_売上データ.得意先任意集計Ａコード, VIEW_売上データ.相手先注番_鑑部, VIEW_売上データ.相手先注番_明細部, VIEW_売上データ.入力商品名, VIEW_売上データ.入力規格, VIEW_売上データ.数量, VIEW_売上データ.売上単価, VIEW_売上データ.消費税額, VIEW_売上データ.税抜金額, VIEW_売上データ.売上金額, VIEW_売上データ.納入先名, VIEW_売上データ.納入先担当者名 FROM HANBAI.VIEW_売上データ VIEW_売上データ WHERE (VIEW_売上データ.事業所コード='50') AND (VIEW_売上データ.得意先任意集計Ｂコード='C22265') AND (VIEW_売上データ.対象年月='2023/02') ORDER BY VIEW_売上データ.得意先コード

対象年月売上日付当月区分締切期間売上番号売上行番号得意先コード得意先名得意先任意集計Ａコード相手先注番_鑑部相手先注番_明細部入力商品名入力規格数量売上単価消費税額税抜金額売上金額納入先名納入先担当者名

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 あくまで「たぶん」ですけど、だいたい↓こんな感じのイメージになるんじゃないかなぁ。と...

    Sub Test()
        Const ●接続情報● = "ODBC;DSN=HANBAIxDB; ---(中略)--- AST=FLOAT;"
        Const ●SELECT文● = "SELECT VIEW_売上データ.対象年月, ---(中略)--- ORDER BY VIEW_売上データ.得意先コード"

        With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(●接続情報●), Destination:=Range("$A$1")).QueryTable
            .CommandText = Array(●SELECT文●)
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .PreserveColumnInfo = True
            .ListObject.DisplayName = "クエリ名"
            .Refresh BackgroundQuery:=False
        End With
    End Sub

（白茶） 2023/02/28(火) 18:47:08

ありがとうございます。
少しいじれば動作しそうなのでこれを参考に動かしてみます。

（ヒシ） 2023/03/01(水) 13:19:29

コメント返信：

[ 一覧(最新更新順) ]

[[20230228165724]] 『dqyファイルをもとにODBCからの抽出をVBAで行いた』（ヒシ） ページの最後に飛ぶ

[[20230228165724]]　『dqyファイルをもとにODBCからの抽出をVBAで行いた』（ヒシ）　ページの最後に飛ぶ