在EXCEL中操作ACCESS库

jinhua9818

谢谢楼主的无私分享，我已经全部下载收藏了慢慢学习中{:soso_e113:}

cwzj3807

zez 发表于 2015-7-12 11:08
试试：SQL = "SELECT count(*) from 销售记录表 where 片区='北京'"

又来求教老师了，问题见附件 弹出 VBA 密码框.rar (11.99 KB, 下载次数: 55)

2015-8-17 11:46 上传

点击文件名下载附件

：
为什么总要的弹 出弹出 VBA 密码框？恳请老师指导，谢谢！！！

zez

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName '创建数据库连接  这一句有问题，提示：打不开文件，它已经被别的用户以独占方式打开

zez

Private Sub CommandButton1_Click()

      Dim cnn As Object, sql As String
     
      Range(Cells(5, 2), Cells(11, 26)).Clear
      
      Set cnn = CreateObject("adodb.connection")
    On Error Resume Next
      cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName '创建数据库连接
    If Err <> 0 Then
        MsgBox "打不开文件，它已经被别的用户以独占方式打开!"
        Err = 0
        Exit Sub
    End If
   
      sql = "select* from [数据表$B4:Y11]"
      
      
      Cells(5, 2).CopyFromRecordset cnn.Execute(sql)
      
      cnn.Close
      Set cnn = Nothing
      
      UserForm1.Hide
     'Unload Me

End Sub

cwzj3807

zez 发表于 2015-8-17 15:27
Private Sub CommandButton1_Click()

      Dim cnn As Object, sql As String

这就奇怪了，我把您修改的代码复制过来，经过运行不会报错啊，还是就是关闭的时候总要的弹 出弹出 VBA 密码框呀，还请老师再帮着看看，谢谢！！！

zez

cwzj3807 发表于 2015-8-17 18:46
这就奇怪了，我把您修改的代码复制过来，经过运行不会报错啊，还是就是关闭的时候总要的弹 出弹出 VBA 密 ...

我这里没有发现你说的情况

cwzj3807

zez 发表于 2015-8-17 19:30
我这里没有发现你说的情况

您直接打开文件运行（也就是不要查看代码），并关闭保存试试！

892788507

{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞

Today-跑跑

收藏先以后会用到的

fqan12

正在学习，谢谢分享。