No.1
- 回答日時:
Windowsのcsv形式はダブルコーテーションに対応してないので保存時の設定で行うのはできないと思います。
シェアウェアですが下記のようなソフトがありますが...
超便利CSVコンバーター
http://www.vector.co.jp/soft/win95/business/se23 …
No.2ベストアンサー
- 回答日時:
「標準モジュール」に貼り付けることを想定して作りました。
ActiveSheet の UsedRange を取るように作られています。
「超便利CSVコンバーター 」のHPで、私のと仕上がりを比較してみましたが、こちらの試験では、同じように仕上がります。私のコードの中で、多少、気がかりな部分もありますが、これだけしたら、何も難しいことはしていませんので、内容的には簡単な部類だと思います。
Sub CsvOutWithQuatation()
Dim objFs As Object
Dim objText As Object
Dim Rng As Range
Dim DataRow As Long
Dim DataCol As Integer
Dim i As Long, j As Long
Dim buf As String
Dim myCsv As String
Const QT As String = """" 'クォーテーション
Const sep As String = "," 'コンマ切り
Const Ext As String = ".csv" '拡張子
Dim myPath As String
Set objFs = CreateObject("Scripting.FileSystemObject")
Set Rng = ActiveSheet.UsedRange
DataRow = Rng.Rows.Count
DataCol = Rng.Columns.Count
myPath = ThisWorkbook.Path & "\" 'マクロのブックのパスと同じ場所
If Application.CountA(Rng) <= 1 Then
MsgBox "データが1つか、空です", 16
Exit Sub
End If
Do
myCsv = Application.InputBox("ファイル名を入れてください", Type:=2)
If myCsv = "False" Or myCsv = "" Then
Exit Sub
Else
If InStr(myCsv, Ext) = 0 Then
myCsv = myCsv & Ext
End If
End If
If Dir(myPath & myCsv) <> "" Then
MsgBox "同名のファイルが既にあります", 16
End If
Loop Until Dir(myPath & myCsv) = ""
Set objText = objFs.CreateTextFile(myPath & myCsv)
For i = 1 To DataRow
If VarType(Rng.Cells(i, 1)) = vbString Then
buf = QT & Rng.Cells(i, 1).Value & QT
Else
buf = Rng.Cells(i, 1).Value
End If
For j = 2 To DataCol
If VarType(Rng.Cells(i, j)) = vbString Then
buf = buf & sep & QT & Rng.Cells(i, 1).Value & QT
Else
buf = buf & sep & Rng.Cells(i, j).Value
End If
Next j
objText.WriteLine (buf)
Next i
Set Rng = Nothing
Set objText = Nothing
Set objFs = Nothing
Beep '終了したら、音がなります。
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) CSVファイルの「0落ち」にVBA 6 2023/02/02 15:27
- Excel(エクセル) csvファイルをExcel形式で読み込むには 2 2023/07/03 13:09
- システム CSVファイルのマッピング処理の省力化 1 2022/11/24 00:01
- PHP csvファイルについて教えて下さい。 2 2023/04/01 19:59
- Excel(エクセル) csvに別のExcelの文章を差し込む 2 2023/04/01 16:06
- Excel(エクセル) PowerQueryに詳しい方教えてください(Office365) 1 2022/07/24 21:11
- システム メールのcsv添付ファイルの種類を テキスト形式からカンマ区切り形式に 変更する方法はありますか? 4 2023/03/09 20:33
- その他(Microsoft Office) ExcelをPDFで保存..できる無料版オフィスソフト 5 2023/07/09 09:57
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Excel(エクセル) Excelの帳票形式をアクセスに取り込むため、 csvのデータ形式になるように、マクロを作成している 2 2022/06/12 22:52
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Access】クエリで抽出...
-
Excelでhtml形式のテキストを表...
-
複数eml形式のBecky!への一括イ...
-
Excel 2016 テキストファイルの...
-
SQLSever 一括インポートについて
-
ACCESS複数テキストファイルを...
-
Wordの文章をExcelに内容ごとに...
-
アクセス(ACCESS) インポート...
-
複数のエクセルファイルをアク...
-
エクセル2000で65536行を超える...
-
既存のエクセルデータ(非CS...
-
秀丸で数字に3桁ごとにカンマを...
-
CSVファイルをEXCELに...
-
差し込み印刷の元データファイ...
-
ISOファイルとMDSファイル
-
【マクロ】読取専用のファイル...
-
EXCEL VBA 指定したファイルが...
-
変えてしまったファイル形式を...
-
エクセルでのアクセス履歴をと...
-
Excelブックの共有をしているの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【Access】クエリで抽出...
-
Excelのデータ(数字)をテキス...
-
Wordの文章をExcelに内容ごとに...
-
SQLSever 一括インポートについて
-
複数eml形式のBecky!への一括イ...
-
アクセス(ACCESS) インポート...
-
Excelでhtml形式のテキストを表...
-
ダブルクォーテーション囲いカ...
-
ACCESS CSV形式でエクスポート...
-
多数のeml形式ファイルを1つの...
-
アクセスで小数点以下1桁まで...
-
エクセル2000で65536行を超える...
-
【AccessVBA】ダイアログで複数...
-
mdbをテキストに変換するツール...
-
notepad++ で作成した文書を cs...
-
複数のエクセルファイルをアク...
-
Accessのテーブルにデー...
-
アクセス2007でのインポートエ...
-
VBA 複数のCSVファイルを一度...
-
CSVファイルを固定長のテキスト...
おすすめ情報