我要使用VBA实现如下功能：1 有读取按钮，对自己选择的excel文件进行导入并保存。并且代码开头不要简写

要在VBA中实现这样的功能，你需要使用内置的文件对话框来让用户选择文件，然后读取文件内容并将其保存到当前工作簿中。以下是一个简单的步骤说明和示例代码：

1. 打开Excel，按下 `Alt + F11` 打开VBA编辑器。
2. 在VBA编辑器中插入一个新的模块（Module）。
3. 在新模块中编写以下代码：

Sub ImportExcelFile()
    Dim fd As FileDialog
    Dim выбранныйФайл As String
    Dim лист As Worksheet
    Dim(importRange As Range)
    
    ' 初始化文件对话框对象
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    With fd
        .AllowMultiSelect = False ' 不允许多选
        .Title = "选择要导入的Excel文件" ' 设置对话框标题
        .Filters.Clear
        .Filters.Add "Excel Files", "*.xls; *.xlsx; *.xlsm; *.xlsb", 1
        
        ' 显示文件对话框
        If .Show = -1 Then
            выбранныйФайл = .SelectedItems(1) ' 获取用户选择的文件路径
        Else
            MsgBox "未选择文件"
            Exit Sub
        End If
    End With
    
    ' 打开用户选择的Excel文件
    Workbooks.Open(выбранныйФайл)
    
    ' 设置要读取的工作表，这里假设是第一个工作表
    Set лист = ActiveWorkbook.Sheets(1)
    
    ' 读取数据区域，这里假设是从A1开始
    Set importRange = лист.Range("A1").CurrentRegion
    
    ' 将数据导入到当前工作簿的新工作表中
    importRange.Copy ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Range("A1")
    
    ' 关闭源工作簿
    ActiveWorkbook.Close SaveChanges:=False
    
    MsgBox "文件导入完成"
End Sub

4. 你可以通过在Excel中添加一个按钮，并将其链接到这个宏来运行这个功能。

请注意，这段代码假设你要导入的数据是从源工作簿的第一个工作表的A1单元格开始的连续区域。如果数据位于不同的工作表或不同的起始单元格，你需要相应地修改代码中的 `Set лист = ActiveWorkbook.Sheets(1)` 和 `Set importRange = лист.Range("A1").CurrentRegion` 这两行。

在使用此代码之前，请确保对代码进行测试和调整以符合你的具体需求。