Question

我的目标是将文件从vba发送到网址，这几乎已经完成，但对于我来说，我正在接受一个无意义的问题。

我创建了一个完全正确的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”的重复空文件，这是发送的文件，所以最后我什么也没发送。我无法找到问题所在。如果你可以帮助我的话，我会非常感激。

提前谢谢

Answer 1

添加了一些行，它起作用了：

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

Answer 2

OK！

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

UF !!神！：）

当我尝试阅读原文时，我得到一个重复的空文件

2 个答案: