VBA 7.0在Excel中,行输入显示为在行周围添加额外引号

VBA 7.0在Excel中,行输入显示为在行周围添加额外引号,vba,excel,file-handling,Vba,Excel,File Handling,我有一个文件,其中的行如下: 一个 二 三 当我从一个文件读写另一个文件时,它们最终被引用。它们也在监视窗口的变量中引用 当我有一个包含以下内容的文件时: 一,二,三 最后写成: 一,二,三 有人知道这是什么原因吗?我的文件有扩展名.txt。 谢谢你抽出时间 下面是示例代码段: Public Sub ReadAndWrite() Dim fhInput As Integer Dim fhOutput As Integer Dim strSingleLine As String fhInput

我有一个文件,其中的行如下:

一个 二 三

当我从一个文件读写另一个文件时,它们最终被引用。它们也在监视窗口的变量中引用

当我有一个包含以下内容的文件时:

一,二,三

最后写成:

一,二,三

有人知道这是什么原因吗?我的文件有扩展名.txt。 谢谢你抽出时间

下面是示例代码段:

Public Sub ReadAndWrite()

Dim fhInput As Integer
Dim fhOutput As Integer
Dim strSingleLine As String

fhInput = FreeFile()

Open "<your input file here>" For Input As #fhInput

fhOutput = FreeFile()

Open "<your output file here>" For Output As #fhOutput

Do While Not EOF(fhInput)
    Line Input #fhInput, strSingleLine
    Write #fhOutput, strSingleLine
Loop

Close (fhInput)
Close (fhOutput)

End Sub

实际上是Write语句在字符串周围加引号。如果您不想打印,您应该使用打印。

在这种情况下,您最好将源文件复制到目标文件。这是一个仅演示行为的简化示例,但无论如何还是要感谢。这个答案是正确的,谢谢,对不起,我没有足够的理由支持您的答案。