![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
ACCESSのVBAを使ってテーブルのデータを
既存ブックに出力し、別名で保存をしたいのですが、
どうも、処理が遅くて困っています。
改善点がありましたら教えてくださいお願いいたします。
Dim objExcel As Excel.Application
Dim xlWrkbk As Excel.Workbook
Dim xlWrksh As Excel.Worksheet
Dim rs As DAO.Recordset
Dim strFilename As String
strFilename = CurrentProject.Path & "既存ブック名.XLS"
Set objExcel = New Excel.Application
Set xlWrkbk = objExcel.Workbooks.Open(Filename:=strFilename, ReadOnly:=True)
Set xlWrksh = xlWrkbk.Worksheets("シート名")
Set rs = CurrentDb.OpenRecordset("テーブル名", dbOpenSnapshot)
With objExcel
xlWrksh.Range("A:N").Clear
xlWrksh.Range("A2").CopyFromRecordset rs
xlWrkbk.SaveAs Filename:=CurrentProject.Path & "新しいブック名.xls"
xlWrkbk.Close
.Quit
rs.Close
End With
Set rs = Nothing
Set objExcel = Nothing
Set xlWrkbk = Nothing
Set xlWrksh = Nothing
No.1ベストアンサー
- 回答日時:
内容吟味しないで申し訳ないですけど、既成のマクロでスプレッドシートにエクスポートするマクロが
あるので、それをつかったらどうでしょうか。
多分、レコードを1つづつ呼び出して書き込むよりかは早いかと。
ヘルプを見たところVBAでは、
docmd.TransferSpreadsheet(TransferType, SpreadsheetType, TableName, FileName, HasFieldNames, Range, UseOA)
を使うようです。
使い方の詳細は、ヘルプから参照して速さを比較してください。
この回答への補足
TransferSpreadsheet だと、
確かに指定シートに出力はできますが別名保存はできませんよね?
Excelの元データに出力して別名保存したいのですが・・・。
一応上記のコードだと、理想通りの処理が行われているのですが、
CopyFromRecordset の部分でかなり処理に時間がかかっています。
スプレッドシートというのは始めて聞きました、
ちょっと調べてみます
ありがとうございます。
すみません、上記コードのセル消去部分とTransferSpreadsheetを
組み合わせて、かなり時間短縮することができました!
ありがとうございます!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ACCESSからEXCELに出力する際、時間がかかる。
その他(プログラミング・Web制作)
-
MS-Accessのエクスポートで異常に時間がかかるようになった
その他(データベース)
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
-
4
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
5
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
6
ACCESS側からEXCELの書式を設定するには?
Visual Basic(VBA)
-
7
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
8
Access VBAから使用したExcelプロセスを閉じる方法について
Visual Basic(VBA)
-
9
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
10
ACCESSのVBAにてExcelのシートをコピーしたい
その他(データベース)
-
11
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
12
ACCESSのVBで、エクセルファイルの最終行を取得
Excel(エクセル)
-
13
AccessVBAでExcelを起動し、罫線を引きたいのですが、Exc
Visual Basic(VBA)
-
14
ACCESSのデータに自動で半角スペースを入れたい
その他(データベース)
-
15
アクセスvbaでエクセルブックを保存
その他(Microsoft Office)
-
16
アクセスからエクセルのシートを追加して、名前をつける方法
Excel(エクセル)
-
17
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
18
ACCESS VBAでExcelを開き行をコピーしたい
Visual Basic(VBA)
-
19
Access エクセルシート名変更
その他(プログラミング・Web制作)
-
20
Accessで、1つの項目に複数の置換えを1度でするには?
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
VBA コードを実行すると画面が...
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
VBAで複数のブックを開かずに処...
-
VBA 別ブックからコピペしたい...
-
VBS Bookを閉じるコード
-
ACCESSVBA からExcelの他ブック...
-
VBSでExcelのオープン確認
-
【ExcelVBA】zip圧縮されたCSV...
-
【ご教示ください】VBAの記述方...
-
Excelファイルを開くとき、読み...
-
ACCESSでExcelにデータ出力、高...
-
Excelブックがアクティブになっ...
-
マクロVBA 1シートをまとめ...
-
VBA ブックを開かずにブック内...
-
エクセルのマクロについて教え...
-
VBAが止まります。
-
【マクロ】違うフォルダにある...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
VBAで別ブックのシートを指定し...
-
Excelのマクロについて教えてく...
-
VBA 別ブックからコピペしたい...
-
Excelのマクロについて教えてく...
-
vbaでvbaProjectのパスワード解...
-
VBA コードを実行すると画面が...
-
【マクロ】アクティブセルにブ...
-
Excelのマクロについて教えてく...
-
VBAで別のブックにシートをコピ...
-
VBS Bookを閉じるコード
-
Excelのマクロについて教えてく...
-
【ExcelVBA】zip圧縮されたCSV...
-
【ExcelVBA】インデックスが有...
-
ACCESSVBA からExcelの他ブック...
-
vbaで他のブックに転記したい。...
-
【マクロ】違うフォルダにある...
おすすめ情報