VBA 覆盖导入 Excel 数据：代码示例和步骤

本文将介绍如何使用 VBA 代码将 Excel 文件中的数据覆盖导入到另一个工作表。以下代码示例展示了如何实现这一功能：

Sub ImportData()
    Dim filePath As String
    Dim sheetName As String
    Dim targetSheet As Worksheet
    
    ' 设置导入文件路径和工作表名称
    filePath = 'C:\Data\SampleData.xlsx'
    sheetName = 'DataSheet'
    
    ' 检查文件是否存在
    If Dir(filePath) = "" Then
        MsgBox '文件不存在！'
        Exit Sub
    End If
    
    ' 设置目标工作表
    Set targetSheet = ThisWorkbook.Sheets('ImportData')
    
    ' 清空目标工作表
    targetSheet.Cells.ClearContents
    
    ' 导入数据
    Workbooks.Open filePath
    Sheets(sheetName).Range('A1').CurrentRegion.Copy targetSheet.Range('A1')
    Workbooks(filePath).Close False
    
    MsgBox '数据导入成功！'
End Sub

代码说明：

设置文件路径和工作表名称: 将代码中的 filePath 和 sheetName 变量替换为您的实际文件路径和工作表名称。
检查文件是否存在: 使用 Dir 函数检查文件是否存在。如果文件不存在，则显示消息框并退出程序。
设置目标工作表: 使用 Set 语句将目标工作表设置为当前工作簿中的 ImportData 工作表。
清空目标工作表: 使用 ClearContents 方法清空目标工作表的所有内容。
导入数据: 使用 Open 方法打开指定文件，使用 Copy 方法将源工作表中的数据复制到目标工作表，最后使用 Close 方法关闭源文件。

使用步骤：

打开您要导入数据的 Excel 文件。
按 Alt + F11 打开 VBA 编辑器。
在 VBA 编辑器中，插入一个新模块（插入 > 模块）。
将上面的代码复制到新模块中。
修改代码中的 filePath 和 sheetName 变量。
运行该代码。

通过以上步骤，您就可以成功地将 Excel 文件中的数据覆盖导入到另一个工作表。

注意：

在使用该代码之前，请确保您已将 filePath 和 sheetName 变量替换为实际值。
该代码将覆盖目标工作表中的所有现有数据。
如果您想要保留目标工作表中的现有数据，则需要使用其他方法进行数据导入。