Преобразование данных Excel в текстовый файл в формате HTML

Question

Я пытаюсь объединить данные из Excel column1 & column2, чтобы получить текстовый файл, как показано на рисунке, в Excel может быть до 100 строк.Вот изображение данных Excel, которое на данный момент ограничено 3 строками: Вот формат txt, в котором я хочу получить вывод: У меня естьЯ разработал код, но так как я не являюсь обычным программистом на VBA, я не смог достичь цели.Вот вывод, который я сейчас получаю после предложенных изменений:

Вот мой код:

 Dim c As Range, r As Range
    Dim output As String
    Dim txt1 As String
    Dim txt2 As String
    Dim txt3 As String
    Dim txt4 As String
    txt1 = "<div class=" & Chr(34) & "promo_img col-md-4 col-sm-4 col-xs-6" & Chr(34) & ">"
    txt2 = "<!-- PROMOTIONAL IMAGE -->"
    txt3 = "</div>"



    For Each r In Sheet1.Range("A1:C3").Rows
        For Each c In r.Cells
            output = output & "," & c.Value   ' & Chr(10) & Chr(13) & txt2 & Chr(10) & Chr(13) &
        Next c
        output = txt1 & vbNewLine & output & vbNewLine
    Next r
    Open "D:\DOCS\text.txt" For Output As #1
    Print #1, output
    Close
End Sub

Answer 1

Попробуйте использовать код ниже:

Dim c As Range
Dim output As String
Dim txt1 As String
Dim txt2 As String
Dim txt3 As String
Dim txt4 As String
txt1 = "<div class=" & Chr(34) & "promo_img col-md-4 col-sm-4 col-xs-6" & Chr(34) & ">"
txt2 = "<!-- PROMOTIONAL IMAGE -->"
txt3 = "</div>"

output = ""
For Each c In Sheet1.Range("A1:A3")
    output = output & txt1 & vbnewline & vbnewline & txt2 & vbnewline 
    output = output & "<a href=""" & c.value & """ target=""blank"">"
    output = output & "<img src=""" & c.offset(,1).value & """/></a>"
    output = output & vbnewline & vbnewline & txt3 & vbnewline & vbnewline
Next c

Open "D:\DOCS\text.txt" For Output As #1
Print #1, output
Close #1

vbnewline изменится на новую строку
"" вернет "