[已解决]VBA，将本表指定内容，按要求批量导入到同一文件夹内工作簿的变动名册位置中去。

舒云天

VBA，将本表指定内容，按要求批量导入到同一文件夹内工作簿的变动名册位置中去。谢谢高手，非常感谢

最佳答案

月排行榜 / 总排行榜

dsmch

2017-1-11 20:17

1. Sub Macro1()
   
2. Dim arr
   
3. arr = Range("a1").CurrentRegion
   
4. Application.ScreenUpdating = False
   
5.     With GetObject(ThisWorkbook.Path & "\样式.xls")
   
6.         For i = 2 To UBound(arr)
   
7.             .Sheets(1).Range(arr(i, 2)) = arr(i, 3)
   
8.         Next
   
9.         Application.Windows("" & .Name).Visible = True
   
10.         .Close 1
    
11.     End With
    
12. Application.ScreenUpdating = True
    
13. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr
   
3. arr = Range("a1").CurrentRegion
   
4. Application.ScreenUpdating = False
   
5.     With GetObject(ThisWorkbook.Path & "\样式.xls")
   
6.         For i = 2 To UBound(arr)
   
7.             .Sheets(1).Range(arr(i, 2)) = arr(i, 3)
   
8.         Next
   
9.         Application.Windows("" & .Name).Visible = True
   
10.         .Close 1
    
11.     End With
    
12. Application.ScreenUpdating = True
    
13. End Sub

复制代码

舒云天

非常好用，谢谢

舒云天

dsmch 发表于 2017-1-11 20:17

最佳答案