定义一个excel VBA function 先弹出提示框请选择文件然后选择读取一个excel返回它的名字在B1位置

以下是一个实现该要求的Excel VBA函数的示例代码：

Function GetSelectedFileName() As String
    Dim fileDialog As FileDialog
    Dim selectedFile As String
    
    ' 创建文件对话框对象
    Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)
    
    ' 设置文件对话框标题和允许选择的文件类型
    fileDialog.Title = "请选择文件"
    fileDialog.AllowMultiSelect = False
    
    ' 弹出文件对话框并获取选择的文件路径
    If fileDialog.Show = -1 Then
        selectedFile = fileDialog.SelectedItems(1)
    End If
    
    ' 将文件名写入B1单元格
    ThisWorkbook.Sheets("Sheet1").Range("B1").Value = selectedFile
    
    ' 返回文件名
    GetSelectedFileName = selectedFile
End Function

使用方法：

1. 打开Excel，按下Alt + F11打开VBA编辑器。
2. 在VBA编辑器中，插入一个新的模块。
3. 将以上代码复制粘贴到新模块中。
4. 在Excel工作表中的任意单元格中输入=GetSelectedFileName()，按下回车键。
5. 弹出文件选择对话框，选择一个Excel文件并点击确定。
6. 选择的文件名将会显示在B1单元格中，并作为函数的返回值