Как записать в текстовый файл после его создания?

Question

Я хочу извлечь ячейку A2 из Excel и ее смещение (0,1) и поместить ее в созданный текстовый файл.

Как продолжить, поскольку я не объявил переменную для созданного текста файл?

Sub CreateFileandWrite()
Open ThisWorkbook.Path & "\Test.txt" For Output As #1
Print #1, "Hello"
Print #1, strContent
Close #1
End Sub

Answer 1

Для A2 и его смещение:

Sub FileMaker()

    Close #1
    Open "C:\TestFolder\sample1.txt" For Output As #1
        Print #1, Range("A2").Value
        Print #1, Range("B2").Value
    Close #1
End Sub

Answer 2

Если вы хотите создать текстовый файл с кодом, вы также можете сделать это следующим образом

Public Sub txtfile()

    Dim filePath As String
    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
    Dim fileStream As TextStream

    filePath = "C:\Users\Nytro\Desktop"

    Set fileStream = fso.CreateTextFile(filePath & "\" & "NameOfFile" & ".txt")

    Set cell = Cells(2, 1)
    Set cell2 = cell.Offset(0, 1)

    fileStream.WriteLine cell 'or fileStream.WriteLine cell & cell2 if you want to write them on the same line
    fileStream.WriteLine cell2

End Sub