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

Posted 2021-04-09

我正在使用下面的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个字符。有解决方法吗？

答案

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

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

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