Excelファイルの取込およびテキストファイルへの出力

質問

はじめて質問させて頂きます。yu_ki0223と申します。

Ｅｘｃｅｌ２０００のＶＢＡにて、以下のような事をしたいと考えています。
参考となるようなホームページもしくはサンプルプログラム等ありましたら
お教えいただきたく宜しくお願い致します。

■質問
あるExcelの表を取込み、判断対象となる列Ａの値が「判断対象１」だった場合、
「判断対象１」に連動する列Ｂの値をテキストファイルに出力し、改行する。

また、列Ａの値が「判断対象３」の場合のみ、列Ｂの値を返さず『テスト３』と
別の文字を出力し、改行する。

【列Ａの値】
・判断対象１
・判断対象２
・判断対象３

【列Ｂの値】
・ＴＥＳＴ１
・ＴＥＳＴ２
・ＴＥＳＴ３

回答No.1

Wendy02 · ベストアンサー

サンプルコードです。
条件は、ご自身でお作りください。

'<標準モジュール登録>

Sub CheckColumnA()
　Dim FNo As Integer
　Dim c As Range
　'要設定:最後は必ず、「\」入れてください。
　Const myPath As String = "D:\"
　'テキスト出力ファイル名
　Const myFname As String = "CheckColumn.Txt"
　'出力ファイルのチェック
　If Dir(myPath & myFname) <> "" Then
　　If MsgBox("同名のファイルがありますが、上書きしてよいですか？", _
　　　32 + vbOKCancel) = vbCancel Then
　　　Exit Sub
　　End If
　End If
　FNo = FreeFile()
　Open myPath & myFname For Output As #FNo
　For Each c In Range("A1", Range("A65536").End(xlUp))
　　'条件を入れる
　　If c.Value < 30 And _
　　　c.Value > 0 Then
　　　Print #FNo, c.Offset(, 1).Value
　　　Else
　　　Print #FNo, "テスト3"
　　End If
　Next c
　Close #FNo
　MsgBox "終了", 64
End Sub

お礼

回答ありがとうございます。
サンプルコードを参考にさせていただきます。