S-JIS[2011-05-24] 変更履歴 Excelマクロでファイル出力 Excelマクロ(VBA)でファイルを出力する方法。 Shift_JISでファイル出力 UTF-8でファイル出力 Shift_JISでファイル出力 ごく普通の(昔ながらのBASICでの)ファイル出力方法。 MSX-BASIC時代から存在するOPEN~PRINT#を使う。 WindowsのExcel2003の文字コードはシフトJIS(たぶんMS932)なので、出力したファイルはSJISとなる。 Dim fno As Integer fno = FreeFile Open "c:\temp\excel_vba_sjis.txt" For Output As #fno 'データ出力 Print #fno, "データ1"; ","; "データ2" Print #fno, "データ2"; ","; "データ3" Close