osknows..

5

这是一种方法

Option Explicit

Sub test()

Dim oFSO As Object

Dim oFS As Object, sText As String

Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oFS = oFSO.OpenTextFile("C:\Users\osknows\Desktop\import-store.csv")

Do Until oFS.AtEndOfStream

' sText = oFS.ReadLine 'read line by line

sText = oFS.ReadAll()

Debug.Print sText

Loop

End Sub

编辑:

尝试将以下行更改为以下3行之一,看看它是否有任何区别

Set FS = FSO.OpenTextFile("C:\Users\osknows\Desktop\import-store.csv", 1, 0)

Set FS = FSO.OpenTextFile("C:\Users\osknows\Desktop\import-store.csv", 1, 1)

Set FS = FSO.OpenTextFile("C:\Users\osknows\Desktop\import-store.csv", 1, 2)

EDIT2:

这些代码在你那正常吗？

Function ExecuteWebRequest(ByVal url As String) As Str