如何用VBA代码复制文件到当前工作表sheets("sheet2")？

my梦想

如何用VBA代码复制文件到当前工作表sheets("sheet2")？

lovetaozi0727

很想看到高手来解答一下

glhfgtd

复制的是什么文件呀？

my梦想

回复 glhfgtd 的帖子

EXCEL 文件，谢谢！

glhfgtd

能不能在具体一些，比如：
用VBA代码复制某个名字是abc的EXCEL工作簿到当前工作表sheets("sheet2")？
用VBA代码复制某个名字是xyz的EXCEL工作表到当前工作表sheets("sheet2")？

wuhuisheng

回复 glhfgtd 的帖子

用VBA代码复制某个名字是xyz的EXCEL工作表到当前工作表sheets("sheet2")
谢谢！

glhfgtd

Sub copySheet()
Dim wkbk As Workbook
Set wkbk = Workbooks("abc")
wkbk.Sheets("xyz").UsedRange.Copy
ThisWorkbook.Sheets("sheet2").Range("A1").Paste
End Sub

或者：
Sub copySheet()
Workbooks( "abc").Sheets( "xyz").Copy   Before:=ActiveWorkbook.Sheets("Sheet2")
End Sub

峰起云涌～

glhfgtd 发表于 2011-7-29 09:04
Sub copySheet()
Dim wkbk As Workbook
Set wkbk = Workbooks("abc")

Public Sub Button1_Click()
Dim wkbk As Workbook
Set wkbk = Workbooks("在职名单.xls")
wkbk.Sheets(1).UsedRange.Copy
ThisWorkbook.Sheets("Sheet3").Range("A1").Paste
End Sub



为什么我这个会复制不了呢