我得到一個重複的空文件，當我嘗試閱讀原文

我的目標是從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」和是發送的那個，所以最後我什麼都沒有發送。我無法找到問題。如果你能幫助我的話，我會讚賞它。

預先感謝您

來源

2014-04-01 yke

增加了一些線條，和它的工作：

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

來源

2014-04-01 08:36:23 Lukas2

非常感謝你，我只是在寫答案。我已經寄出了你寄給我的信件，問題是我發佈的信息，這段代碼也沒有出現過錯。 – yke

OK！

我明白了！我剛剛發佈的這段代碼是完全正確的，問題是當我用其他宏保存文件時，我在前面保存了一個空格，所以當這個宏試圖打開它並閱讀它時，沒有找到它，所以它創建了一個空的文件，其中包含我真正想要的名稱。

uf !!神！ :)

來源

2014-04-01 08:39:15 yke

我得到一個重複的空文件，當我嘗試閱讀原文

回答

相關問題