[已解决]【重金悬赏！】如何导入另一未打开的.xls中的数据到当前.xls表中？

WANGL2

如何导入另一未打开的.xls中的数据到当前.xls表中？请高手看过来！

最佳答案

月排行榜 / 总排行榜

柳如烟

2012-9-2 23:47

WANGL2 发表于 2012-9-2 23:29
如烟：感谢您的关注，请看问题附件！若须补充，请告诉我。谢谢！

1. 
   
2. Sub 导入()
   
3.     Dim cn, rs, sql
   
4.     Set cn = CreateObject("adodb.connection")
   
5.     With cn
   
6.         .provider = "microsoft.ace.oledb.12.0"
   
7.         .connectionstring = "extended properties=excel 12.0;data source=" _
   
8.             & ThisWorkbook.Path & "\50020 1207.xlsx"
   
9.         .Open
   
10.     End With
    
11.     sql = "select * from [50020 1207$c4:j135]"
    
12.     Set rs = cn.Execute(sql)
    
13.     With Sheet6
    
14.         .Range("c3:j10000").ClearContents
    
15.         .Range("c3").CopyFromRecordset rs
    
16.         .Range("c:j").Columns.AutoFit
    
17.     End With
    
18.     cn.Close: Set cn = Nothing
    
19. End Sub
    

复制代码

跳转到最佳答案楼层

柳如烟

不看没附件的问题

WANGL2

柳如烟 发表于 2012-9-2 23:11
不看没附件的问题

如烟：感谢您的关注，请看问题附件！若须补充，请告诉我。谢谢！

柳如烟

WANGL2 发表于 2012-9-2 23:29
如烟：感谢您的关注，请看问题附件！若须补充，请告诉我。谢谢！

1. 
   
2. Sub 导入()
   
3.     Dim cn, rs, sql
   
4.     Set cn = CreateObject("adodb.connection")
   
5.     With cn
   
6.         .provider = "microsoft.ace.oledb.12.0"
   
7.         .connectionstring = "extended properties=excel 12.0;data source=" _
   
8.             & ThisWorkbook.Path & "\50020 1207.xlsx"
   
9.         .Open
   
10.     End With
    
11.     sql = "select * from [50020 1207$c4:j135]"
    
12.     Set rs = cn.Execute(sql)
    
13.     With Sheet6
    
14.         .Range("c3:j10000").ClearContents
    
15.         .Range("c3").CopyFromRecordset rs
    
16.         .Range("c:j").Columns.AutoFit
    
17.     End With
    
18.     cn.Close: Set cn = Nothing
    
19. End Sub
    

复制代码

柳如烟

你的重金在哪里呢？

chuangxin_sun

学习。。。。。。。

WANGL2

柳如烟 发表于 2012-9-2 23:51
你的重金在哪里呢？

如烟：请稍侯，代码正在测试中……稍微有点问题：少copy了第一行，其它正常。我再看看啊，等修正后，我给您设最佳哈！