如何修改VBA代码实现CSV数据覆盖Excel 2016工作表原有数据？

方法1：修改QueryTable刷新样式（推荐） #

原代码中QueryTable默认的RefreshStyle为xlInsertDeleteCells，这会导致新数据插入时将原有内容挤至右侧。只需添加一行代码设置为覆盖模式即可：

Sub ImportCSVFile()
    Dim wrkSheet As Worksheet, mrfFile As String
    Set wrkSheet = ActiveWorkbook.Sheets("Data")
    mrfFile = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Provide Text or CSV File:")
    
    ' 清除已存在的同名查询表，避免重复创建
    On Error Resume Next
    wrkSheet.QueryTables("CSV_Import").Delete
    On Error GoTo 0
    
    With wrkSheet.QueryTables.Add(Connection:="Text;" & mrfFile, Destination:=wrkSheet.Range("A3"))
        .Name = "CSV_Import" ' 给查询表命名，方便后续管理
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimited = True
        .RefreshStyle = xlOverwriteCells ' 设置为覆盖单元格模式
        .Refresh
    End With
End Sub

方法2：先清除原有数据再导入 #

若不想依赖QueryTable的样式设置，可先删除A3以下的所有数据行，再导入新数据：

Sub ImportCSVFile()
    Dim wrkSheet As Worksheet, mrfFile As String
    Set wrkSheet = ActiveWorkbook.Sheets("Data")
    mrfFile = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Provide Text or CSV File:")
    
    ' 清除A4及以下的所有数据（保留A3表头）
    wrkSheet.Range("A4:" & wrkSheet.Cells(wrkSheet.Rows.Count, "G").End(xlUp).Address).ClearContents
    
    With wrkSheet.QueryTables.Add(Connection:="Text;" & mrfFile, Destination:=wrkSheet.Range("A3"))
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimited = True
        .Refresh
    End With
End Sub

补充说明 #

• 方法1的优势是完整保留原有条件格式，仅覆盖单元格内容，不会破坏格式设置。
• 方法2需确保CSV列数与原有数据列数一致（此处为A-G列，对应7个表头），避免遗漏数据范围。
• 每次导入前删除旧查询表，可避免工作表中积累冗余查询对象，减少后续操作混乱。

内容的提问来源于stack exchange，提问作者w2kpro