File 当我试图读取原始文件时，会得到一个重复的空文件

我的目标是将一个文件从vba发送到一个url，这几乎完成了，但对我来说，接下来就是一个毫无意义的问题

我创建了一个完全正确的csv文件，当我尝试使用下一个代码打开和读取它时：

sFileName = "C:\Users\user\1.csv"
 Open sFileName For Binary Access Read As nFile
 If LOF(nFile) > 0 Then
    ReDim baBuffer(0 To LOF(nFile) - 1) As Byte
    Get nFile, , baBuffer
    sPostData = StrConv(baBuffer, vbUnicode)
 End If
 Close nFile

我得到一个重复的空文件，同名为“1.csv”，这是一个被发送的文件，所以最后我什么也不发送。我找不到问题所在。如果你能帮我，我会非常感激的

---

提前感谢

添加了一些行，效果很好：

Public Sub test()

Dim sFileName As String
Dim nFile As Long
Dim sPostData As String

sFileName = "D:\File1.csv"
nFile = FreeFile

 Open sFileName For Binary Access Read As #nFile
 If LOF(nFile) > 0 Then
    ReDim baBuffer(0 To LOF(nFile) - 1) As Byte
    Get nFile, , baBuffer
    sPostData = StrConv(baBuffer, vbUnicode)
 End If
 Close nFile

End Sub

好的

我明白了！我刚刚发布的代码是完全正确的，问题是当我用其他宏保存文件时，我在前面留了一个空格，这就是为什么当这个宏试图打开它并读取它时，没有找到它，所以它创建了一个空文件，名称是我真正想要的

---

uf！！上帝！：）

非常感谢，我只是在写答案。我已经有你寄给我的行了，问题是我发布的那一行，这个代码和以前的代码都没有问题。