ログファイル　vba書き込み

Sub ImportLogFileToExcel()
    Dim filePath As String
    Dim sheetName As String
    Dim sheet As Worksheet
    Dim logFileData As Variant
    Dim existingSheet As Boolean
    
    ' ログファイルのパスを指定
    filePath = "C:\logs\log.txt"
    
    ' シート名をセルG7の値から取得
    sheetName = Range("G7").Value
    
    ' シート名が既に存在するかチェック
    existingSheet = False
    For Each sheet In ThisWorkbook.Sheets
        If sheet.Name = sheetName Then
            existingSheet = True
            Exit For
        End If
    Next sheet
    
    If existingSheet Then
        ' シート名が既に存在する場合は警告を表示
        MsgBox "シート名" & sheetName & "は既に存在します。"
    Else
        ' シートを追加
        Set sheet = ThisWorkbook.Sheets.Add
        sheet.Name = sheetName
        
        ' ログファイルを開いてデータを取得
        Open filePath For Input As #1
        i = 1
        Do Until EOF(1)
            Line Input #1, logFileData
            sheet.Cells(i, 1).Value = logFileData
            i = i + 1
        Loop
        Close #1
        
        ' メッセージを表示して処理を終了
        MsgBox "シート" & sheetName & "にデータを書き込みました。"
    End If
End Sub