Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


65762 / 76738 ←次へ | 前へ→

【15547】Re:外部データの取り込みについてお教え願います!
お礼  まさくん  - 04/6/29(火) 0:28 -

引用なし
パスワード
   ▼ichinose さん:
>▼まさくん さん:
>こんばんは。
>使った事はほとんどありませんが・・・・。
>>
>>「DBからデータを取得→エクセルシートに貼り付け」と、いう処理です。
>>まず、「外部データの取り込み」を下記のマクロにより行いました。
>>(尚、データ取得1回につき10種類のDBより読み込むため、下記のようなマクロを10種類連続して記述しています)
>>
>>With ActiveSheet.QueryTables.Add(Connection:= _
>>     "OLEDB;Provider=MSDAORA.1;Password=pass;User ID=id;Data
>>     Source=ORADB", _
>>     Destination:=Range("A5"))
>>     .CommandType = xlCmdSql
>>     .CommandText = Array( _
>>     "SELECT * FROM OPC.MAKI_PRT_TBL ORDER BY SHOZO_NO ASC,
>>     SIAGESIJI_NO ASC, LOT_NO ASC,KOMAKI_REEL_NO ASC")
>>     .Name = "+新しいデータソースへの接続"
>>     .FieldNames = True
>>     .RowNumbers = False
>>     .FillAdjacentFormulas = False
>>     .PreserveFormatting = True
>>     .RefreshOnFileOpen = False
>>     .BackgroundQuery = True
>>     .RefreshStyle = xlInsertDeleteCells
>>     .SavePassword = False
>>     .SaveData = True
>>     .AdjustColumnWidth = True
>>     .RefreshPeriod = 0
>>     .PreserveColumnInfo = True
>>     .SourceConnectionFile = _
>>     "C:\Documents and Settings\Administrator\My Documents\My Data
>>     Sources\ORADB_MAKI_PRT_TBL.odc"
>>     '.Refresh BackgroundQuery:=True
>>     .Refresh BackgroundQuery:=False
>     .delete 'では?
>>   End With
>>
>>ここで、データを取得しシートに貼り付けられたのですが、DBの方にconnectしっぱなしなのです。データを取得しシートに貼り付けたらdisconnectする方法とかあればお教え願います。
>>現状、エクセルを終了しないとconnectしっぱなしです。。。
>>(DB制約により、connectしっぱなしだと、他の端末からDBが参照できないのです。。。何せ1回の取得につき10回connectするので困っています)


ありがとうございました。
無事、この方法で解決致しました。
(返信遅くなり申し訳ないです)
0 hits

【15343】外部データの取り込みについてお教え願います! まさくん 04/6/22(火) 0:49 質問
【15344】Re:外部データの取り込みについてお教え願... ichinose 04/6/22(火) 1:06 発言
【15547】Re:外部データの取り込みについてお教え願... まさくん 04/6/29(火) 0:28 お礼

65762 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free