Sub text()Dim Path_str As StringDim File_str As StringDim Open_file As WorkbookDim FileNamePath_str As StringDim Open_Sheet As WorksheetDim Row0&, Column0&, Row1&, Column1&, Row01& With Application.FileDialog(msoFileDialogOpen)'引用打开文件对话框 .AllowMultiSelect = True'允许多选文件
If .Show = 0 Then MsgBox "取消": Ex...