Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1250 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8019】CSV形式のエクスポートについて Satsuki 06/6/22(木) 13:05 質問[未読]
【8020】Re:CSV形式のエクスポートについて クロ 06/6/22(木) 14:33 回答[未読]
【8021】Re:CSV形式のエクスポートについて Satsuki 06/6/22(木) 14:50 質問[未読]
【8022】Re:CSV形式のエクスポートについて クロ 06/6/22(木) 15:32 回答[未読]
【8025】Re:CSV形式のエクスポートについて Satsuki 06/6/22(木) 16:05 質問[未読]
【8026】Re:CSV形式のエクスポートについて クロ 06/6/22(木) 17:03 回答[未読]
【8028】Re:CSV形式のエクスポートについて Satsuki 06/6/22(木) 17:19 お礼[未読]
【8029】Re:CSV形式のエクスポートについて ミオナ 06/6/22(木) 18:56 発言[未読]
【8035】Re:CSV形式のエクスポートについて Satsuki 06/6/23(金) 9:58 お礼[未読]
【8023】Re:追伸 クロ 06/6/22(木) 15:38 発言[未読]
【8019】CSV形式のエクスポートについて
質問  Satsuki  - 06/6/22(木) 13:05 -
引用なし
パスワード
   Satsukiと申します。
あちこち検索致しましたが、どうしても見つからないので、どなたかご教示頂けないでしょうか？
フォームで抽出したデータをＣＳＶファイルとしてエクスポートしたいのですが、各データにダブルクオーテーションマーク””をつけないようにするにはどうしたらよいでしょうか？
後、もう一点は、アクセスファイルとは違うところにエクスポートするための設定方法がわかりません。
よろしくお願いいたします。

　　Dim rs As DAO.Recordset
　　Dim myfile As Integer
　　
　　Set rs = Me.RecordsetClone
　　myfile = FreeFile
　　Open CurrentProject.Path & "\ﾌｧｲﾙ.txt" For Output As #myfile
　　
　　rs.MoveFirst
　　Do Until rs.EOF
　　
　　Write #myfile, rs.Fields("氏名＆番号"), rs.Fields("活動状況"), rs.fields("ｺﾒﾝﾄ"), rs.Fields("備考")
　　
　　rs.MoveNext
　　Loop
　　
　　Close #myfile
　　Set rs = Nothing
　　MsgBox "処理終了"
【8020】Re:CSV形式のエクスポートについて
回答  クロ  - 06/6/22(木) 14:33 -
引用なし
パスワード
   こんにちは

>後、もう一点は、アクセスファイルとは違うところにエクスポートするための設定方法がわかりません。

前後しますがこちらから…

>　　Open CurrentProject.Path & "\ﾌｧｲﾙ.txt" For Output As #myfile

ここのCurrentProject.Pathを別のパスを書いてみてください

Open "C:\●●●\ﾌｧｲﾙ.txt" For Output As #myfile

のような感じで

　
>　　Write #myfile, rs.Fields("氏名＆番号"), rs.Fields("活動状況"), rs.fields("ｺﾒﾝﾄ"), rs.Fields("備考")

ここは
Print #myfile, rs.Fields("氏名＆番号"); ","; rs.Fields("活動状況");",";rs.fields("ｺﾒﾝﾄ");",";rs.Fields("備考")

でどうでしょうか？
【8021】Re:CSV形式のエクスポートについて
質問  Satsuki  - 06/6/22(木) 14:50 -
引用なし
パスワード
   クロさん、早速お教え頂いてありがとうございます。
エクスポート先の設定は、思ったとおりになりました。
ありがとうございました。
後、ダブルクォーテーションマークはとれたのですが、フィールドによって前後にスペースが入ってしまうのはどのようにしたらよいでしょうか？
度々すいません。よろしくお願いいたします。


>こんにちは
>
>>後、もう一点は、アクセスファイルとは違うところにエクスポートするための設定方法がわかりません。
>
>前後しますがこちらから…
>
>>　　Open CurrentProject.Path & "\ﾌｧｲﾙ.txt" For Output As #myfile
>
>ここのCurrentProject.Pathを別のパスを書いてみてください
>
>Open "C:\●●●\ﾌｧｲﾙ.txt" For Output As #myfile
>
>のような感じで
>
>　
>>　　Write #myfile, rs.Fields("氏名＆番号"), rs.Fields("活動状況"), rs.fields("ｺﾒﾝﾄ"), rs.Fields("備考")
>
>ここは
>Print #myfile, rs.Fields("氏名＆番号"); ","; rs.Fields("活動状況");",";rs.fields("ｺﾒﾝﾄ");",";rs.Fields("備考")
>
>でどうでしょうか？
【8022】Re:CSV形式のエクスポートについて
回答  クロ  - 06/6/22(木) 15:32 -
引用なし
パスワード
   >後、ダブルクォーテーションマークはとれたのですが、フィールドによって前後にスペースが入ってしまうのはどのようにしたらよいでしょうか？

