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