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

爱歌学习

实例14：不打开文件而引用单列、单行、某个单元格、横向单元格的和、纵向单元格的和：

'引用一列，如A列
Sub onecolumn()
    Dim Sql$
    Set Conn = CreateObject("Adodb.Connection")
    Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.Path & "\1.xls"
    Sql = "select f1 from [sheet1$]"
    Cells.Clear
    [a1].CopyFromRecordset Conn.Execute(Sql)
    Conn.Close
    Set Conn = Nothing
End Sub

'引用一行,如第1行
Sub onerow()
    Dim Sql$
    Set Conn = CreateObject("Adodb.Connection")
    Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.Path & "\1.xls"
    Sql = "select * from [sheet1$a1:iv1]"
    Cells.Clear
    [a1].CopyFromRecordset Conn.Execute(Sql)
    Conn.Close
    Set Conn = Nothing
End Sub

'引用一个单元格，如 k1 单元格
Sub onecell()
    Dim Sql$
    Set Conn = CreateObject("Adodb.Connection")
    Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.Path & "\1.xls"
    Sql = "select * from [sheet1$k1:k1]"
    Cells.Clear
    [a1].CopyFromRecordset Conn.Execute(Sql)
    Conn.Close
    Set Conn = Nothing
End Sub

'计算 A1+B1
Sub A1_Plus_b1()
    Dim Sql$
    Set Conn = CreateObject("Adodb.Connection")
    Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.Path & "\1.xls"
    Sql = "select f1+f2 from [sheet1$a1:b1]"
    Cells.Clear
    [a1].CopyFromRecordset Conn.Execute(Sql)
    Conn.Close
    Set Conn = Nothing
End Sub

'计算 A1+A2
Sub sumcolumn()
    Dim Sql$
    Set Conn = CreateObject("Adodb.Connection")
    Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.Path & "\1.xls"
    Sql = "select sum(f1) from [sheet1$a1:a2]"
    Cells.Clear
    [a1].CopyFromRecordset Conn.Execute(Sql)
    Conn.Close
    Set Conn = Nothing
End Sub

CzVYNsA7.rar (12.07 KB, 下载次数: 311)

2006-9-28 18:01 上传

点击文件名下载附件

[此贴子已经被作者于2007-3-9 13:10:10编辑过]

plxmm

学习ing.....[em23][em23][em25][em25][em26][em26]

oriole

先谢过楼主．提问：

textbox1至textbox30共３０个分另对应表１和表２两个mdb表的字段，现要在表１中模糊查询30个textbox其中不为空(条件数量不确定，即不为空的ＢＯＸ数量不确定)的记录并全部写入表２中，怎样写代码？

db2.Execute "insert into findyh select * from yh where [yhfj] like " & Chr(39) & "*" & TextBox9.Text & "*'"

只是指定一个条件．

[此贴子已经被作者于2006-8-7 8:50:05编辑过]

oriole

不会是一个一个判断吧：if textbox1="" then.....

legendchow

好文！

紫蝶儿菲菲

要得。俺也好好学习。

爱歌学习

QUOTE:

以下是引用oriole在2006-8-6 22:41:57的发言：

先谢过楼主．提问：

textbox1至textbox30共３０个分另对应表１和表２两个mdb表的字段，现要在表１中模糊查询30个textbox其中不为空(条件数量不确定，即不为空的ＢＯＸ数量不确定)的记录并全部写入表２中，怎样写代码？

db2.Execute "insert into findyh select * from yh where [yhfj] like " & Chr(39) & "*" & TextBox9.Text & "*'"

只是指定一个条件．

看了你这里的附件http://club.excelhome.net/dispbbs.asp?boardid=2&replyid=475185&id=180691&page=1&skin=0&Star=1，因为每一个字段名不同且命名没有什么规律，应该只能一个一个判断吧....

爱歌学习

看了你这里的语句http://club.excelhome.net/viewthread.php?tid=182784&px=0

想到一个办法来“模糊查询30个textbox其中不为空(条件数量不确定，即不为空的ＢＯＸ数量不确定)的记录并全部写入表２中”：

Private Sub cmdFind_Click() '查找并写入
    Dim Sql$, i%
    Set DB2 = OpenDatabase(ThisWorkbook.Path & "\pallet.mdb")
    Set RS2 = DB2.OpenRecordset("findyh", dbOpenDynaset)
    DB2.Execute "delete from findyh"
    Sql = "insert into findyh select * from yh where "
    For i = 1 To 28
        If Controls("textbox" & i) <> "" Then
            Sql = Sql & RS2.Fields(i).Name & " like '*" & Controls("textbox" & i).Text & "*' and "
        End If
    Next
    Sql = Left(Sql, Len(Sql) - 4)
    DB2.Execute Sql
    RS2.Close: DB2.Close
    Set RS2 = Nothing: Set DB2 = Nothing
    Unload Me
    UserForm1.Show
End Sub

事先在填写文本框时对应为：

    For i = 1 To 28
        Me.Controls("textbox" & i).Text = IIf(IsNull(RS1.Fields(i)), "", RS1.Fields(i))
    Next

aTLUPDfe.rar (120.99 KB, 下载次数: 232)

2006-8-15 17:31 上传

点击文件名下载附件
使用 ADO-SQL 处理 EXCEL 文件的程序架构（实例注释）

[此贴子已经被作者于2006-8-15 18:16:21编辑过]

zjinling

真是想啥就来啥，想睡觉就来枕头，想了解ADO就来了爱歌学习的文章，真是太好了，谢谢你，辛苦了。

yiman_sun

很有意义，留着研究ADO的时候做参考！谢谢分享：）