excel vba按读取打开的excel文件数据并按条件写入未打开的excel文件

zhaogang1960

xuersweety 发表于 2012-1-10 21:32
是我改了文件，我用以前的文件试了。的确写入了数据，但是不是只在NN那写入，MM那也写入了，
我需要寻找 ...

8楼代码就是按照7楼最新附件修改的，请看附件：
files2.rar (27.9 KB, 下载次数: 84)

2012-1-10 21:38 上传

点击文件名下载附件

xuersweety

zhaogang1960 发表于 2012-1-10 21:27
原来的方法和现在的ADO都可以运行，请看演示

你好，好感谢啊。
如何只将qq里的数据填入对应的write里的NN表格里呀？
就是按照qq里A1的值在write里寻找相同的值，然后再在相同的值得表格里填入相应数据。
还有为什么F1和F3的值从qq写入write都减了1？F2的值是正确的。

迫切渴望有注释

感谢ing~~~~

zhaogang1960

xuersweety 发表于 2012-1-10 21:45
你好，好感谢啊。
如何只将qq里的数据填入对应的write里的NN表格里呀？
就是按照qq里A1的值在write里 ...

如果不打开write工作簿，就必须事先知道NN表格在第一行、有几行等，因为数据库中一个工作表只能有一行作为标题，建议使用打开方式

xuersweety

zhaogang1960 发表于 2012-1-10 21:54
如果不打开write工作簿，就必须事先知道NN表格在第一行、有几行等，因为数据库中一个工作表只能有一行作为 ...

那需要在哪里加上NN在第几行呀？
你的代码我看不懂，能不能加注释呀？

xuersweety

zhaogang1960 发表于 2012-1-10 21:54
如果不打开write工作簿，就必须事先知道NN表格在第一行、有几行等，因为数据库中一个工作表只能有一行作为 ...

比如说写上NN在第1行，MM在第6行，然后在判断qq里的A1的值没事NN就从第一行开始，填写3,4行，
要是MM，就从第六行开始，填写8,9行。
请问这样要怎样实现呀？

zhaogang1960

xuersweety 发表于 2012-1-10 21:56
那需要在哪里加上NN在第几行呀？
你的代码我看不懂，能不能加注释呀？

注释如下：
Sub Macro1() '引用Microsoft ActiveX Data Objects 2.x Library
    Dim cnn As New ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim SQL$, arr, i&, j&, lr&, lc%, s$, t$
    arr = [a1].CurrentRegion '数据区写入数组
    lr = UBound(arr) '行数
    lc = UBound(arr, 2) '列数
'    t = "[Feuil1$" & [a3].Resize(60000, lc).Address(0, 0) & "]"
    t = "[Feuil1$" & [a3].Resize(2, lc).Address(0, 0) & "]" '这里是数据区，不含标题
    cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 12.0;hdr=no';data source=" & ThisWorkbook.Path & "\write.xlsx" '连接数据库
    For i = 3 To lr逐行
        SQL = "select * from " & t & " where f1='" & arr(i, 1) & " '" '查看第一列中是否有F1、F2、F3的SQL语句
        Set rs = New ADODB.Recordset
        rs.Open SQL, cnn, 1, 3 '打开查询
        If rs.RecordCount Then '如果该F存在，则更新该行数据
            s = ""
            For j = 2 To lc
                s = s & "f" & j & "=" & arr(i, j) & " ,"
            Next
            SQL = "update " & t & " set " & Left(s, Len(s) - 1) & "  where f1='" & arr(i, 1) & " '" '更新数据SQL语句
            cnn.Execute SQL '执行更新
        End If
    Next
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub
下面附件确定区域为2行（NN表），列数等于主工作簿数据区列数 t = "[Feuil1$" & [a3].Resize(2, lc).Address(0, 0) & "]" ，必须事先知道(如果需要更新MM表，要再来一次，定义数据区从第8行开始，也是2行)

files2.rar (27.88 KB, 下载次数: 120)

2012-1-10 22:09 上传

点击文件名下载附件

xuersweety

zhaogang1960 发表于 2012-1-10 22:09
注释如下：
Sub Macro1() '引用Microsoft ActiveX Data Objects 2.x Library
    Dim cnn As New ADODB ...

请问可不可以将这个NN，MM所在的行数写在一个函数或是class model里，然后在程序中调用，这样当qq里是MM就调用第八行，是NN就调用第一行呀？

zhaogang1960

xuersweety 发表于 2012-1-10 22:23
请问可不可以将这个NN，MM所在的行数写在一个函数或是class model里，然后在程序中调用，这样当qq里是MM就 ...

从ADO的角度来看，NN和MM表是两个数据表，需要分别处理
NN从A3开始，共有2行数据
t = "[Feuil1$" & [a3].Resize(2, lc).Address(0, 0) & "]" =[Feuil1$A3:M4]
MM从A8开始，共有2行数据
t = "[Feuil1$" & [a8].Resize(2, lc).Address(0, 0) & "]" =[Feuil1$A8:M9]

xuersweety

zhaogang1960 发表于 2012-1-10 22:09
注释如下：
Sub Macro1() '引用Microsoft ActiveX Data Objects 2.x Library
    Dim cnn As New ADODB ...

更改行号就只需要更改Resize(60000, lc)这个60000就可以了是吗？
比如说我想填入MM里，我就把它改成8就可以了是吗？

zhaogang1960

xuersweety 发表于 2012-1-10 22:31
更改行号就只需要更改Resize(60000, lc)这个60000就可以了是吗？
比如说我想填入MM里，我就把它改成8就可 ...

建议NN表和MM表放到两个工作表中处理，因为NN表区域太大的话就可能包含MM表，两个区域不能交叉，否则可就要更新到别处去了