- ベストアンサー
Access2013のエクスポート設定についての質問
kkkkkmの回答
同じようなコードがあるので名前を変更していたのですが、一部元に戻し忘れてました。 If sfile = "False" Then SaveFile_FileDialogEx = "" Else SaveFile_FileDialogEx = sfile End If のところを以下に変更してください。 If sfile = "False" Then SaveFile_FileDialog = "" Else SaveFile_FileDialog = sfile End If
関連するQ&A
- 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文でつまずいている状況で、 検索してもなかなか有効な解決方法が見つかりません・・・。 どこを間違えているのでしょうか。
- ベストアンサー
- オフィス系ソフト
- Accessマクロでのエクスポート
Accessマクロで「書式設定を保持したままエクスポート」を使用し、テーブルをExcelにエクスポートしています。 終了時に、正常終了メッセージを出力していますが、エクスポート時のファイル選択ダイアログで「キャンセル」を押下した際も、この終了メッセージが出力されてしまいます。 マクロのアクションカタログにて、「ファイル選択ダイアログでキャンセルが押されたか？」を判定することはできますでしょうか？
- 締切済み
- Access（アクセス）
- Access2007のエキスポートについて
Access2007でマクロを使ってExcel2007のファイル(xlsx)形式へエキスポートします。その際、 ・「ワークシート変換」を指定 ・ワークシートの種類に「Excel Work book」 ・出力ファイルパスに「(絶対パス)\(ファイル名).xlsx」 としました。 既にAccess2007のテーブルには、65535行を超える200000行のレコードが入っていることが確認できてます。 マクロを実行すると、「指定範囲を広げることができません」とダイアログが出てしまい、マクロが中断し、異常終了してしまいます。 windowsXP SP2 pentium4を使用。 異常終了せず、全レコードをファイルにエキスポートする方法はありませんか？ 宜しくおねがいいたします。
- ベストアンサー
- その他(データベース)
- Access2007のCSVエクスポートについて
Access2007のTransferTextでのエクスポート定義についての質問です。 エクスポートウィザードの「設定」からエクスポート定義を作成する方法は分かるのですが これだと保存先のパスをVBA内で任意に指定することが出来ません。 エクスポート定義のみを作成する方法をお教えいただけませんでしょうか。 以前、行ったことが有るのですが処理方法を忘れてしまいました。 行いたいことは、VBA内で出力先パス・出力先ファイル名を任意に指定し ダブルクォーテイション無しのCSVファイルを作成したいのです。 よろしくお願いいたします。
- 締切済み
- その他(データベース)
- Access2003について
Access2003を使ってます。 Access2003でcvsをインポートし、編集して、エクスポートし FFFTPに放り込んで・ ・ ・という ことをしているのですが Access2003でせっかく頑張って編集したのですが、 一旦編集を保存したりエクスポートしたりすると 次開いた時に、レコードの番号がぐちゃぐちゃになり困ります。 どのような設定をすれば このレコードの順を編集してるときに同じ順序で 保存したり エクスポートしたりできるのでしょうか なるべくわかりやすい単語を使って説明してくれるとありがたいです
- ベストアンサー
- その他(データベース)
- Access 1レコードずつcsvで出力したい
使用しているのはAccess2000です。 クエリのレコードを、1レコードずつcsvにエクスポートしたいのですが、マクロなどで自動的におこなうことはできないでしょうか？ 例． クエリ名：test レコード数：100件 フィールド名：ファイル名 testクエリの1から100までのレコードを、1件ずつcsvへエクスポートする。保存する際は「ファイル名」を参照して、csvファイル名とする。100件分のこれらの作業をすべてマクロ等で自動化したい。 VBAの知識はほとんどありませんが、VBAによる回答でも構いません。 よろしくお願いいたします。
- ベストアンサー
- その他(データベース)
- ACCESS2013VBA任意の文字列付与する方法
ACCESS2013を使用しています。 メニュー用に作成したフォームにコマンドボタンを置いて、下記のようなソースを割り当て、 ボタンを押すとstrPathで指定したフォルダ内にエクセル形式にて出力するようにしています。 このフォームにテキストボックスを置いて、そこに入力した文字を出力するファイル名の末尾に 付与するにはどうしたら良いでしょうか？ よろしくお願いいたします。 Function 一括エクスポート() On Error GoTo 一括エクスポート_Err strPath = "C:\Users\tanaka\Desktop\エクスポート\" DoCmd.OutputTo acOutputQuery, "DCAC", "ExcelWorkbook(*.xlsx)", strPath & "エクスポートデータ1.xlsx", False, "", , acExportQualityPrint DoCmd.OutputTo acOutputQuery, "DCAC", "ExcelWorkbook(*.xlsx)", strPath & "エクスポートデータ2.xlsx", False, "", , acExportQualityPrint DoCmd.OutputTo acOutputQuery, "DCAC", "ExcelWorkbook(*.xlsx)", strPath & "エクスポートデータ3.xlsx", False, "", , acExportQualityPrint 一括エクスポート_Exit: Exit Function 一括エクスポート_Err: MsgBox Error$ Resume 一括エクスポート_Exit End Function
- ベストアンサー
- その他MS Office製品
- Accessにインポートしようとするとエラーに
Access2000にcsvファイルをインポートしようとすると、最後の「完了」ボタンクリック時に、下記エラーが表示され、 インポートが行われません。 「フィールド'フィールド名'の開始位置'35642'が有効ではありません。開始位置は32,767以内で指定してください。」 「インポート/エクスポート定義 'ファイル名 インポート定義'を保存するときにエラーが発生しました。」 これは、どこを修正すればいいのでしょうか？
- ベストアンサー
- オフィス系ソフト
- ACCESS VBA カレントレコードの値がとりたいが・・・
お世話になります。 ACCESS VBAについての質問です。 FORM1にSUBFORMを貼り付けています。 このときSUBFORMはデータシートで表示しています。 このときに データシートで選択したカレントレコードの フィールド１にはいっている値を保持したいのですが… 値を取るVBAの書式がわかりません。 それともとれないのでしょうか・・・ お分かりになる方、よろしくお願いします。
- 締切済み
- オフィス系ソフト
- 壊れたエクセルのデータを復旧したい
WinXP Excel2003 を使用しています。 エクセルのBookに見積書式を作成し、見積作成毎にSheetを追加・保存してきました。 ところが先日「セルの書式が多すぎるため、書式を追加できません。」のメッセージが出て、「OK」をクリックすると **.xlsにエラーが検出されましたが、次の修復を行うことによってファイルを開くことができました。修復を保持するにはこのファイルを保存してください。 ファイルへのダメージが深刻であり修復は不可能です。数式と値の回復を試みましたが、消失または破損したデータが含まれる可能性があります。 エラーをクリックすると修復のログファイルが表示されます。 クリック → Microsoft Office Excel ファイル修復ログ ファイル '**.xls' にエラーが検出されました 修復の一覧:ファイルへのダメージが深刻であり修復は不可能です。数式と値の回復を試みましたが、消失または破損したデータが含まれる可能性があります。 → 閉じる やはり修復は不可能でしょうか？ ご存知の方がいらしたら教えて下さい。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
お礼
何度もご回答ありがとうございました。 できました！！ Accessファイルを開いてすぐにExcel出力してもエラーが出ずに保存することができました。 前回(https://okwave.jp/qa/q9714515.html)と違い、今回は完全に上書き保存されていました。本来の動作に戻ったようです。 念の為、標準モジュールの「Public Declare Function ShowWindow Lib "user32"～」の”Declare”を”Declare PtrSafe”に変えておきました。 前回「他のAccessでもExcel出力したいものが多々ありますので、早速流用させていただきます」と返答したものの結局は再度質問してしまいましたが、今回ばかりは大丈夫かと思います。 毎回ご回答いただき、本当に感謝しております。 ありがとうございました。