bonlifeです。大量のExcelファイルをCSVにする必要が出てきたので、慣れないVBScriptを書いてみましたよ。書いた後にググッたらほぼ同じスクリプトがありました(MS-ExcelファイルをCSV形式で保存するWSHスクリプト)が、気にしないことにします! カレントフォルダのExcelファイルの特定のシートをCSVに変換 (excelToCsv.vbs) Option Explicit ' On Error Resume Next ' 変数の宣言 Dim Msg Dim objFS Dim objFolder Dim objFiles Dim objFile Dim objExcel Dim targetSheetNum ' CSVに変換するシートを指定 targetSheetNum = 2 ' 開始処理 Msg = MsgBox("はーじめーるよー!(^o^)ノ", vbYes