excel如何vba实现从另一个工作簿复制选定区域的数据到当前工作簿

RT，例如我两个文件都在桌面，现在打开了文件1，希望将文件2中的特定工作表“sheet3”中的A1:L1000区域，复制黏贴到文件1当前工作表“sheet1”的B2:M1001区域。能不能在不打开文件2的情况下用VBA代码解决？求代码。

第1个回答 2017-08-18

运行之后，选择那个“文件2”，点确定，就把“文件2”里"sheet3"的A1：L1000复制到运行文档“sheet1”的B2：M1001了~
附件文档的模块1里，按alt+f11打开编辑器
http://pan.baidu.com/s/1c2kxQ9q
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本回答被提问者和网友采纳

相似回答

在excel中如何使用VBA宏代码快速把一个工作簿中不同工作表的固定单元格...答：Sub main()Dim mySheet As Worksheet Dim tmpSheet As Worksheet Dim R As Integer, C As Integer R = 1 Set mySheet = ThisWorkbook.Worksheets.Add()mySheet.Name = "汇总"For Each tmpSheet In ThisWorkbook.Worksheets With tmpSheet If .Name <> "汇总" Then For C = 1 To 6 mySheet...

请教如何利用VBA实现将一个工作表复制到另一个工作簿中答：返回Excel主界面，点击"开发工具"下的"宏"，找到并选择"复制表"，然后点击"执行"按钮。此时，"工作表1"中的指定工作表"移动表"已成功复制到"工作表2"的第1个工作表中，操作过程直观且高效。通过这种方式，你可以轻松地使用VBA在Excel中实现工作表的复制，无需手动操作，大大提高了工作效率。

vba如何新建一个excel并且从另一个excel中导入数据到这个新建的excel中...答：1.打开表格 2.按alt+F11 3.点击插入 4.点击模块 5.粘贴如下代码 '自定义公式-按ALT+11-插入-模块(提取)Sub 提取()If MsgBox("为避免使用时表格被占用，您将提取收货人为陈杭荣所在行至陈杭荣流水账后删除该行，是否继续", vbOKCancel) = vbOK ThenUserForm1.Show 0DoEvents 当前...

大家正在搜

vba复制工作表到另一个工作簿用vba复制多个excel工作簿 excelvba合并工作簿 vba打开一个工作簿 vba批量复制工作簿多个excel工作簿合并 vba新建一个excel文件 vba复制excel文件并重命名 excel工作簿批量重命名