我要使用VBA实现如下功能：1 有读取按钮，对自己选择的excel文件进行导入并保存

要使用VBA（Visual Basic for Applications）实现读取按钮并导入Excel文件的功能，你可以按照以下步骤操作：

1. 首先，打开Excel文件，然后按下`Alt + F11`键打开VBA编辑器。
2. 在VBA编辑器中，找到你需要添加按钮的工作表，右键点击工作表标签，选择“查看代码”。
3. 在打开的代码编辑窗口中，你需要定义一个按钮的点击事件。可以通过在工作表中插入一个形状或按钮控件，并将其与以下代码关联起来来实现。

下面是一个简单的示例代码，展示了如何在点击一个按钮时打开一个文件对话框，让用户选择一个Excel文件，并将其内容复制到当前工作表中：

Private Sub CommandButton1_Click()
    Dim fd As FileDialog
    Dim selectedFile As String
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    
    ' 创建文件对话框
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    ' 显示文件对话框并选择文件
    If fd.Show = -1 Then
        selectedFile = fd.SelectedItems(1)
        
        ' 打开选择的Excel文件
        Set wbSource = Workbooks.Open(selectedFile)
        
        ' 可以选择复制特定的工作表，例如第一个工作表
        Set wsSource = wbSource.Sheets(1)
        
        ' 将选定工作表的内容复制到当前工作表
        wsSource.Cells.Copy Destination:=ThisWorkbook.Sheets(1).Cells
        
        ' 关闭源工作簿，不保存更改
        wbSource.Close SaveChanges:=False
    End If
    
    ' 清理
    Set fd = Nothing
    Set wbSource = Nothing
    Set wsSource = Nothing
End Sub

在这个示例中，`CommandButton1_Click` 是一个按钮点击事件，你需要在VBA编辑器中插入一个按钮控件，并将这个宏分配给它。

请注意，这段代码假设你想要复制选定Excel文件的第一个工作表到当前工作簿的第一个工作表。如果你的需求有所不同，比如选择特定的工作表或有其他的需求，你需要根据实际情况修改代码。