• 締切済み

Accessマクロでのエクスポート

Accessマクロで「書式設定を保持したままエクスポート」を使用し、テーブルをExcelにエクスポートしています。 終了時に、正常終了メッセージを出力していますが、エクスポート時のファイル選択ダイアログで「キャンセル」を押下した際も、この終了メッセージが出力されてしまいます。 マクロのアクションカタログにて、「ファイル選択ダイアログでキャンセルが押されたか？」を判定することはできますでしょうか？

みんなの回答

  • chayamati
  • ベストアンサー率41% (254/607)
回答No.2

続きです 私の場合ラベルボタン押下してテーブル加工、エキスポート、エクセルファイルが開くまで数秒で終わるのでキャンセルの余裕はありません DoCmd.SetWarnings True DoCmd.TransferSpreadsheet acExport, , "XLS 朝食", エクセル名, True, "朝食" DoCmd.TransferSpreadsheet acExport, , "XLS 昼食", エクセル名, True, "昼食" DoCmd.TransferSpreadsheet acExport, , "XLS 夕食", エクセル名, True, "夕食" DoCmd.TransferSpreadsheet acExport, , "XLS 単日朝食", エクセル名, True, "単日朝食" DoCmd.TransferSpreadsheet acExport, , "XLS 単日昼食", エクセル名, True, "単日昼食" DoCmd.TransferSpreadsheet acExport, , "XLS 単日夕食", エクセル名, True, "単日夕食" DoCmd.SetWarnings True DoCmd.TransferSpreadsheet acExport, , "XLS 血糖履歴", エクセル名, True, "血糖履歴" DoCmd.SetWarnings True DoCmd.TransferSpreadsheet acExport, , "XLS薬", エクセル名, True, "薬" DoCmd.TransferSpreadsheet acExport, , "SMBG定数", エクセル名, True, "SMBG定数" DoCmd.TransferSpreadsheet acExport, , "XLS 一言日記", エクセル名, True, "日記" DoCmd.SetWarnings True Call Shell("Excel.exe " & エクセル名, vbMaximizedFocus) ------------------------------------------------------------------------------------------

  • chayamati
  • ベストアンサー率41% (254/607)
回答No.1

＞Accessマクロで「書式設定を保持したままエクスポート」を使用 ほんにちは。回答が付きませんね このマクロはどのように、起動しているか補足願います。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. Access（アクセス）

関連するQ&A

  • AccessのマクロでExcelにエクスポートしたい

    レコード数が5万程度あるクエリを マクロでExcelにエクスポートしたいのですが、 「出力」を選ぶと、「出力する行が多すぎて、指定した出力形式またはMicrosoft Accessの制限を越えています。」のエラーメッセージが表示されてしまいます。 マクロではなく、普通にエクスポートする際は、 Excelのバージョンを選択できるので、正常処理できるのですが、マクロの場合はどうすればいいのでしょうか？ 宜しくお願いします。

  • Access2007のエキスポートについて

    Access2007でマクロを使ってExcel2007のファイル(xlsx)形式へエキスポートします。その際、 ・「ワークシート変換」を指定 ・ワークシートの種類に「Excel Work book」 ・出力ファイルパスに「(絶対パス)\(ファイル名).xlsx」 としました。 既にAccess2007のテーブルには、65535行を超える200000行のレコードが入っていることが確認できてます。 マクロを実行すると、「指定範囲を広げることができません」とダイアログが出てしまい、マクロが中断し、異常終了してしまいます。 windowsXP SP2 pentium4を使用。 異常終了せず、全レコードをファイルにエキスポートする方法はありませんか？ 宜しくおねがいいたします。

  • Access マクロビルダーで使うIF文について

    よろしくお願いします。 Access2010のマクロビルダーを使って以下を作成しています。 ----------------------------------- ●やりたいこと １．フォーム内にあるリスト（項目は"1"か"2"）から選択する。 ２．リストを選択した後、マクロ実行ボタンをクリックする。 ３．リストで！”1”を選べばクエリ1がExcel出力される。 　　リストで！”2”を選べばクエリ2がExcel出力される。 ●フォーム フォーム名：フォーム1 リスト名:リスト1　（項目："1","2") ●マクロビルダー If　[Forms]![フォーム1]![リスト1]=1 Then アクション:「書式設定を保持したままエクスポート」 オブジェクト名:クエリ1 出力ファイル形式:*.xlsx 自動起動:いいえ 出力品質:画面 Else If　[Forms]![フォーム1]![リスト1]=2 Then アクション:「書式設定を保持したままエクスポート」 オブジェクト名:クエリ2 出力ファイル形式:*.xlsx 自動起動:いいえ 出力品質:画面 If文の最後：メッセージ「リストから選択してください」 ----------------------------------- 以上を実行すると「エラー13 型が一致しません」とエラーが出てしまいます。 If文でつまずいている状況で、 検索してもなかなか有効な解決方法が見つかりません・・・。 どこを間違えているのでしょうか。

  • マクロでエクスポート（アクセス97）

    W2000・アクセス97・エクセル2000です。 アクセスのクエリーを、マクロを使用して、新規にエクセルにエクスポートしたいです。 マクロでは、 ・変換の種類　エクスポート ・ワークシートの種類　Excel97（2000は選択の中になし） ・テーブル名　エクスポートしたいクエリーを指定 ここまでは、わかりましたが、ここまででマクロを実行すると、 ”このアクションまたはメゾットを実行するには、[file name/ファイル名]が必要です” と、表示され、エラーになります。 できましたら、この後、どのようにすればよいのか？　もしくは、こういう方法で、というのがありましたら、お教えくださいませ。詳しく解説してくれている、URLのご紹介でも、かまいません。 お手数ですが、どなたか、よろしくお願い申し上げます。

  • Excelマクロのエクスポート方法

    Excelマクロをエクスポートする時 数が多いと毎回ファイルのエクスポートを選択するのが大変です。 自動的にエクスポートする方法はありますでしょうか？

  • Accessのクエリをマクロでエクスポートしたい

    Access2002を使っています。 マクロでクエリをExcelファイルにエクスポートしたいのですが、どうしたらいいかわかりません。 「ワークシート変換」を選択してもテーブルしか選べないので・・・ ご存知の方、どうぞ優しくご教授ください～

  • ACCESS2010 エクスポート　自動化方法

    どなたか教えてください。 ACCESS2010においてエクスポートをマクロで自動化する際の設定方法はどうすればよいですか？ ちなみにエクスポートする際の出力ファイルはCSVファイルです。 よろしくお願いします。

  • ACCESS2002のエクスポートで・・・

    特に困ってはいないのですが不思議に思ったので質問します。 OS：WinXP Pro 環境：ACCESS2002およびEXCEL2002 １．ACCESSでクエリ「TEST1」をEXCELにエクスポートします。 ２．エクスポートして作成されたEXCELファイルを開き、シート名「TEST1」を「TEST2」に変更します。 ３．再度、ACCESSでクエリ「TEST1」を１．で作成されたEXCELファイルを指定してエクスポートすると「オブジェクト「TEST1」は存在します。置き換えますか？」旨のメッセージが表示されます。 指定したEXCELファイルにはシート「TEST1」は存在しないのになぜそのようなメッセージが表示されるのでしょうか？ちなみそのまま出力するとクエリ「TEST1」のデータはEXCELのシート「TEST2」に出力されます。

  • 【Access2013】エラー回避　他

    https://okwave.jp/qa/q9714515.htmlの続きです。 「書式設定を保持したままエクスポート」というマクロを多用しています。 ここでは細かい設定ができるのでいろいろなAccessで使用していたのですが、出力先フォルダやファイル名が限定されてしまうのがネックになっていました。 そこでhttps://okwave.jp/qa/q9714515.htmlにてVBAでの出力方法をご教示いただいたのですが、３つほど困ったことがあります。 １．「書式設定を保持したままエクスポート」したい ググると「DoCmd.OutputTo メソッドを使え」とのことですが、添付画像のVBAにどのように組み込めばいいのか分かりません。 ２．「名前を付けて保存」画面が出ない 当該Accessを開いた後「Excel出力」ボタンをクリックすると「名前を付けて保存」画面が出ず、タスクマネージャからExcelをダブルクリックしないと表示されないのです。 Accessをデザイン編集したあとクリックすると出てきます。 ３．xlsxファイルを開くとエラーが出る 出力したxlsxファイルを開くと、添付画像の「～の一部の内容に～」「～の修復」という２つエラーが出ます。 ２つ目のエラーに関しては、「書式設定を保持したままエクスポート」では「修復されたレコード」のみ、VBAでは「削除されたレコード」と「修復されたレコード」が表示されます。 それぞれの方法で保存したデータを見る限り、書式の違いはあるもののデータの抜け等はありませんでした。 これら３つをすべて解決する方法はありませんか？

  • AcceseからCSVにエクスポートするマクロを作る

    　早速質問です。 　目的はMDBファイルをCSVテキストにエクスポートするマクロ(機能がクリックひとつで実現できるよう)を作ることですが、CSVファイルはカンマで区切って、ダブルクォーテーション（”）が入らないようにすることです。MDBファイルの項目が全部テキスト型なので、手動でテキストファイルにエクスポートするときはダブルクォーテーションが入らないように選択できるが、マクロの”テキスト変換”でやるとテキスト型の項目には自動的にダブルクォーテーションがついてしまうのです。 どうすればいいか具体的に教えていただけたらと願ってます。 　よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する