将 Excel 行导出到单个文本文件

Question

我正在使用下面的 VBA 代码将 Excel 行导出到单个文本文件（文件名为 B 列）

Sub ExportTextFiles()

Dim i As Long
Dim LastDataRow As Long
Dim MyFile As String
Dim fnum

LastDataRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LastDataRow
    'The next line uses the contents of column B on the same row to name it
    MyFile = "C:\test\" & ActiveSheet.Range("B" & i).Value & ".txt"
    fnum = FreeFile()
    Open MyFile For Output As fnum

    Print #fnum, Format(Range("A" & i))
    Close fnum
Next i
End Sub

我的问题是文本中导出的行只有 255 个字符。 有解决方法吗？

Answer 1

由于我无法找到明确的文档，当您使用未定义格式的 Format 函数时，它将仅返回 255 个字符。

我不明白为什么你需要在你的Print 语句中使用Format 函数，但如果你删除它，255 个字符的限制似乎消失了。

我认为您可能需要担心的唯一一件事是单元格内容限制为 32,767 个字符。