Sub 按模板修改Excel文件() Dim MoBanWorkBook As Workbook Set MoBanWorkBook = Application.ActiveWorkbook Dim MoBanSheet As Worksheet Set MoBanSheet = MoBanWorkBook.Worksheets(1) With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Filters.…