在VBA中读取CSV文件时删除双引号

，可以通过以下步骤实现：

首先，使用VBA的FileSystemObject对象来打开CSV文件。可以使用以下代码示例：

Dim fso As Object
Dim file As Object
Dim filePath As String

Set fso = CreateObject("Scripting.FileSystemObject")
filePath = "C:\path\to\file.csv"
Set file = fso.OpenTextFile(filePath, 1)

接下来，使用VBA的TextStream对象逐行读取CSV文件内容。可以使用以下代码示例：

Dim line As String

Do Until file.AtEndOfStream
    line = file.ReadLine
    ' 在这里进行双引号的删除操作
Loop

在读取每一行内容后，可以使用VBA的Replace函数将双引号替换为空字符串。可以使用以下代码示例：

line = Replace(line, """", "")

最后，可以根据需要对处理后的行内容进行进一步操作，例如将其拆分为字段或进行其他数据处理。

完整的代码示例如下：

Dim fso As Object
Dim file As Object
Dim filePath As String
Dim line As String

Set fso = CreateObject("Scripting.FileSystemObject")
filePath = "C:\path\to\file.csv"
Set file = fso.OpenTextFile(filePath, 1)

Do Until file.AtEndOfStream
    line = file.ReadLine
    line = Replace(line, """", "")
    ' 在这里进行进一步的操作
Loop

file.Close
Set file = Nothing
Set fso = Nothing

这样，通过以上步骤，你可以在VBA中读取CSV文件时删除双引号。