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

要在Excel中使用VBA实现您所描述的功能，您需要编写一个宏来创建一个用户表单（UserForm），其中包含一个按钮用于选择文件，以及一个文本框用于显示导入的文件名。以下是实现该功能的基本步骤：

1. 启用开发工具选项卡：
- 在Excel中，您可能需要先启用“开发工具”选项卡。可以通过文件 -> 选项 -> 自定义功能区，然后勾选“开发工具”。

2. 插入用户表单：
- 在“开发工具”选项卡中，点击“Visual Basic”打开VBA编辑器。
- 在VBA编辑器中，右键点击VBAProject (您的工作簿名)，选择“插入” -> “用户表单”。

3. 添加控件：
- 在工具箱中，找到“命令按钮”和“文本框”，拖放到用户表单上。
- 为命令按钮设置一个合适的标题，例如“读取文件”。

4. 编写代码：
- 双击命令按钮，在弹出的代码窗口中编写点击事件处理代码。
- 使用“Application.GetOpenFilename”方法来提示用户选择文件。
- 如果用户选择了一个文件，那么使用“Workbooks.Open”方法打开并导入文件，然后将文件名显示在文本框中。
- 确保在导入后，按钮仍然可见。

以下是一个简单的示例代码：

Private Sub CommandButton1_Click()
    Dim fileName As String
    Dim wb As Workbook
    
    ' 提示用户选择文件
    fileName = Application.GetOpenFilename("Excel Files (*.xls;*.xlsx), *.xls;*.xlsx", , "选择一个Excel文件")
    
    ' 检查用户是否选择了文件
    If fileName <> "False" Then
        ' 打开选中的工作簿
        Set wb = Workbooks.Open(fileName)
        
        ' 可以在这里添加将打开的工作簿数据导入到当前工作簿的代码
        
        ' 显示导入的文件名
        TextBox1.Value = fileName
        
        ' 可以在这里添加代码使按钮在导入完成后仍然可见
    End If
End Sub

在这个例子中，`CommandButton1`是用户表单上按钮的名称，`TextBox1`是文本框的名称，您需要根据实际情况进行调整。

完成代码编写后，回到Excel界面，您需要将用户表单指定为一个宏来运行。这可以通过“开发者”选项卡中的“宏”按钮来实现。