CSVの出力（書き出し）方法
シート内容をCSV出力（書き出し）する方法です。
VBAでのCSVの扱い方まとめ
エクセルの機能をそのまま利用します
Sub CSV出力(ByVal sht As Worksheet, Optional ByVal rngStart As Range = Nothing)
Dim varFile As Variant
varFile = Application.GetSaveAsFilename(InitialFileName:=sht.Name & ".csv", _
FileFilter:="CSVファイル(*.csv),*.csv", _
FilterIndex:=1, _
Title:="保存ファイルの指定")
If varFile = False Then
Exit Sub
End If
sht.Select
sht.Copy
'不要な先頭の行列を削除します。
If Not rngStart Is Nothing Then
If rngStart.Row > 1 Then
Range(Rows(1), Rows(rngStart.Row - 1)).Delete
End If
If rngStart.Column > 1 Then
Range(Columns(1), Columns(rngStart.Column - 1)).Delete
End If
End If
ActiveWorkbook.SaveAs Filename:=varFile, FileFormat:=xlCSV, CreateBackup:=False
ActiveWindow.Close
MsgBox ("CSV出力しました。" & vbLf & vbLf & varFile)
End Sub
※csv出力時日付がm/d/yyyyになってしまう場合の対処
・SaveAsの引数に、Local:=Trueを追加
・表示形式は「*2012/3/14」のような*付き以外書式を選択
「*2012/3/14」になっているとm/d/yyyyになってしまいます。
これにより、どのシートからも使えるようになります。
シート名+「.csv」を初期のファイル名にしています。
拡張子は、csvのみ指定しています。
開始セルより上の行、左の列は削除して、CSVに出力されないようにしています。
処理の流れは、
↓
シートの新規ブックへのコピー
↓
不要な行列の削除
↓
名前を付けて保存
他システム、特にDB等へアップロードする場合には、このままでは出来ない事があるのです。
例えば、日付は、表示形式のままの文字列で出力されてしまいます。
また数値もカンマ付の場合は、"12,345"のように、文字列として出力されます。
CSV出力前に、当該シートの書式を全て直してから行えばよいのですが、
書式の変更も面倒なら、また元に戻す必要があり、何かと不都合です。
直接CSVを出力
Sub CSV出力(ByVal sht As Worksheet, Optional ByVal rngStart As Range = Nothing)
Dim varFile As Variant
Dim FSO As New FileSystemObject
Dim TS As TextStream
Dim lngRowMin As Long, lngRowMax As Long
Dim lngColMin As Long, lngColMax As Long
Dim i As Long
varFile = Application.GetSaveAsFilename(InitialFileName:=sht.Name & ".csv", _
FileFilter:="CSVファイル(*.csv),*.csv", _
FilterIndex:=1, _
Title:="保存ファイルの指定")
If varFile = False Then
Exit Sub
End If
'開始行列、終了行列を取得
If rngStart Is Nothing Then
lngRowMin = 1
lngColMin = 1
Else
lngRowMin = rngStart.Row
lngColMin = rngStart.Column
End If
With rngStart.CurrentRegion
lngRowMax = .Item(.Count).Row
lngColMax = .Item(.Count).Column
End With
Set TS = FSO.CreateTextFile(Filename:=varFile, Overwrite:=True)
For i = lngRowMin To lngRowMax
TS.WriteLine CSV_EditRec(sht, i, lngColMin, lngColMax)
Next
TS.Close
Set TS = Nothing
Set FSO = Nothing
MsgBox ("CSV出力しました。" & vbLf & vbLf & varFile)
End Sub
Private Function CSV_EditRec(ByVal sht As Worksheet, _
i As Long, _
lngColMin As Long, _
lngColMax As Long) As String
Dim strRec As String
Dim strCol As String
Dim j As Long
strRec = ""
For j = lngColMin To lngColMax
Select Case True
Case IsNumeric(sht.Cells(i, j))
strCol = CStr(CDbl(sht.Cells(i, j)))
Case IsDate(sht.Cells(i, j))
If InStr(sht.Cells(i, j), "-") Then
strCol = sht.Cells(i, j)
Else
strCol = Format(sht.Cells(i, j), "yyyy/mm/dd")
End If
Case InStr(sht.Cells(i, j), ","), InStr(sht.Cells(i, j), """")
strCol = """" & sht.Cells(i, j) & """"
Case Else
strCol = sht.Cells(i, j)
End Select
If strRec = "" Then
strRec = strCol
Else
strRec = strRec & "," & strCol
End If
Next
CSV_EditRec = strRec
End Function
※参照設定をしています。
FileSystemObjectの詳細については以下を参照してください。
第119回.ファイルシステムオブジェクト（FileSystemObject）｜VBA入門
Open ファイル For Output As #1
こちらでも良いです。
処理内容は単純です。
要は、
この内容だけでしょう。
セルの値を判定し、データ内容によって、編集処理を分けています。
ここでは、数値、日付、「"」や「,」を含む文字列、その他、の4通りです。
「CSV_EditRec」での編集は、CSVの使い道により、変更を加える必要があります。
例えば、日付は、「#2011/05/17#」のようにする必要がある場合もでてくるでしょう。
コピペで、いろいろ使い回しが可能だと思います。
本サイトにあるCSV関連記事一覧
※UTF-8に対応している記事と対応していない記事があります。
同じテーマ「マクロVBAサンプル集」の記事
VBAでのCSVの扱い方まとめ
CSVの読み込み方法
CSVの読み込み方法（改）
CSVの読み込み方法（改の改）
CSVの読み込み方法（ジャグ配列）
CSVの読み込み方法（ジャグ配列）（改）
CSVの出力（書き出し）方法
UTF-8でCSVの読み書き（ADODB.Stream）
ADOでマスタ付加と集計（SQL）
ADOでマスタ更新（SQL）
ADOでCSVの読み込み（SQL）
新着記事NEW ・・・新着記事一覧を見る
TRIMRANGE関数（セル範囲をトリム：端の空白セルを除外）｜エクセル入門(2024-08-30)
正規表現関数（REGEXTEST,REGEXREPLACE,REGEXEXTRACT）｜エクセル入門(2024-07-02)
エクセルが起動しない、Excelが立ち上がらない｜エクセル雑感(2024-04-11)
ブール型（Boolean）のis変数・フラグについて｜VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する｜VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次｜エクセルの神髄(2024-03-20)
VBA10大躓きポイント（初心者が躓きやすいポイント）｜VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成｜ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。｜エクセル雑感(2024-02-17)
初級脱出10問パック｜VBA練習問題(2024-01-24)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.繰り返し処理（For Next)｜VBA入門
5.RangeとCellsの使い方｜VBA入門
6.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
7.セルのクリア（Clear,ClearContents）｜VBA入門
8.メッセージボックス(MsgBox関数)｜VBA入門
9.条件分岐（Select Case）｜VBA入門
10.ブック・シートの選択（Select,Activate）｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBAサンプル集
- CSVの出力（書き出し）方法
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。