如何不打开Excel文档，提取、操作文档中的数据？

andiy90

1、文档路径：f:\shiyan\1.xls
2、sheets名：sheet1，sheet2，sheet3
3、希望得到i=f:\shiyan\1.xls 的sheet1.[a3],j=f:\shiyan\1.xls 的 sheet2.range("b2:f100")

麻烦各位老师帮忙。

liulang0808

http://club.excelhome.net/thread-1058320-1-1.html参考下吧，看看能不能帮上你

liucqa

用getobject              

zhaogang1960

如果你的数据比较规范，可使用ADO取得数据，请参考：

1. Sub Macro1()
   
2.     Dim cnn As Object, SQL$, i, j
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties ='Excel 8.0;hdr=no';Data Source =" & ThisWorkbook.Path & "\1.xls"
   
5.     SQL = "select * from [Sheet1$a3:a3]"
   
6.     i = cnn.Execute(SQL)(0)
   
7.     MsgBox i
   
8.     SQL = "select * from [Sheet2$b2:f100]"
   
9.     j = cnn.Execute(SQL).GetRows'b2:f100是个区域，返回值是个数组
   
10.     j = WorksheetFunction.Transpose(j)
    
11.     Range("a1").Resize(UBound(j), UBound(j, 2)) = j   '测试效果
    
12.     cnn.Close
    
13.     Set cnn = Nothing
    
14. End Sub
    

复制代码

andiy90

liulang0808 发表于 2014-2-25 16:44
http://club.excelhome.net/thread-1058320-1-1.html参考下吧，看看能不能帮上你

感谢您帮忙。
参考了您提供的办法，在2007版本中，偶会出现过渡单元格数据提取不到的情况。

andiy90

zhaogang1960 发表于 2014-2-25 23:34
如果你的数据比较规范，可使用ADO取得数据，请参考：

感谢您的指导，不知数据规范与否指的是？能帮忙再详细说明下么，如何算不规范的？
另，Range("a1").Resize(UBound(j), UBound(j, 2)) = j 这个语句令我受益良多。
再次感谢老师指导！

zhaogang1960

andiy90 发表于 2014-3-3 15:31
另外，在2007版本中提示：外部表不是预期的格式，这个如何解决？

Jet.Oledb.4.0——Ace.Oledb.12.0
Excel 8.0——Excel 12.0

andiy90

zhaogang1960 发表于 2014-2-25 23:34
如果你的数据比较规范，可使用ADO取得数据，请参考：

另外，在2007版本中提示：外部表不是预期的格式，这个如何解决？

dljyh2009

学习，