从Access导出到Excel时，单元格内的新行

有没有办法从Access导出到Excel时正确导出单元格内的“新行”。

数据在Access中input，Access中的新行显示OK。

但是，当我将其导出到Excel时，它看起来不太好。

尝试通过删除所有可能的新行字符清除文本，然后将值插入到Excel中（请注意，在“逗号”符号后面需要换行）：

FText = Replace(rs_Quotation!Text, vbCrLf, "") FText = Replace(rs_Quotation!Text, vbLf, "") FText = Replace(rs_Quotation!Text, vbNewLine, "") FText = Replace(rs_Quotation!Text, vbCr, "") FText = Replace(rs_Quotation!Text, ", ", "," & vbCr) 

这看起来不错，但在Excel中打开时，它会在文本上方添加一些额外的空间，并在行之间添加一些空格：

但是，双击并退出单元格后，它会正常。

更新：EntireRow的“AutoFit”方法也没有产生任何效果。

Answer 1

它看起来像你要回到每个replace源，所以只有最后一个是做任何事情的输出。 尝试这个：

 FText = Replace(rs_Quotation!Text, vbCrLf, "") FText = Replace(FText, vbLf, "") FText = Replace(FText, vbNewLine, "") FText = Replace(FText, vbCr, "") FText = Replace(FText, ", ", "," & vbCr) 

将下面的函数添加到您的代码中。

 Public Function String2ASCIIString(ByVal strText As String) As String Dim i as integer Dim s as string For i = 1 To Len(strText) s = s & asc(Mid(strText, i, 1)) & "," Next String2ASCIIString = Left(s, Len(s) - 1) End Function 

在第一个代码块之后添加下一行。

 Debug.Print String2ASCIIString(FText) 

运行代码，按Ctrl + G，复制并粘贴数字string作为注释。