EXCEL vba怎样将一个工作薄的内容复制到另一个工作薄中
运行之后，选择那个“文件2”，点确定，就把“文件2”里"sheet3"的A1：L1000复制到运行文档“sheet1”的B2：M1001了~附件文档的模块1里，按alt+f11打开编辑器Sub a()Dim aWith Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False.InitialFileName = ThisWorkbook.PathIf .Show = -1 ThenSet a = Workbooks.Open(.SelectedItems(1))a.Sheets("sheet3").AutoFilterMode = Falsea.Sheets("sheet3").Range("A1:L1000").Copy ThisWorkbook.Sheets("sheet1").Range("B2")a.Close FalseEnd IfEnd WithEnd Sub