![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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(エクセル)
-
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
AccessVBAから、Excelシート内の列の書式設定がしたい!!
Visual Basic(VBA)
-
-
4
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
-
5
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
6
Accessのスプレッドシートエクスポートで、シートが追加されてしまう
Access(アクセス)
-
7
教えてください! アクセスの書式設定を保持したまま エクスポートについてですが、 出力ファイル名を
Access(アクセス)
-
8
AccessからExcelに罫線付で出力したい
Excel(エクセル)
-
9
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
10
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
11
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
12
Access サブフォームでの選択行の取得
その他(データベース)
-
13
Access エクセルシート名変更
その他(プログラミング・Web制作)
-
14
AccessVBAでExcelを起動し、罫線を引きたいのですが、Exc
Visual Basic(VBA)
-
15
AccessからExcelの出力について
その他(データベース)
-
16
AccessからExcelへエクスポートするときにファイル名を指定したい。
Excel(エクセル)
-
17
アクセスvbaでエクセルブックを保存
その他(Microsoft Office)
-
18
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
19
アクセスVBAのMe!と[ ]
Access(アクセス)
-
20
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBSの処理中一旦処理を止めて再...
-
エクセルVBAでクリップボード内...
-
Excel VBA で処理中断(DoEvents...
-
スロットゲームのプログラミング
-
ACCESS側からEXCELの書式を設定...
-
VBSで応答不要のメッセージボッ...
-
VB Loopを一時停止し再開あるい...
-
vb.net イベントが完全に終了...
-
WEB上にボタンが押せない
-
Application.ScreenUpdating=Fa...
-
VBA メッセージボックスを自動...
-
Excel VBA 実行中に一瞬フリー...
-
VBA kernel32 の意味
-
InvalidateRectがうまくいかない
-
Excelのワークシートに行を挿入...
-
メッセージボックスのボタン名変更
-
VC++6.0 CDateTimeCtrl の暴走...
-
VBA:IEでサイトを巡回し、デー...
-
VB.NET開発(イベントプロシー...
-
処理をとめるキャンセルボタン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBSの処理中一旦処理を止めて再...
-
メッセージボックスのボタン名変更
-
ACCESS側からEXCELの書式を設定...
-
VBSで応答不要のメッセージボッ...
-
VBA kernel32 の意味
-
エクセルVBAでクリップボード内...
-
【C#】 あるイベントから別イ...
-
Excel VBA で処理中断(DoEvents...
-
VBA メッセージボックスを自動...
-
Application.ScreenUpdating=Fa...
-
Excel VBA 自動的に閉じるMsgBox
-
ASP.NETでのメッセージ画面を出...
-
メッセージBOXの「はい」「いい...
-
「キャンセル」ボタン付きの処...
-
B列に特定の文字列が入っている...
-
シャットダウン時のExcel強制終...
-
ASP VBScriptでスクリプト実行...
-
起動後直に実行するコードはど...
-
MFCのメニューバーのイベント取得
-
アクセスでのキー送信について
おすすめ情報