Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1554 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【6571】テーブルをｃｓｖ形式で出力したいのですが nemotnemot 05/10/24(月) 10:05 質問[未読]
【6572】Re:テーブルをｃｓｖ形式で出力したいので... 小僧 05/10/24(月) 13:05 発言[未読]
【6578】Re:テーブルをｃｓｖ形式で出力したいので... nemotnemot 05/10/25(火) 10:32 質問[未読]
【6579】Re:何がダメなのか書かないと たん 05/10/25(火) 10:45 発言[未読]
【6580】Re:何がダメなのか書かないと nemotnemot 05/10/25(火) 10:57 質問[未読]
【6581】Re:テーブルをｃｓｖ形式で出力したいので... 小僧 05/10/25(火) 11:01 回答[未読]
【6582】Re:テーブルをｃｓｖ形式で出力したいので... nemotnemot 05/10/25(火) 11:17 質問[未読]
【6583】Re:テーブルをｃｓｖ形式で出力したいので... 小僧 05/10/25(火) 11:26 発言[未読]
【6584】Re:テーブルをｃｓｖ形式で出力したいので... nemotnemot 05/10/25(火) 12:18 お礼[未読]
【6571】テーブルをｃｓｖ形式で出力したいのですが
質問  nemotnemot  - 05/10/24(月) 10:05 -
引用なし
パスワード
   テーブルをｃｓｖ形式で保存したいのですが、TransferText メソッドのヘルプを参考にしてもよくわかりませんでした。

通常、テーブルＡを開いたまま、ファイルから名前をつけて保存／エクスポートを選んで外部ファイルまたはデータベースを選択し、データ形式を区切り記号付きを選択し、フィールド区切り記号をカンマを選択、テキスト区切り記号をなしを選択たいのですが、ＶＢＡでの記述が全然わかりません。よろしく御願いします。
【6572】Re:テーブルをｃｓｖ形式で出力したいので...
発言  小僧  - 05/10/24(月) 13:05 -
引用なし
パスワード
   ▼nemotnemot さん：
こんにちは。
>通常、テーブルＡを開いたまま、ファイルから名前をつけて保存／エクスポートを選んで
>外部ファイルまたはデータベースを選択し、データ形式を区切り記号付きを選択し、
>フィールド区切り記号をカンマを選択、テキスト区切り記号をなしを選択

の状態で左下にある「設定」ボタンを押し、「保存」ボタンを押して
適当な名前で保存します。

あとは TransferText メソッドの第2引数に、名前を付けた定義を指定すると
思い通りの形でエクスポートできると思います。

DoCmd.TransferText acExportDelim, "定義名","テーブル名", "出力先フルパス"
【6578】Re:テーブルをｃｓｖ形式で出力したいので...
質問  nemotnemot  - 05/10/25(火) 10:32 -
引用なし
パスワード
   小僧 さん：
こんにちは
いつもいつもありがとうございます。
定義を作成して
>DoCmd.TransferText acExportDelim, "定義名","テーブル名", "出力先フルパス"
を使用して下記モジュールを作って見ましたがうまくいきません。
なにがおかしいのでしょうか？

INRs!作成月には10月分

Public Function 外部テーブル出力()
Dim wspDefault As Workspace, dbs As Database
Dim tdf As TableDef, fld1 As Field, fld2 As Field
Dim idx As Index, fldIndex As Field
Dim Db As Database
Dim INRs As Recordset
Dim 読込 As String
Dim 名前 As String

　Set Db = CurrentDb
　読込 = "作成年テーブル"
　Set INRs = Db.OpenRecordset(読込, dbOpenDynaset)
　　
　名前 = "A:\テーブル" & INRs!作成月 & ".CSV"

　DoCmd.TransferText acExportDelim, "Ａ定義", "Ａテーブル", "名前"

　INRs.Close
　Db.Close

End Function
【6579】Re:何がダメなのか書かないと
発言  たん  - 05/10/25(火) 10:45 -
引用なし
パスワード
   横から失礼。

>を使用して下記モジュールを作って見ましたがうまくいきません。

ロジックだけ提示しても、「うまくいかない」のが何なのか、
質問者以外は誰も分かりません。


エラーが出たのか？（どういうエラー）
結果がおかしいのか？（どうおかしいのか）

質問者の現状は質問者にしかわからないのだから、
それを提示出来ないなら、回答は出てこないかと。
【6580】Re:何がダメなのか書かないと
質問  nemotnemot  - 05/10/25(火) 10:57 -
引用なし
パスワード
   ▼たん さん：
言葉が足らなくて申し訳ありません。
実行してもエラーにはならずＡ：（フロピィ）に何も出力されません。
どうしてでしょうか？
ほんとうにすみません
【6581】Re:テーブルをｃｓｖ形式で出力したいので...
回答  小僧  - 05/10/25(火) 11:01 -
引用なし
パスワード
   ▼nemotnemot さん、たんさん：
こんにちは。

まずは たんさん の仰られている通り、
どの行でどのようなメッセージが出てうまくいかないのかを
ご提示して下さらないと、回答者(当方以外も)の方も答えにくいですよ。


とはいえ、うまくいかなさそうな所がありますね…。


>INRs!作成月には10月分
>名前 = "A:\テーブル" & INRs!作成月 & ".CSV"

名前 という変数には 「A:\テーブル10月分.CSV」という値が入りましたが、

>DoCmd.TransferText acExportDelim, "Ａ定義", "Ａテーブル", "名前"

これですと「名前」という文字列にエクスポートする事になってしまっていますね。
【6582】Re:テーブルをｃｓｖ形式で出力したいので...
質問  nemotnemot  - 05/10/25(火) 11:17 -
引用なし
パスワード
   ▼小僧 さん：
こんにちは
いろいろすみません。
とりあえず
DoCmd.TransferText acExportDelim, "Ａ定義", "Ａテーブル", "ａ："
で実行すとフロピィにはアクセスするのですが、上記のところで引数が正しくありませんと出てしまいます。
勉強不足で申し訳ありません。
よろしくお願いします
【6583】Re:テーブルをｃｓｖ形式で出力したいので...
発言  小僧  - 05/10/25(火) 11:26 -
引用なし
パスワード
   ▼nemotnemot さん：
こんにちは。

>引数が正しくありませんと出てしまいます。

上記エラーと関係ないかもしれませんが…。

HELPの使用例と比べてみましょう。

DoCmd.TransferText acExportDelim, "標準出力", "受注",　　　 "C:\Txtfiles\April.doc
DoCmd.TransferText acExportDelim, "Ａ定義"　, "Ａテーブル", "ａ："

nemotnemot さんのコードに足りない所はありませんでしょうか
【6584】Re:テーブルをｃｓｖ形式で出力したいので...
お礼  nemotnemot  - 05/10/25(火) 12:18 -
引用なし
パスワード
   ▼小僧 さん：
こんにちは。

できました。
ありがとうございます。
本当にほんとうにありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1554 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078230
(SS)C-BOARD v3.8 is Free