在EXCEL中使用SQL语句查询集锦-持续更新中，敬请关注

雪魄梅魂

opiona 发表于 2012-8-8 14:02
'带参数的连接字符串：cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8. ...

IMEX=1只给了某一个文件，当数据源为多个工作簿的时候如何处理呢？

雪魄梅魂

opiona 发表于 2012-8-8 14:02
'带参数的连接字符串：cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8. ...

IMEX=1只给了某一个文件，当数据源为多个工作簿的时候如何处理呢？

opiona

雪魄梅魂 发表于 2016-4-1 16:28
IMEX=1只给了某一个文件，当数据源为多个工作簿的时候如何处理呢？

连接字符串只是连接一个工作簿
将此工作簿作为数据库
将工作表作为数据表

连接多个工作簿，请使用循环
    FileArr = FileAllArr(ThisWorkbook.Path, "*.xls?", ThisWorkbook.Name, True, False)
    For i = 0 To UBound(FileArr)
   
        'Str_coon = "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=yes';Data Source=" &  FileArr(i)      '//OFFICE2003
        Str_coon = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';Data Source =" & FileArr(i)    '//OFFICE2007
            StrSQL = "SELECT * FROM [工作表名$]"
            IROW = SH0.Range("A65536").End(3).Row + 1
            SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, False)
            SH0.Range("A" & IROW).Resize(UBound(SQLARR, 1) + 1, UBound(SQLARR, 2) + 1) = SQLARR
    Next i

雪魄梅魂

opiona 发表于 2016-4-3 12:56
连接字符串只是连接一个工作簿
将此工作簿作为数据库
将工作表作为数据表

Opps,这是要写代码的节奏啊，excel 数据连接属性里面的连接字符串,可以在这里制定吗：
Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=Z:SamplePath.xlsx;Mode=Share Deny Write;Extended Properties="HDR=YES; IMEX=1;";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=37;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:Bypass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validation=False
这里可以改吗

amao1212

谢谢分享，期待大作

opiona

雪魄梅魂 发表于 2016-4-8 10:59
Opps,这是要写代码的节奏啊，excel 数据连接属性里面的连接字符串,可以在这里制定吗：
Provider=Microso ...

看不懂要干什么
最好上附件 和要求！

wy0911250504

学习了，谢谢楼主！！！

钰麒麟

好帖，值得收藏！！！！！！！！！！！

yezhip

学习了,非常棒

liuchunlong

都是大神呀，受教了