为文件数据来自的VBA...showing中粘贴的数据指定文件名

Sub PasteData()
    Dim fileDialog As FileDialog
    Dim selectedFile As Variant
    
    ' 创建文件选择对话框
    Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)
    
    ' 设置文件选择对话框的标题和允许选择的文件类型
    fileDialog.Title = "选择数据文件"
    fileDialog.AllowMultiSelect = False
    fileDialog.Filters.Clear
    fileDialog.Filters.Add "文本文件", "*.txt"
    fileDialog.Filters.Add "Excel文件", "*.xlsx;*.xls"
    
    ' 显示文件选择对话框
    If fileDialog.Show = -1 Then
        ' 获取用户选择的文件路径
        selectedFile = fileDialog.SelectedItems(1)
        
        ' 在这里编写将文件中的数据粘贴到目标位置的代码
        ' 例如：Range("A1").PasteSpecial Paste:=xlPasteValues
    End If
    
    ' 释放文件选择对话框对象
    Set fileDialog = Nothing
End Sub

Sub PasteData()
    Dim filePath As String
    
    ' 弹出提示框让用户输入文件路径和文件名
    filePath = InputBox("请输入数据文件的路径和文件名:")
    
    ' 在这里编写将文件中的数据粘贴到目标位置的代码
    ' 例如：Range("A1").PasteSpecial Paste:=xlPasteValues
End Sub