xlsファイルの複数シートを、個別にxlsファイルとして出力する。 (これも何かを参考にして作成した気がするが...) 出力先は基ファイルと同じフォルダとなる。 未保存のファイルに対し実行するとカレントドライブ直下(C:\とか)に出力されるため注意。 'シートを個別にファイルとして出力する Public Sub OutputSheetFile() Dim intIdx As Integer '処理用インデックス Dim intWksCnt As Integer '処理用カウンタ Dim objWks As Object 'シート作成用オブジェクト Dim strWbkNme As String 'Excelワークブック名(拡張子含まず) Dim strWbkDir As String 'Excelワークブック保存場所 Dim