No.2ベストアンサー
- 回答日時:
例えばボタンにエクスポートの処理を書いているのでしたら
ボタンをCmd1とすると
Private Sub Cmd1_Click()
On Error GoTo Err_Cmd1_Click
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
DoCmd.TransferSpreadsheet acExport, 8, "XXX", "\XX.xls", False, ""
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("\XX.xls")
Set xlSheet = xlBook.Worksheets(1)
xlApp.Cells.Select
xlApp.Cells.EntireColumn.AutoFit
xlApp.Range("A1").Select
xlApp.Visible = False
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Exit_Cmd1_Click:
Exit Sub
Err_Cmd1_Click:
MsgBox Err.Description
Resume Exit_Cmd1_Click
End Sub
こんな感じで記述してください。
#1の中でxlApp.DisplayAlerts = False これは除いてください。保存しますかのメッセージが出ます。
この回答への補足
何度も有難うございます。
組み込んでみましたが。。。
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
の一番最初で、「ユーザー定義型は定義されていま
せん」とエラーが出てしまいます。
どうしたら宜しいでしょうか?
No.3
- 回答日時:
ObjectLibraryが設定されていないと思われます。
メニューのツールのマクロからVisualBasicEditorを開き
ツールの参照設定で
Microsoft Excel *.* ObjectLibrary にチェックを入れて下さい。*.*はお使いのAccessのバージョンに合ったものが表示されているはずなのでそのObjectLibraryにチェックして参照するように設定してからやってみてください。
この回答への補足
有難うございましたm(__)m
無事に成功しました!!
もう一点行いたい事がありまして。。。
セルの自動設定後、ピボットテーブルも作成したいと
考えております。毎月データ件数が一定であれば、EXCELのマクロから引用したいと考えていたのですが、毎月のデータ件数が違う為(月毎に、ピボットテーブル作成の選択範囲が変わります)悩んでおります。
そもそもピボットテーブルは、ACCESSから操作可能なのでしょうか?
お手数ですが、ご教授頂けると幸いです。
No.1
- 回答日時:
エクスポート処理に下記の必要な部分を追加してみてください。
Excelの\XX.xlsにエクスポートしたデータ巾にセルを合わせます。(\XX.xlsの部分はフルパスで指定してください)
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
エクスポート処理
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("\XX.xls")
Set xlSheet = xlBook.Worksheets(1)
xlApp.Cells.Select
xlApp.Cells.EntireColumn.AutoFit
xlApp.Range("A1").Select
xlApp.Visible = False
xlApp.DisplayAlerts = False
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
試してみてください。
この回答への補足
有難うございますm(__)m
実は私、VB超初心者でして。。。
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
の後に
DoCmd.TransferSpreadsheet acExport, 8, "xxx)", "\XXXX.XLS", True, ""
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("\XX.xls")
Set xlSheet = xlBook.Worksheets(1)
xlApp.Cells.Select
xlApp.Cells.EntireColumn.AutoFit
xlApp.Range("A1").Select
xlApp.Visible = False
xlApp.DisplayAlerts = False
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
で良いのでしょうか?
すみません。素人でm(__)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) accessデータを指定したExcel、そして指定したセルへエクスポートするaccess VBAコー 2 2023/05/17 17:02
- Excel(エクセル) Excel2007での条件付き書式について 6 2023/05/02 10:56
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- Access(アクセス) Accessのスプレッドシートエクスポートで、シートが追加されてしまう 2 2022/07/16 21:45
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) accessでexcelを読み込む時のデータ型 1 2022/03/28 19:45
- Excel(エクセル) [クイックアクセスツールバー]の設定ファイルの格納場所について、 5 2023/04/21 14:43
- Excel(エクセル) Excelで、昭和の西暦換算 6 2023/03/23 11:29
- Excel(エクセル) Excelで、Excelの小テストで、中央揃えとかありますが、右クリックで、セルの書式設定から中央ぞ 3 2022/12/29 12:43
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Access→Excelへエクスポートすると日付の表示形式が変化する
Excel(エクセル)
-
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
-
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
-
4
AccessVBAから、Excelシート内の列の書式設定がしたい!!
Visual Basic(VBA)
-
5
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
6
教えてください! アクセスの書式設定を保持したまま エクスポートについてですが、 出力ファイル名を
Access(アクセス)
-
7
AccessからExcelに罫線付で出力したい
Excel(エクセル)
-
8
Accessのスプレッドシートエクスポートで、シートが追加されてしまう
Access(アクセス)
-
9
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
10
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
11
Access エクセルシート名変更
その他(プログラミング・Web制作)
-
12
アクセスvbaでエクセルブックを保存
その他(Microsoft Office)
-
13
AccessからExcelへエクスポートするときにファイル名を指定したい。
Excel(エクセル)
-
14
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
15
Access サブフォームでの選択行の取得
その他(データベース)
-
16
AccessVBAでExcelを起動し、罫線を引きたいのですが、Exc
Visual Basic(VBA)
-
17
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
18
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
19
アクセスクエリ(複数)→マクロ→エクセル出力(ワークシート別)
その他(パソコン・スマホ・電化製品)
-
20
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA kernel32 の意味
-
メッセージボックスのボタン名変更
-
VBSの処理中一旦処理を止めて再...
-
シャットダウン時のExcel強制終...
-
beforecloseの中からの抜け出し方
-
VBSで応答不要のメッセージボッ...
-
Application.ScreenUpdating=Fa...
-
VBA、UserFormを前面に出力して...
-
ACCESS側からEXCELの書式を設定...
-
ダイアログボックスを利用した...
-
vb.net イベントが完全に終了...
-
MFCのView終了時の終了確認
-
VB.NETで数秒間msgboxの...
-
VBA メッセージボックスを自動...
-
VB.NET開発(イベントプロシー...
-
【C#】 あるイベントから別イ...
-
Excel VBA で処理中断(DoEvents...
-
メッセージBOXの「はい」「いい...
-
MFCダイアログの終了判定
-
VB6 コマンドボタン クリック...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBSの処理中一旦処理を止めて再...
-
メッセージボックスのボタン名変更
-
VBA kernel32 の意味
-
ACCESS側からEXCELの書式を設定...
-
VBSで応答不要のメッセージボッ...
-
エクセルVBAでクリップボード内...
-
Application.ScreenUpdating=Fa...
-
Excel VBA で処理中断(DoEvents...
-
VBA メッセージボックスを自動...
-
VBA、UserFormを前面に出力して...
-
【C#】 あるイベントから別イ...
-
ASP.NETでのメッセージ画面を出...
-
Excel VBA 自動的に閉じるMsgBox
-
キーボード入力、マウス操作を...
-
スロットゲームのプログラミング
-
<input type="file">タグで「キ...
-
Excelのワークシートに行を挿入...
-
ボタンが押された事を検知する...
-
VB6 コマンドボタン クリック...
-
Stack around the variable 'xx...
おすすめ情報