Как скопировать и вставить в текстовый файл и сохранить на основе данных строки столбца

Question

У меня вопрос по сохранению данных из листа Excel в текстовый файл. Мне нужно скопировать каждую ячейку из столбца R моей рабочей книги и для каждой ячейки столбца R создать файл .txt, вставить данные и сохранить их на основе данных столбца A той же строки. Это создаст текстовый файл для каждой позиции в столбце R и назовет файл на основе того же значения столбца A. У меня ограниченный опыт работы с VBA. Ниже приведен образец данных.

Answer 1

Ниже приведен некоторый VBA, который проходит по всем строкам на листе, создает текстовый файл в папке, названной в честь данных в столбце A, и записывает в нее данные в столбце R.

Sub sSaveData(strFolder As String)
    On Error GoTo E_Handle
    Dim strFile As String
    Dim intFile As Integer
    Dim lngLastRow As Long
    Dim lngLoop1 As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")
    If Right(strFolder, 1) <> "\" Then strFolder = strFolder & "\"
    lngLastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    For lngLoop1 = 1 To lngLastRow
        strFile = strFolder & ws.Cells(lngLoop1, 1) & ".txt"
        intFile = FreeFile
        Open strFile For Output As intFile
        Print #intFile, ws.Cells(lngLoop1, 18)
        Close #intFile
    Next lngLoop1
sExit:
    On Error Resume Next
    Set ws = Nothing
    Reset
    Exit Sub
E_Handle:
    MsgBox Err.Description & vbCrLf & "sSaveData", vbOKOnly + vbCritical, "Error: " & Err.Number
    Resume sExit
End Sub

С уважением,