分岐確認 サンプル

Sub CreateResultFile()

’セルC2が空白でない場合にはCSVファイルが作成し、かつセルC2が空白の場合にはテキストファイルが作成

    Dim searchDate As String
    Dim fileName As String
    Dim filePath As String
    Dim fileContent As String
    Dim ws As Worksheet
    Dim cellC2 As Range

    ' 検索日の取得
    searchDate = Format(Date, "yyyymmdd")

    ' ファイル名の作成
    fileName = "対象なし_" & searchDate

    ' シート1を参照
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' セルC2を参照
    Set cellC2 = ws.Range("C2")

    ' セルC2が空白でない場合
    If cellC2.Value <> "" Then
        ' CSVファイルを作成し保存
        filePath = ThisWorkbook.Path & "\" & fileName & ".csv"
        Open filePath For Output As #1
        Print #1, "セルC2が空白ではありません。"
        Close #1
        MsgBox "CSVファイルが作成されました: " & filePath
    Else
        ' ファイル内容の作成
        fileContent = "検索結果が見つかりませんでした。"

        ' テキストファイルを作成し保存
        filePath = ThisWorkbook.Path & "\" & fileName & ".txt"
        Open filePath For Output As #1
        Print #1, fileContent
        Close #1

        MsgBox "テキストファイルが作成されました: " & filePath
    End If
End Sub