
よろしくお願いします。
ACCESS VBA を使用して、既存のEXCELファイルにデータを出力しているのですが、すごく時間がかかってしまいます。件数が少ない時はそれほど気にならないのですが。時間短縮する方法を教えてください。
Sub S_ExportExcel_ADO()
Dim CN As ADODB.Connection
Dim rst As ADODB.Recordset
Dim objExcel As Excel.Application
Dim i As Integer
Dim W_SQL As String
On Error GoTo Err_S_ExportExcel_ADO
Set objExcel = New Excel.Application
objExcel.Workbooks.Open ("test.xls")
objExcel.Worksheets("sheet1").Select
Set CN = CurrentProject.Connection
Set rst = New ADODB.Recordset
W_SQL = "SELECT * FROM データ"
rst.Open W_SQL, CN, adOpenKeyset, adLockReadOnly
i = 1
Do Until rst.EOF
objExcel.Cells(i, 4) = Trim("" & rst![データ1])
objExcel.Cells(i, 5) = Trim("" & rst![データ2])
objExcel.Cells(i, 6) = Trim("" & rst![データ3])
objExcel.Cells(i, 7) = Trim("" & rst![データ4])
objExcel.Cells(i, 9) = Trim("" & rst![データ5])
'***省略***
objExcel.Cells(i, 35) = Trim("" & rst![データ15])
objExcel.Cells(i, 36) = Trim("" & rst![データ16])
i = i + 1
rst.MoveNext
Loop
'EXCEL保存
objExcel.ActiveWorkbook.Close
objExcel.Quit
rst.Close
CN.Close
Set rst = Nothing
Set CN = Nothing
Set objExcel = Nothing
End Sub
No.2ベストアンサー
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
MS-Accessのエクスポートで異常に時間がかかるようになった
その他(データベース)
-
ACCESSでExcelにデータ出力、高速化
その他(プログラミング・Web制作)
-
Access クエリ実行が急に非常に遅くなりました。
Access(アクセス)
-
-
4
Accessのテーブルを既存のExcelファイルへエクスポートしたいんですが
Access(アクセス)
-
5
ACCESSのクエリーからEXCELにエクスポート時のエラー
Excel(エクセル)
-
6
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
7
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
8
Accessでテーブル名やクエリ名一覧の抜き出し
Access(アクセス)
-
9
エクセルからアクセスのプロシージャーを実行させるには?
Excel(エクセル)
-
10
AccessからExcelに罫線付で出力したい
Excel(エクセル)
-
11
accessの処理が遅い
その他(データベース)
-
12
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
13
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
14
Accessのスプレッドシートエクスポートで、シートが追加されてしまう
Access(アクセス)
-
15
accessデータを指定したExcel、そして指定したセルへエクスポートするaccess VBAコー
Access(アクセス)
-
16
アクセスからエクセルのシートを追加して、名前をつける方法
Excel(エクセル)
-
17
accessからエクセルにエクスポートしたファイルを開きたい。
Excel(エクセル)
-
18
access vbaにてテンポラリーテーブルが作りたいです。
Access(アクセス)
-
19
AccessからExcelのシートを削除
Excel(エクセル)
-
20
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
教えて下さい
-
ACCESSからEXCELに出力する際、...
-
【エクセル】測定時間がバラバ...
-
CString型の文字列連結について
-
ユーザーフォームのテキストボ...
-
S9タイプからXタイプにデータ...
-
この行は既に別のテーブルに属...
-
特定のデータの抽出方法を教え...
-
Excel VBAでのオートフィルター...
-
VB RS-232C 通信プログラム
-
マクロで同じフォルダにある画...
-
ブレーカー落ちで壊れたりしな...
-
Excel2010 VBA sortについて
-
ページ数を求めたい
-
多量のSUMIF式を軽くしたい
-
シリアル通信プログラム(受信...
-
DataGridViewのデータの引渡し...
-
フーリエ変換について
-
[エクセル]データの個数が2番目...
-
エクセルで1次近似をもとめたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えて下さい
-
【エクセル】測定時間がバラバ...
-
メモ帳(テキストデータ)をExc...
-
配列でデータが入っている要素...
-
<VB>String→Object
-
二分探索の平均探索回数
-
多量のSUMIF式を軽くしたい
-
EXCELVBAでSQLserverからデータ...
-
この行は既に別のテーブルに属...
-
ユーザーフォームのテキストボ...
-
VBA 空白セルを削除ではない方...
-
特定のデータの抽出方法を教え...
-
パースとはなんですか?
-
C# ソケット通信でデータ受信時...
-
エクセルで2つの時系列のデー...
-
[C言語] コメント文字列を無視...
-
Accessで該当データにフラグを...
-
カンマからスラッシュに
-
C# でDataTableの更新を高速化...
-
アクセス2000で画像データ...
おすすめ情報