どのフィールドでしょうか？
そのフィールドにスペースが入っているということはないですか？

また、フィールド名に「氏名＆番号」を使われているようですが
出来れば変えた方がよいかと思います。

＃引用は必要最小限でお願いします。
【8023】Re:追伸
発言  クロ  - 06/6/22(木) 15:38 -
引用なし
パスワード
   また、フィールド名の半角命名はおよしになったほうがよいかと…
【8025】Re:CSV形式のエクスポートについて
質問  Satsuki  - 06/6/22(木) 16:05 -
引用なし
パスワード
   ▼クロ さん：
>どのフィールドでしょうか？
>そのフィールドにスペースが入っているということはないですか？

長くなるので記入を省略した部分で、文字数が少ないフィールドの前後にスペースが入るような気がします。下記の「高さ」や「ＩＤ」、「ＮＯ」のフィールドです。これらはすべて数値フィールドですのでスペースは入ってないのですが。

Print #myfile, rs.Fields("氏名＆番号"); ",";rs.Fields("高さ"); ","; rs.Fields("方向"); ",";rs.Fields("ID"); ",";rs.Fields("NO"); ","; rs.Fields("活動状況"); ",";rs.Fields("ｺﾒﾝﾄ"); ",";rs.Fields("備考")

>また、フィールド名に「氏名＆番号」を使われているようですが
>出来れば変えた方がよいかと思います。

はい、＆および半角は使わないように致します。

>＃引用は必要最小限でお願いします。

今後、気をつけます。

以上、大変お世話をかけますが、よろしくお願いいたします。
【8026】Re:CSV形式のエクスポートについて
回答  クロ  - 06/6/22(木) 17:03 -
引用なし
パスワード
   ついでに「NO」もやめた方がよいかと…

数値型フィールドのみ
Trim(rs.Fields("高さ"))
のようにTrimで括ってみてはどうでしょうか？

ここを参考にしてください(名前の付け方)
http://ww3.tiki.ne.jp/~kaya/Ac_tips.html#Tips0_001
【8028】Re:CSV形式のエクスポートについて
お礼  Satsuki  - 06/6/22(木) 17:19 -
引用なし
パスワード
   >数値型フィールドのみ
>Trim(rs.Fields("高さ"))
>のようにTrimで括ってみてはどうでしょうか？

クロさん、できました。ありがとうございます。
ほんとうに助かりました。

>ついでに「NO」もやめた方がよいかと…

なるほど、半角英数もまずいのですね。

>ここを参考にしてください(名前の付け方)
>http://ww3.tiki.ne.jp/~kaya/Ac_tips.html#Tips0_001

はい、参考にさせていただきます。
【8029】Re:CSV形式のエクスポートについて
発言  ミオナ  - 06/6/22(木) 18:56 -
引用なし
パスワード
   Satsukiさん、こんばんは。

>>ここを参考にしてください(名前の付け方)
>>http://ww3.tiki.ne.jp/~kaya/Ac_tips.html#Tips0_001
　　　↑　これを作った者です。(^_^;)


>>ついでに「NO」もやめた方がよいかと…
>なるほど、半角英数もまずいのですね。
誤解があるとまずいなぁと思ってしゃしゃり出たのですが、
半角英数がよくないというわけではありませんので、ご注意ください。
ただ、それがたまたま「予約語」などと同じ場合はよくないという
ことですので。
【8035】Re:CSV形式のエクスポートについて
お礼  Satsuki  - 06/6/23(金) 9:58 -
引用なし
パスワード
   ミオナさん、ありがとうございます。

>誤解があるとまずいなぁと思ってしゃしゃり出たのですが、
>半角英数がよくないというわけではありませんので、ご注意ください。
>ただ、それがたまたま「予約語」などと同じ場合はよくないという
>ことですので。

「NO」がまずいということですね。理解いたしました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1250 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1081090
(SS)C-BOARD v3.8 is Free