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
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