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(エクセル)
-
AccessVBAから、Excelシート内の列の書式設定がしたい!!
Visual Basic(VBA)
-
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
-
-
4
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
5
Accessのスプレッドシートエクスポートで、シートが追加されてしまう
Access(アクセス)
-
6
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
7
AccessからExcelに罫線付で出力したい
Excel(エクセル)
-
8
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
9
アクセスvbaでエクセルブックを保存
その他(Microsoft Office)
-
10
教えてください! アクセスの書式設定を保持したまま エクスポートについてですが、 出力ファイル名を
Access(アクセス)
-
11
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
12
AccessVBAでExcelを起動し、罫線を引きたいのですが、Exc
Visual Basic(VBA)
-
13
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
14
AccessからExcelの出力について
その他(データベース)
-
15
Access サブフォームでの選択行の取得
その他(データベース)
-
16
Accessで、1つの項目に複数の置換えを1度でするには?
Access(アクセス)
-
17
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
18
アクセスでエクセルに出力する際のファイル名を日付に
その他(Microsoft Office)
-
19
AccessからExcelへエクスポートするときにファイル名を指定したい。
Excel(エクセル)
-
20
Access2003 クエリで、空の列は作れますか?
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBSの処理中一旦処理を止めて再...
-
Excel VBA で処理中断(DoEvents...
-
VBSで応答不要のメッセージボッ...
-
メッセージボックスのボタン名変更
-
Excelのワークシートに行を挿入...
-
エクセルVBAでクリップボード内...
-
VBスクリプトで「お待ち下さい...
-
Application.ScreenUpdating=Fa...
-
VBA:IEでサイトを巡回し、デー...
-
thunderbirdのメッセージフィル...
-
VB6 コマンドボタン クリック...
-
DoEvents
-
DirectX環境下での方向キー同時...
-
ボタンが押された事を検知する...
-
MFCのView終了時の終了確認
-
マルチスレッドを実現したい
-
VBA kernel32 の意味
-
結果待ちの関数を強制終了
-
MFCのメニューバーのイベント取得
-
マウスのクリックを無視したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
メッセージボックスのボタン名変更
-
VBSの処理中一旦処理を止めて再...
-
VBSで応答不要のメッセージボッ...
-
ACCESS側からEXCELの書式を設定...
-
VBA メッセージボックスを自動...
-
Application.ScreenUpdating=Fa...
-
VBA kernel32 の意味
-
エクセルVBAでクリップボード内...
-
Excelのワークシートに行を挿入...
-
Excel VBA で処理中断(DoEvents...
-
【C#】 あるイベントから別イ...
-
手動かプログラムでの起動かの判断
-
ASP.NETでのメッセージ画面を出...
-
Excel VBA 自動的に閉じるMsgBox
-
シャットダウン時のExcel強制終...
-
VBA、UserFormを前面に出力して...
-
<input type="file">タグで「キ...
-
Excel VBA 実行中に一瞬フリー...
-
「キャンセル」ボタン付きの処...
-
EXCEL VBA「Application.Displa...
おすすめ情報