選択した範囲をTSV出力(タブ区切りテキスト出力)したい
Excelで、特定の範囲をタブ区切りのTXTファイルに出力し
他アプリケーションへインポートさせたいケースがあります。
下記のようにActiveSheetや、すべてのシートをTSVエクスポートするケースだけではなく、
シートの作成上、一部分だけCSV出力させたいケースもあるかと思います。
「全シートを タブ区切りテキストで保存する処理」をパーツ化する。【エクセルマクロ】
「ActiveSheetをタブ区切りのテキストで出力保存する」をパーツ化する。【VBAマクロ】
範囲選択した部分(Range)をTSVファイルとして出力するマクロは以下です。
選択した範囲のCSV出力サンプルコード
'■現在開いているシートをCSVデータで保存する
Public Sub call_RangeSaveTSV()
Dim fPath As String
Dim fName As String
Dim rng As Range
'■現在開いているブック情報をファイル名にするため、変数に格納
fPath = ActiveWorkbook.Path & "\"
fName = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".")) & "csv"
Application.DisplayAlerts = False
'■現在選択しているセル情報をrngに格納
Set rng = Selection
'■新規ブック作成→rngをA1にコピー→TSV保存→CSV閉じる
Workbooks.Add
rng.Copy ActiveSheet.Range("A1")
ActiveWorkbook.SaveAs Filename:=fPath & ws.Name, FileFormat:=xlText
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
[/vbnet]注意点
- 保存先のファイルが既に存在してた場合は、強制的に上書きします。
コメント