'===========================================================
' Excel2Text Macro                     By 1994/x/x  Ryn
'===========================================================
' ExcelのSheet1のA1〜A100のデータを、Nullセルになるまでテキストファイルに書き出します。
' 書き出すフォルダは、「マイドキュメント」です。
' このサンプルでは、FileCheck関数が必要です。
'
Sub Excel2Text()
    Dim WriteBookName As String
    Dim Hanxi, Namae As Object
'
    Application.EnableCancelKey = xlDisabled
    Sheets("Sheet1").Select
    ActiveSheet.Unprotect
    WriteBookName = InputBox("テキストファイル名", "テキストファイルへ書き出す", _
                                                "TextFile.TXT", , , ヘルプファイル, HELP_Text_OUT)
    If WriteBookName <> "" Then
        Application.ScreenUpdating = False
        If FileCheck(WriteBookName, 2) Then                         ' FileCheck関数 が True ならば
            On Error GoTo Error_Check
            Open WriteBookName For Output As #1
            Set Hanxi = Range("A1:A100")
            For Each Namae In Hanxi
                If IsEmpty(Namae.Value) Then
                    Exit For
                End If
                Print #1, Namae
            Next Namae
            Close #1
            Range("A1").Select
        End If
        Application.ScreenUpdating = True
    End If
    ActiveSheet.Protect
    Exit Sub

Error_Check:
    MsgBox "書き込み出来ませんでした", vbExclamation, "エラーメッセージ"
    Close #1
    ActiveSheet.Protect
    Application.ScreenUpdating = True
End Sub