| ＣＳＶ出力is22ダブルクォーテーションを削除する方法 業務ｿﾌﾄ 基幹の総合管理 |
| ■概要 |
| ・アクセスで作成したデータ(テーブル）をエクスポート出力する時、ｃｓｖのダブル・クォーテーションを削除する |
| ・又、csv出力時のﾃﾞｰﾀの種類によりﾚｺｰﾄﾞのｶﾝﾏ数を変更する事が出来ます（excel出力して,csv変換では項目数固定の為不可） |
| ・対応する為に⇒①出力ﾃｰﾌﾞﾙ・ﾚｲｱｳﾄ②ﾃｰﾌﾞﾙ内容（ｸｴﾘｰで作成）③ｲﾍﾞﾝﾄで記述のﾌﾟﾛｸﾞﾗﾑ（処理する箇所） |
| ・下記に具体的記述事例 |
| ■access対応（ﾌﾟﾛｸﾞﾗﾑ）事例 |
| ①ﾃｰﾌﾞﾙ ・・ ｃｓｖに出力するﾃｰﾌﾞﾙ |
| ・・ﾃｰﾌﾞﾙ名 → wk_csv_sum 、ﾃｰﾌﾞﾙの項目 → csv_item （出力する為の１項目） |
| ②ﾃｰﾌﾞﾙ内容（ｸｴﾘｰで作成する項目のﾛｼﾞｯｸ） ・・ ｃｓｖで出力したい内容をwk_csv_sumに追加ｸｴﾘｰで作成 |
| ・・具体的な記述事例(ｸｴﾘｰ） ・・ csv_itemにｾｯﾄ → A & "," & B & "," & C A,B,Cの3つの項目をcsv出力する場合 |
| ③イベント先で記述の内容（実行ﾎﾞﾀﾝのjump先） |
| ・・Dim db AS DAO.Database |
| ・・Dim rs AS DAO.Recordset |
| ・・ |
| ・・Set db=CurrentDb() |
| ・・Set rs=db.OpenRecordset("wk_csv_sum",dbOpenDynaset) |
| ・・rs.Movefirst |
| ・・Open CurrentProject.Path & "出力csv_name.csv" For Output As #1 |
| ・・Do Until rs.EOF |
| ・・・・・ Print #1,rs!csv_item |
| ・・・・・ rs.MoveNext |
| ・・Loop |
| ・・Close #1 |
| ・・rs.Close |
| ・・db.Close |
| ★ﾌﾞﾙｰの文字の名前は変更可。又、CurrentProject.Pathにより出力場所を決めています |
| ■補足 |
| ・ﾀﾞﾌﾞﾙ・ｸｫｰﾃｰｼｮﾝ削除の問題はﾈｯﾄで手法を調べたが、参考記述が見つからず、独自に対応。その内容を記述しています。 |
| ・開発の参考になれば幸いです。あくまで参考なので、ﾃｽﾄは十分にして下さい（ﾈｯﾄでも結構悩んでいる方がいたので掲載） |
| ・お時間あれば、他の頁もご覧ください |