使用 ADO-SQL 处理 EXCEL 文件的程序架构（实例注释）

wish2004 · 发表于 2006-6-9 14:14

本想先学好递归才看数据库和高级控件的，但看了这贴，引得我先要在数据库门外先看看

爱歌学习 · 发表于 2006-6-14 23:49

实例11：ADO批量更新ACCESS库或 Excel表：
http://club.excelhome.net/viewthread.php?tid=171154&extra=&page=2#422984

hboJsWw3.rar (19.81 KB, 下载次数: 488)

Sub SELECT_INTO_NEWFILE()
    Dim Sql$
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & _
                "\通讯录.mdb;Jet OLEDB:Database Password=123"
    Sql = "SELECT * INTO [Sheet1] IN '" & ThisWorkbook.Path & "\NEW.xls' 'Excel 8.0;' FROM 档案1"
                                                                                         '（其中.xls' 'Excel之间空格不可缺）
    conn.Execute Sql
    conn.Close: Set conn = Nothing
End Sub

资料：http://support.microsoft.com/kb/295646

实例13：批量导出DBF为对应Excel文件
http://club.excelhome.net/viewthread.php?tid=171715&extra=&page=2#431370

Sub DBF_NEWXLS()
    Dim oConndbf, oConnxls, oResult, strSQL$, sName$
    Set oConndbf = CreateObject("ADODB.Connection")
    Set oConnxls = CreateObject("ADODB.Connection")

    '打开选取文件对话框，将选取的各文件全路径名存于 Filename 数组中
    Filename = Application.GetOpenFilename("dbase Files (*.dbf), " & _
                    "*.dbf", , "请选取文件", , MultiSelect:=True)
    If Not IsArray(Filename) Then Exit Sub      '如果未选取文件，则退出程序

    On Error Resume Next   '关闭错误开关，以跳过“已有相同文件夹存在”的错误提示
    MkDir ThisWorkbook.Path & "\Excel文件"
    On Error GoTo 0        '打开错误开关
    For Each fn In Filename
        sName = Dir(fn)
        oConndbf.Open "Driver={Microsoft Visual FoxPro Driver};" & _
                        "SourceType=DBF;SourceDB=" & Left(fn, Len(fn) - Len(sName) - 1)
        strSQL = "Select * from " & sName
        Set oResult = oConndbf.Execute(strSQL)
        Cells.Clear
        For col = 1 To oResult.fields.Count     '以上结果不包含字段名，故需循环产生
           Cells(1, col) = oResult.fields(col - 1).Name
        Next

        '将对 DBF 文件的查询结果至于当前表以 A2 为左上角的区域中
        [a2].CopyFromRecordset oResult

        '若要存为新文件,可增加以下代码:
        oConnxls.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;" & _
                        "Data Source=" & ThisWorkbook.FullName
        strSQL = "SELECT * INTO [Sheet1] IN '" & ThisWorkbook.Path & "\Excel文件\" & _
                    Left(sName, Len(sName) - 4) & ".xls' 'Excel 8.0;' FROM [临时表$]"
        Set oResult = oConnxls.Execute(strSQL)
        oConndbf.Close: oConnxls.Close
    Next
    Set oConndbf = Nothing: Set oConnxls = Nothing
    MsgBox "文件已产生在“Excel文件”文件夹下"
End Sub

[此贴子已经被作者于2007-1-24 22:57:44编辑过]

错狼 · 发表于 2006-6-15 23:55

太好了,可以学到好多东西呀,爱歌同志,我爱你!!!

fclyjzyk · 发表于 2006-6-26 12:23

[em23][em17][em23][em17][em23][em17][em23][em17][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23][em23]

[此贴子已经被作者于2006-6-26 12:24:43编辑过]

32283377 · 发表于 2006-7-6 16:26

看了代码,解决了我的一个难题,楼主真能干,赞一个!

dcw · 发表于 2006-7-8 11:39

太好了，谢谢楼主的辛勤劳动！继续学习中！

wangrunqun · 发表于 2006-7-13 16:36

wangrunqun · 发表于 2006-7-13 16:47

BIN_YANG168 · 发表于 2006-7-27 10:02

下载学习ING.

tongtong96 · 发表于 2006-8-4 11:13

我想知道在VBa中通过ADO调用SQL语言，如何实现对Excell工作表行或者列的引用，比如，如何引用列A、列B，或1行，2行，甚至对对某一个单元格的引用，我的意思是指在SQL那一条语句中引用工作表的行列或单元格

		自动登录	找回密码
密码			免费注册