选择文件后，如何提取选定的文件数据

xhchen0111

Sub 选择单一文件并复制数据()        '选择单一文件
    Dim sh As Worksheet, wb As Workbook, i As Long
    On Error GoTo a                  '如果发生错误，则转到标签a的语句行继续执行
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False                                     '单选择
        .Filters.Clear                                                '清除文件过滤器
        .Filters.Add "Excel Files", "*.xls;*.xlsx"
        .Filters.Add "All Files", "*.*"                                 '设置两个文件过滤器
    If .Show = -1 Then                                              'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
            MsgBox "您选择的文件是：" & .SelectedItems(1), vbOKOnly + vbInformation, "智能Excel"
     End If
     Set wb = ThisWorkbook
     For Each sh In Application.FileName.Sheets   '此处编制有问题，需要帮忙
      If sh.Name = "NBS" Then

      sh.Range("a1:H36").Copy wb.Sheets("NBS").[a65536].End(xlUp).Offset(0)


        End If
        Next

a:       MsgBox "NBS复制没有成功!"     '显示对话框
End With
End Sub