- ベストアンサー
変数を使ってのフロッピーへの保存
データをバックアップする事が目的です。 ファイル名としては、その日の日付と時間を用います。 例えば 2002/09/18 15:00:00.txtといった感じです。 Now関数を使って 現在の時刻を取得します。 TransferTextメソッドを用いて、フロッピーディスクにバックアップをとります。 DoCmd.TransferText acExportDelim,"","tbl名","a:\○○○,True,"" Dim T As Variant T = Now() を事前に定義しておいて、○○○部分に Tを入れるだけじゃ駄目なのですかね。 教えてください お願いします。
- tattann
- お礼率13% (5/37)
- その他(データベース)
- 回答数2
- ありがとう数3
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- maruru01
- ベストアンサー率51% (1179/2272)
こんにちは。maruru01です。 方法はNo.1の人のでいいと思いますが、ちょっと気になったので。 なぜ、バックアップする日時を事前に定義しておくのでしょうか。 TransferTextメソッドを実行するその時の日時を使用して、 DoCmd.TransferText acExportDelim,"","tbl名","a:\" & Format(Now(),"yyyymmdd hhnnss") & ".txt",True,"" とする方がいいのではないでしょうか。
お礼
ありがとうございます。 別に定義する必要ありませんね。
関連するQ&A
- Access CSVデータのエクスポート
Access CSVデータのエクスポート 下記のようにCSVデータをエクスポートしています。 最後をTrueに設定すると1行目がタイトルとしてエクスポート出来るはずが出来ません。 エクスポート定義が原因でしょうか？ 対処方法を教えて下さい。 ※ちなみに下のようにエクスポート定義を使用しないと1行目をタイトルしてエクスポート出来ます。 DoCmd.TransferText acExportDelim, "エクスポート定義", "テーブル名", Format(Now(), "yyyymmdd") & "test.csv", True DoCmd.TransferText acExportDelim, , "テーブル名", Format(Now(), "yyyymmdd") & "test.csv", True
- ベストアンサー
- Visual Basic
- Accessで複数のクエリを1つのCSVファイルにエクスポートする方法
Accessで複数のクエリを1つのCSVファイルにエクスポートする方法はないでしょうか？ 現在は下記のような記述でそれぞれCSVファイルを作成しています。 クエリ1～3を1つのCSVファイルにエクスポートする方法があれば教えて頂きたいです。 よろしくお願いします。 DoCmd.TransferText acExportDelim, , "クエリ1", "C:test1.csv", True, "" DoCmd.TransferText acExportDelim, , "クエリ2", "C:test2.csv", True, "" DoCmd.TransferText acExportDelim, , "クエリ3", "C:test3.csv", True, ""
- ベストアンサー
- その他(データベース)
- AccessでSQL結果を直接csvに書き出すには？
Access2003,WinXP お世話になります。 自作のSQLを書いて、結果をTransferTextで手軽にCSVにできないかと考えてこんなのを書いてました。 Dim strSql AS String Dim strPath AS String strSql = 自作SQL文 strPath = c:\test.csv Docmd.TransferText acExportDelim, , strSql, strPath, True しかし、TransferTextでは「テーブル」か「クエリ」名を直接書くように指示してあり、これだと動かない？んでしょうか。 SQLは300個くらい出力する必要があるため（クエリ300個作れば解決するのですが・・・）上のようなコードをループして動かしたいのですが、何か他の簡単な出力方法があるのでしょうか。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- アクセス2010 ""なしエクスポート
アクセス2010 VB DoCmd.TransferText acExportDelim, , テーブル名,ファイル名.txt テーブルデータをエクスポートするとき、データをダブルコーテーションなしでデータを送る方法ないでしょうか？
- ベストアンサー
- その他(データベース)
- VBAに詳しい方！お願いします。
お願いします。 アクセスのテーブルを固定長テキストファイルに吐き出す為のモジュールを作成中です。 下記のモジュールであっていると思うのですが、 DoCmd.TransferText acExportFixed, , "sousin", "C:\Documents and Settings\個人用\デスクトップ\sousin.txt" しかし、必ず下記のエラーがでます。 「このアクションまたはメソッドを実行するには、「Specification name/定義名」が必要です。」 ちなみに、acExportDelim なら定義名（第二変数）をはずしても走ります。 教科書などを見ても、第二変数は省略できるはずなのですが、お願いします。 また、第二変数の意味もあわせて教えてください。 どんな名前でもバリアント型なら勝手に付けて良いのでしょうか？
- ベストアンサー
- オフィス系ソフト
- Accessのエクスポート、出力場所について
Microsoft AccessにてTranseferTextを用いてCSVファイルをエクスポートする際に、Accessのmdbファイルと同じディレクトリに出力したいと考えています。 参考書やネットを調べましたが、TransferTextで出力先を指定するには、ファイルを絶対パスにて指定する例しか見当たらず、また、試しに相対パスを自分で書いてみてやってみましたが、出力されません。 相対パスではできないのでしょうか？ それとも相対パスの書き方が悪いのでしょうか？ 自分で書いたのは、こんな感じのVBA文です↓ DoCmd>TransferText acExportDelim," Tbl_output エキスポート定義", "tbl_output", "./seikyu.csv", True
- ベストアンサー
- Access（アクセス）
- ExcelVBA からAccess2000の機能を使用したい。
Access2000を使用した、業務用アプリケーションがあるのですが、 AccessをDBとしてのみ活用し、実行をExcelVBAに変更することになりました。 そこで DoCmd.TransferText acImportFixed, "I定義", "DATA_I", txt_Input_Path DoCmd.TransferText acExportDelim, "E定義", "DATA_I", StrOutPath の処理をExcelVBAで書換えた場合はどうなるのでしょうか？ （こんなことができるかどうかも解かりません。） ご存知の方いらっしゃいましたら宜しくお願い致します。
- ベストアンサー
- その他（プログラミング・開発）
- VBAで変数に格納する情報を条件分岐したい
VBAで変数に格納する情報を条件分岐したい ACCESS VBAを組んでいるのですが、 フォーム上で４つの条件のうちどれかで絞込みをかけたデータを エクスポートする際、 日付、条件をファイル名につけたいと思っています。 日付はつけられるのですが、 変数に条件を格納するIF分を書いたところ 取得できていないようです。 お知恵を拝借できますでしょうか。 いかがコードになります。 Private Sub cmd04_Click() Dim epData As String Dim epObj As String Dim myFile As String Dim mySQL As String Dim db As DAO.Database Dim myFol As String Dim myKey As String If txtPC番号 = Not Null Then myKey = txtPC番号 ElseIf com所属部所 = Not Null Then myKey = com所属部所 ElseIf txt使用者 = Not Null Then myKey = txt使用者 ElseIf txtPC名 = Not Null Then myKey = txtPC名 End If epData = CurrentProject.Path epObj = "T05_使用者一覧抽出結果" myFile = Screen.ActiveForm.Name Set db = CurrentDb() DoCmd.SetWarnings False DoCmd.OpenQuery "Q10_使用者一覧抽出結果" DoCmd.SetWarnings True mySQL = "INSERT INTO T05_使用者一覧抽出結果 select * FROM Q04_パソコン機器管理台帳 WHERE " & Me.Filter & ";" ' SQLを実行します。 db.Execute mySQL 'CSVファイルをエクスポート DoCmd.TransferText acExportDelim, , epObj, epData & "\" & Format(InDate, "yyyymmdd") & "_" & myKey & "_使用者一覧.csv", True MsgBox "エクスポートが完了しました" 'エクスポートしたフォルダを開く MsgBox "エクスポートが終了したのでフォルダを開きます" myFol = epData Shell "C:\Windows\Explorer.exe " & myFol, vbNormalFocus End Sub
- 締切済み
- Windows XP
- ACCESS VBA txtファイル出力
お世話になっております。 不慣れながら会社でACCESSVBAを使っております。 エクセルファイルをACCESSに取り込み、VBAを使ってtxtファイルとして出力したいです。 その際、現時点で出力まではできているのですが、先頭列の頭の０が落ちてしまいます。 頭の０を残すコードの書き方はどのようにすればよいのでしょうか。 また、そのような設定はありますか。 力不足で恐縮ですが、よろしくお願いします。 保存先はデスクトップ、テーブル名はテーブル名を代入した変数です。 DoCmd.TransferText acExportDelim, , テーブル名, "…(パス）…テスト.txt"
- 締切済み
- Visual Basic
- ACCESS TAB区切りのテキストのインポート
お世話になります。 ACCESS TAB区切りのテキストファイルのインポートができません。 タブ区切りのテキストファイルを 外部データ⇒テキストファイル‥‥と進めばインポートできるのですが DoCmd.TransferText acImportDelim, , "カテゴリ", "D:\okwave\テキスト\カテゴリ.txt", True では 実行時エラー '2391' 貼り付け先の'カテゴリ'には'カテゴリコードカテゴリー名親カテゴリ成分フラグ階層'フィールドがありません となります。 このテキストファイルを以下のようにカンマ区切りにするとインポートされます。 ------------------------------------------------------ カテゴリコード,カテゴリー名,親カテゴリ,成分フラグ,階層 01,化粧品,01,0,0 ----------------------------------------------------- インポートしたテーブル DoCmd.TransferText acExportDelim, , "カテゴリ", "D:\okwave\テキスト\カテゴリ.txt", True でエキスポートすると次のように変化しています。 -------------------------------------------------- "カテゴリコード","カテゴリー名","親カテゴリ","成分フラグ","階層" "01","化粧品","01",0,0 --------------------------------------------------------------- PCは Windows7,Access2010 です。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- MFC-L2740DWで異音や紙詰まりのトラブルが発生していますか？バックカバーを開けると紙詰まりは解消されますが、異音が続く問題があります。
- お使いの環境について、Windowsで無線LAN接続していることが分かりました。
- お困りの内容に関連するFAQもあります。ブラザー製品のFAQにアクセスして、同じトラブルが解決されているか確認してみてください。
お礼
ありがとうございます。 大変わかりやすい説明でした。 Format関数を用いればイイのですか。 早速試したトコロ 簡単にうまくいきました。