Как написать программу Visual Basic Application (Excel), которая записывает текст из двух ячеек в новый текстовый файл?

Question

Как я могу написать программу Visual Basic Application (Excel), которая записывает текст из двух ячеек в новый текстовый файл при нажатии кнопки?Я очень мало знаю, если вообще что-нибудь, о Visual Basic, и гораздо меньше о приложении Visual Basic.Все онлайн-ресурсы подвели меня, так как они не работают так, как я намереваюсь выполнить программу, или не работают вообще, из-за ошибок, которые я не знаю, как решить.

Answer 1

Sub Makro1()
'
' Makro1 Makro
'

'
    Dim myFile As String, rng As Range, cellValue As Variant, i As Integer, j As Integer
    myFile = Application.DefaultFilePath & "\text_file.txt"
    Set rng = Selection
    Open myFile For Output As #1
    cellValue = Range("A1").Value
    Write #1, cellValue
    cellValue = Range("B1").Value
    Write #1, cellValue
    Close #1
End Sub

Answer 2

Этот макрос делает это.Просто выберите, какие ячейки вы хотите записать в файл, и запустите его.

Sub Makro1()
'
' Makro1 Makro
'

'
    Dim myFile As String, rng As Range, cellValue As Variant, i As Integer, j As Integer
    myFile = Application.DefaultFilePath & "\text_file.txt"
    Set rng = Selection
    Open myFile For Output As #1
    For i = 1 To rng.Rows.Count
        For j = 1 To rng.Columns.Count
            cellValue = rng.Cells(i, j).Value
            If j = rng.Columns.Count Then
                Write #1, cellValue
            Else
                Write #1, cellValue,
            End If
        Next j
    Next i
    Close #1
End Sub

Файл text_file.txt сохраняется на месте, где сохраняется файл Excel.