请帮忙，ADO操作为何不能清空 【有间隔数据的】数据！

笨熊弟弟

Sub Macro1()
    Dim cnn As Object, SQL$
    Set cnn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties =Excel 8.0;Data Source =" & ThisWorkbook.Path & "\备份.xls"
    SQL = "select* from [Sheet1$]"
    rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    If rs.RecordCount > 0 Then
       While Not rs.EOF
             For j = 1 To rs.Fields.Count
                  rs.Fields(j - 1) = Null                 
             Next j
             rs.Update
             rs.MoveNext
       Wend
    End If
  '  Exit Sub
  '  SQL = "insert into [Sheet1$] select * from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[Sheet1$]"
   ' cnn.Execute SQL
  '  MsgBox "数据已经添加到数据库！", vbInformation, "添加数据"
    cnn.Close
    Set cnn = Nothing
End Sub
上面的代码，当全部有数据时能全部更新为空，但当有间隔的数据时就不能全部更新为空了，请教一下需要怎么修改才能全部清空数据，谢谢！

笨熊弟弟

求大神们帮帮忙！谢谢各位啦！

zhaogang1960

短信收到，这种方法我也测试过，不能更新没有打开的工作簿，我用下面方法
    SQL = "update [Sheet1$] set 姓名=null,班别=null,年龄=null"
    cnn.Execute SQL

笨熊弟弟

哦！谢谢！
那么可以指定更新安放地址吗？
现在更新是放在清空数据的后面，意思就是前面有一段空行，我能否指令更新的数据从第二行开始往下填充呢？

一下代码是从外工作表读取数据填充到本簿的语句，我要怎么修改才能达到这效果。
Sheet34.[a1].CurrentRegion.Offset(1).ClearContents
Sheet34.[a2].CopyFromRecordset cnn.Execute(SQL)

zhaogang1960

笨熊弟弟 发表于 2014-1-17 18:10
哦！谢谢！
那么可以指定更新安放地址吗？
现在更新是放在清空数据的后面，意思就是前面有一段空行，我能 ...

第一个问题上帖中就有：
求助利用ADO方法将数据写入到另一个工作表
http://club.excelhome.net/thread-1089608-1-1.html

第二个问题请上传附件说明

笨熊弟弟

赵老师你好！谢谢你百忙中也抽空帮我解决问题，谢谢！

现在我想换一个思路，你看看能不能帮我编辑一下，谢谢。

现在的思路是，运行程序后，第一时间删除现有的工作簿（备份.xls），再另外生成一个【备份.xls】工作簿，生成的工作表是复制同目录下的第三个工作簿（模板.xls）。因为既然要更新那么旧的就可以不要了，所以可以删除的。只要按格式保存一个就可以了。

请老师帮我编辑一下，谢谢！

PS：我这样做的目的是用作保存公用信息的，由于有N多个工作簿，需要的信息都一样的，而这些信息又可能会更改，所以，我想只要更改一次再保存，那么其他工作表就能读取使用了。

       我的其他N多个工作簿每次打开都会自动读取更新【备份.xls】工作簿里的数据的，这动作我已经完成，目前就差保存这块了。

笨熊弟弟

再编辑不能上传附件....晕死咯。

笨熊弟弟

{:soso_e160:}

顶起顶起老是快来快来快来.......

{:soso_e118:}

zhaogang1960

笨熊弟弟 发表于 2014-1-17 20:07
再编辑不能上传附件....晕死咯。

1. Sub Macro1()
   
2.     Dim cnn As Object, SQL$, f$
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties =Excel 8.0;Data Source =" & ThisWorkbook.FullName
   
5.     f = ThisWorkbook.Path & "\备份.xls"
   
6.     If Dir(f) <> "" Then Kill f
   
7.     SQL = "select * into [Excel 8.0;Database=" & f & "].Sheet1 from [Sheet1$]"
   
8.     cnn.Execute SQL
   
9.     MsgBox "数据已经备份。"
   
10.     cnn.Close
    
11.     Set cnn = Nothing
    
12. End Sub
    

复制代码

zhaogang1960

请测试附件
ADO.rar (7.45 KB, 下载次数: 10)

2014-1-17 21:44 上传

点击文件名下载附件