我正在尝试将单元格的内容以特定格式打印到文本文件中。除非我填写了至少 2 行,否则一切正常。如果我只有 1 行,它就会崩溃。有人可以帮我吗?非常感谢!下面的代码:
Sub exportBanners()
Dim FileName As String
FileName = ThisWorkbook.Path & "\MT_BANNERS_" & Format(Now, "ddmmyy-hhmmss") & ".txt"
Dim c As Range, r As Range
Dim output As String
Dim lRow As Long
Dim lCol As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row
For Each r In Range("A9:B9", Range("A9:B9").End(xlDown)).Rows
For Each c In r.Cells
output = output & "|" & c.Value
Next c
output = output & vbNewLine
Next r
Open FileName For Output As #1
Print #1, output
Close
MsgBox "MT BANNERS requested successfully!"
End Sub