[已解决]求助一个vba

kijx

求助求助求助求助一个vba跨簿复至数据

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-8-9 22:04

1. Sub test()
   
2.     Application.DisplayAlerts = False
   
3.     With Workbooks.Open(ThisWorkbook.Path & "\b.xls")
   
4.         ThisWorkbook.Sheets(1).Range("d2:f30").Copy .Sheets(1).Range("b15")
   
5.         .Close True
   
6.     End With
   
7.     Application.DisplayAlerts = True
   
8. End Sub

复制代码

跳转到最佳答案楼层

gdsgzhrsh

Sub aa()
Workbooks("a.xls").Sheets("sheet1").Range("d2:f30").Copy Workbooks("b.xls").Sheets("sheet1").Range("b15")
End Sub

hrpotter

1. Sub test()
   
2.     Application.DisplayAlerts = False
   
3.     With Workbooks.Open(ThisWorkbook.Path & "\b.xls")
   
4.         ThisWorkbook.Sheets(1).Range("d2:f30").Copy .Sheets(1).Range("b15")
   
5.         .Close True
   
6.     End With
   
7.     Application.DisplayAlerts = True
   
8. End Sub

复制代码

chenzhi_juan

你用workbooks.open打开那个文件，用activeworkbook.sheets(1).range("").copy thisworkbook.sheets(1).range("")，具体的你自己想

kijx

hrpotter 发表于 2012-8-9 22:04

我是a,b两簿都是打开的,代码是放在a簿,运行后会生成一个b簿副本,