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

Sub复制进来()Dimn!,na$,nan$n=Windows.Countna=Windows(2).Parent.Name‘以上na是打开的工作薄的名称,而且na工作... 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
展开
 我来答
大作做人做人6
2019-05-07 · 超过20用户采纳过TA的回答
知道答主
回答量:44
采纳率:66%
帮助的人:5.3万
展开全部
运行之后,选择那个“文件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
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式