在VBA中从csv文件加载数据时，将2个双引号替换为1个双引号

Sub LoadDataFromCSV()
    Dim filePath As String
    Dim fileContent As String
    
    ' 设置csv文件路径
    filePath = "C:\path\to\your\file.csv"
    
    ' 读取csv文件内容
    Open filePath For Input As #1
    fileContent = Input$(LOF(1), 1)
    Close #1
    
    ' 将两个双引号替换为一个双引号
    fileContent = Replace(fileContent, """""", """")
    
    ' 处理替换后的数据
    ' ...
End Sub