excel VBA打开一个文件并导入

你可以使用以下代码在Excel VBA中打开文件并导入数据：

Sub ImportData()

Dim filename As String
Dim wb As Workbook
Dim ws As Worksheet

'选择要打开的文件
filename = Application.GetOpenFilename()

If filename <> "False" Then
    '打开文件
    Set wb = Workbooks.Open(filename)
    
    '选择要导入数据的工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    '将数据从打开的工作簿中复制到当前工作簿中
    wb.Sheets("Data").Range("A1:D10").Copy ws.Range("A1")
    
    '关闭打开的工作簿
    wb.Close False
End If

End Sub

在上面的代码中，我们首先使用`Application.GetOpenFilename()`函数让用户选择要打开的文件。如果用户选择了一个文件，则使用`Workbooks.Open()`方法打开它并将其存储在变量`wb`中。接下来，我们选择要将数据导入的工作表，然后使用`Copy`方法将从打开的工作簿中复制的数据粘贴到当前工作簿中。最后，我们使用`Close`方法关闭打开的工作簿。

请注意，上面的代码假定要导入的数据在打开的工作簿的名为“Data”的工作表中，并且将数据复制到当前工作簿的名为“Sheet1”的工作表中。你需要根据自己的需求进行修改。