ＣＳＶ形式での保存時に”文字列引用符”にしたい（エクセル）(1/2)

こんばんは。

＞プログラムありがとうございました。ただ使う人間が理解できないので、使えませんでした。ごめんなさい。

CSVの「"　"」で囲うマクロって、ある種定番ですから、どなたか分る方に組んでもらってください。#4さんには失礼かもしれませんが、Excel内で出来るものを、わざわざ外部ツールまで使う必要性はないと思います。そうしないと、いつまで経っても、Excelは不便さが残ってしまいます。

それから、お仕事で、VBA禁止の場合のご質問は、最初から、その旨を書いてくださいね。分らないから聞いていらっしゃるのでしょうから、手順まで書いてありながら、「理解できないから、使えません」なんて言うのは、とてもおかしな対応だと思います。

投稿日時 - 2005-09-27 22:04:38

下記だと、プログラムが簡単に済みます。やってみてください。
DOS－Basic時代からある、Input,Writeステートメントの特徴を最大限使ってます。
Sub test01()
Open "Book1.csv" For Input As #1
Open "Book2.csv" For Output As #2
While Not EOF(1)
Input #1, s1, s2
Write #2, s1, s2
Wend
Close #1
Close #2
End Sub
ーーーーー
修正必要個所
（１）インプットファイル名のBook1,アウトプットファイル名Book2のところを質問者に合わせて変えてください。
（２）１レコード（メモ帳で１行）の項目数により
Input #1, s1, s2
Write #2, s1, s2
のS1,S2,・・を増やしてください。上記は２項目の例です。
実際テスト例示
（実行前のインプットファイル）メモ帳で
12,a
34,sd
23,f
45,ghj

（実行後）
アウトプットファイル（メモ帳で確認）
12,"a"
34,"sd"
23,"f"
45,"ghj"

投稿日時 - 2005-09-21 20:38:17

Excel側で処理するのは他の方にお任せして、CSVファイルを加工する方法を紹介します。

御希望のことは「テキスト(CSV)ファイル変換」というソフトでできると思います。ちょっと前にCSVを扱うツールをいろいろ試してみたのですが、指定した列だけに引用符を付加できるのは、私が探した限りではこれだけでした。ただし、レコードごとに列数が違うとうまくいかないので、空白セルにはダミーを入れておく必要があります。引用符をつけた後はテキストエディタで一括削除してしまえばいいでしょう(ちょっと面倒ですけどね)。

とにかく、全部の列に引用符を付けるのなら「IKARI」というツールでもできました。他にも何種類かあるかもしれません。

私の場合ですが、ファイルが大きかったのでGUIのツールはどれも使えませんでした(古いマシンだったので固まってしまった)。結局、AWKで簡単なスクリプトを書いて処理しました。うまくいかない場合は、このようなスクリプト言語を使うのも手だと思います。

参考URL：http://www.koka-soft.com/okada/koka_software/chgfld.htm

投稿日時 - 2005-09-21 18:41:05

こんにちは。

簡単なコードですみませんが、こんなもので出来るはずです。現在のコードでは、すべて、文字列として、「" "」クォーテーションで括ってしまいます。数字との区別はありません。

一応、標準モジュールに登録してください。

Alt　+　 F11 (Altを押しながらF11）を押すと、Visual Basic Editor 画面が出てきます。
次に、メニューの[挿入]－[標準モジュール]と開けて、クリックすると、画面が現れますので、以下のコードを貼り付けて、再び、Alt　+　F11 で、画面を閉じます。

後は、Alt + F8 で、CSVEport_W_Qt を実行してみてください。（プロシージャーの名前は任意ですから、和名を付け直しても結構です。）

'--------------------------------------------
Option Explicit
Sub CSVExport_W_Qt()
　 Dim Fname As String
　 Dim usedRng As Range
　 Dim i As Long, j As Long
　 Dim buf As String
　 Dim Fno As Integer
　 Const Qt As String = """"
　 Fname = Application.InputBox("出力名を入力してください。", Type:=2)
　 If VarType(Fname) = vbBoolean Or Fname = "" Then Exit Sub
　 If InStr(Fname, ".csv") = 0 Then Fname = Fname & ".csv"
　 Fno = FreeFile()
　 Open Fname For Output As #Fno
　 With ActiveSheet
　　　Set usedRng = .UsedRange
　　　On Error Resume Next
　　　For i = 1 To usedRng.Rows.Count
　　　　 For j = 1 To usedRng.Columns.Count
　　　　　　If Not IsEmpty(usedRng.Cells(i, j)) Then
　　　　　　　 buf = buf & "," & Qt & usedRng.Cells(i, j).Value & Qt
　　　　　　　 Else
　　　　　　　 buf = buf & ","
　　　　　　End If
　　　　 Next j
　　　　 Print #Fno, Mid$(buf, 2)
　　　　 buf = ""
　　　Next i
　　　On Error GoTo 0
　 End With
　 Close #Fno
　 Beep
End Sub
'--------------------------------------------

投稿日時 - 2005-09-21 14:42:23

エクセルで保存する時ＣＳＶを選択すると、ＣＳＶ形式(Comma Separated Value)
になっています。
メモ帳かワードパットを開けて確認してみてください。
ホストに送信する時、よく行ってました。

投稿日時 - 2005-09-21 13:22:05