Question

EXCEL vba怎样将一个工作薄的内容复制到另一个工作薄中

Sub 复制进来()
Dim n!, na$, nan$
n = Windows.Count
na = Windows(2).Parent.Name
‘以上na是打开的工作薄的名称，而且na工作薄只有一个工作表，怎样引用这个名称，将na工作薄中的工作表的B3:AI16复制到当前的工作薄（名称是“统计分析“）中的B3单元格。
Windows(2).Sheet1.Range("B3:AI16").Copy [B3]‘这种写法不行，请问怎样写？
End Sub

Answer 1

运行之后，选择那个“文件2”，点确定，就把“文件2”里"sheet3"的A1：L1000复制到运行文档“sheet1”的B2：M1001了~
附件文档的模块1里，按alt+f11打开编辑器

Sub a()
Dim a
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path
If .Show = -1 Then
Set a = Workbooks.Open(.SelectedItems(1))
a.Sheets("sheet3").AutoFilterMode = False
a.Sheets("sheet3").Range("A1:L1000").Copy ThisWorkbook.Sheets("sheet1").Range("B2")
a.Close False
End If
End With
End Sub