VBA 覆盖导入数据：快速实现数据替换和更新

使用 VBA 可以方便地实现 Excel 数据的覆盖导入，将源工作簿中的数据替换到目标工作簿中。以下是实现覆盖导入的详细步骤和代码示例：

1. 打开目标工作簿和源工作簿

首先，打开目标工作簿（要覆盖数据的工作簿）和源工作簿（包含要导入数据的源工作簿）。

2. 选择目标工作表

在目标工作簿中选择要覆盖数据的目标工作表。

3. 使用 VBA 代码导入数据

使用以下 VBA 代码将源工作簿中的数据导入到目标工作簿中：

Sub ImportData()
    Dim wbSource As Workbook
    Dim wsTarget As Worksheet
    Dim keyword As String
    Dim lastRow As Long
    Dim i As Long
    Dim sourceFilePath As String
    
    ' 选择源文件
    sourceFilePath = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsx), *.xlsx", Title:="选择源文件")
    If sourceFilePath = "False" Then Exit Sub ' 如果没有选择文件则退出
    
    ' 输入关键字
    keyword = InputBox("请输入要覆盖的关键字：")
    If keyword = "" Then Exit Sub ' 如果关键字为空则退出
    
    ' 打开源文件和目标工作簿
    Set wbSource = Workbooks.Open(sourceFilePath)
    Set wsTarget = ThisWorkbook.Sheets(1)
    
    ' 删除目标工作表中的数据
    If wsTarget.Range("A1").Value = "指定列标题" Then
        lastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row
        If lastRow > 1 Then
            For i = lastRow To 2 Step -1
                If InStr(1, wsTarget.Cells(i, "A").Value, keyword) > 0 Then
                    wsTarget.Rows(i).Delete
                End If
            Next i
        End If
    Else
        wsTarget.Cells.ClearContents
    End If
    
    ' 导入数据
    lastRow = wbSource.Sheets(1).Cells(wbSource.Sheets(1).Rows.Count, "A").End(xlUp).Row
    If lastRow > 1 Then
        wsTarget.Range("A2").Resize(lastRow - 1, wbSource.Sheets(1).Columns.Count).Value = wbSource.Sheets(1).Range("A2").Resize(lastRow - 1, wbSource.Sheets(1).Columns.Count).Value
        wsTarget.Range("A2").Resize(lastRow - 1, wbSource.Sheets(1).Columns.Count).PasteSpecial Paste:=xlPasteValues
    End If
    
    ' 关闭源文件和保存目标工作簿
    wbSource.Close False
    ThisWorkbook.Save
End Sub

代码说明：

sourceFilePath = Application.GetOpenFilename(...)：选择源文件路径。
keyword = InputBox("请输入要覆盖的关键字：")：输入要覆盖的关键字。
Set wbSource = Workbooks.Open(sourceFilePath)：打开源工作簿。
Set wsTarget = ThisWorkbook.Sheets(1)：选择目标工作表。
wsTarget.Range("A1").Value = "指定列标题"：判断目标工作表的第一行是否为指定列标题，如果是，则根据关键字删除目标工作表中的数据。
wsTarget.Cells.ClearContents：清除目标工作表中的所有数据。
wsTarget.Range("A2").Resize(lastRow - 1, wbSource.Sheets(1).Columns.Count).Value = ...：将源工作簿中的数据导入到目标工作表中。
wsTarget.Range(...).PasteSpecial Paste:=xlPasteValues：仅粘贴数值，避免复制格式和样式。
wbSource.Close False：关闭源工作簿，不保存更改。
ThisWorkbook.Save：保存目标工作簿。

4. 注意事项

在使用 VBA 进行覆盖导入操作时，要确保目标工作表中没有重要数据，否则可能会被覆盖。
建议在进行操作之前备份目标工作簿。
代码中使用了 PasteSpecial Paste:=xlPasteValues 方法，仅粘贴数值，避免复制格式和样式。
代码中的关键字可以根据实际需求修改。

总结

通过以上步骤和代码示例，您就可以使用 VBA 实现 Excel 数据的覆盖导入，快速完成数据替换和更新任务。记得在实际应用中根据需要修改代码并注意数据安全。