Network Textbook
ネットワークの教科書
ネットワークの基礎から実務まで、順番に学べるメニューです。
VBAコラム
CSVへネットワーク調査結果を書き出す
調査結果をCSVに出力して活用しやすくしましょう
Ping結果やネットワーク調査結果をCSV形式で出力すると、 別の資料や管理表へ取り込みやすくなります。 ここでは、Excelの一覧をCSVファイルとして保存する基本例を整理します。
できること
- Excel上の調査結果をCSV形式で出力する
- IPアドレスや確認結果を別ファイルとして保存する
- 他の資料や管理台帳へ再利用しやすくする
処理の流れ
flowchart TB Start[Excel VBA] ReadData[Excel上のデータを取得] CreateCSV[新しいブックへ値のみコピー] SaveFile[CSV形式でファイル保存] Result[指定フォルダに出力完了] Start --> ReadData ReadData --> CreateCSV CreateCSV --> SaveFile SaveFile --> Result
VBAコード
Sub ExportToCsvSample()
Dim ws As Worksheet
Dim filePath As String
Dim lastRow As Long
Set ws = ActiveSheet
filePath = ThisWorkbook.Path & "\network_result.csv"
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
ws.Range("A1:B" & lastRow).Copy
Workbooks.Add
ActiveSheet.Range("A1").PasteSpecial xlPasteValues
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=filePath, FileFormat:=xlCSV
ActiveWorkbook.Close SaveChanges:=False
Application.DisplayAlerts = True
MsgBox "CSVを出力しました。" & vbCrLf & filePath, vbInformation
End Sub出力例（network_result.csv の中身）
IPアドレス,確認結果
192.168.1.1,成功
192.168.1.10,成功
192.168.1.20,失敗注意点
CSV形式で保存すると、Excel独自の書式や数式は保持されません。 調査結果を値として残したい場合に利用してください。
同じファイル名が既に存在する場合は、上書き保存になます。 必要に応じて、日付や時刻をファイル名に含める運用も検討してください。
まとめ
- VBAを使うと調査結果をCSV形式で出力できます
- CSVにすると他の資料や管理表へ活用しやすくなります
- 書式や数式は保持されないため、値の保存用途として使います
ネットワーク設計・トラブル対応でお困りではありませんか？
株式会社リアライズがサポートいたします。
- ネットワーク設計・構築
- トラブル調査・改善
- 業務効率化・自動化
コードの解説
出力元のシートを取得する
現在開いているシートを対象にして、CSVへ書き出す範囲を確認します。
保存先のファイル名を決める
ThisWorkbook.Pathを使い、ブックと同じ場所へnetwork_result.csvを作成します。出力範囲をコピーする
A列とB列のデータを、最終行までコピーして新しいブックへ貼り付けます。
CSV形式で保存する
新しいブックをCSV形式で保存し、調査結果を外部ファイルとして残します。