Option Explicit Sub CreateFile() Dim StrFileName As String Dim intFileNo As Integer StrFileName = ActiveWorkbook.Path & "out.txt" intFileNo = FreeFile Open StrFileName For Output As #intFileNo Write #intFileNo, "これはWriteテストです。" Print #intFileNo, "これはPrintテストです。" Close #intFileNo End Sub