一个CEXEL VBA的高级应用范例

ai323

thanks for sharing

xupeng900

学习了、收藏了！

tigeress

哇。。。学习了！对我目前的工作很有帮助啊，谢了！

虫虫革命

我正好想要统计下公司人的社保啊，实在是太多了，·····

phw123456

Public Sub mydbf()
    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim cnnStr As String
    Dim myPath As String
    Dim myDBase As String
    Dim SQL As String
    Dim xlsFile As String
    Dim Inrow As Integer
    Dim dbfBmbh As String
   
    Application.ScreenUpdating = False '阻止屏幕闪烁
   
    xlsFile = Dir(ActiveWorkbook.Path & "\dwdm.dbf")
    dbfBmbh = Dir(ActiveWorkbook.Path & "\dwdm.dbf")

     
    myPath = ThisWorkbook.Path
    myDBase = xlsFile
    cnnStr = "Driver={Microsoft Visual FoxPro Driver};" _
        & "SourceType=DBF;" _
        & "SourceDB=" & myPath & ";" _
        & "Exclusive=No;"
    cnn.Open cnnStr
   
    SQL = "select * from " & myDBase
    rs.Open SQL, cnn, adOpenDynamic, adLockOptimistic
    Sheets(1).Activate
   
    Range("A2").CopyFromRecordset rs
   
   rs.Close
   
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
    MsgBox "完毕!"
End Sub

当程序运行到“ cnn.Open cnnStr”时出现 “-2147467259（800040005）”错误。
说是“ODBC 驱动程序管理器 程序不支持这个功能”
不知道又该怎样，请高手指点！

lpluobin

请教，为什么运行时出现如此问题。


点调试后如下图

weiguoyin868

需要 vba与dbf的动态连接库vfpodbc.dll
将vfpodbc.dll拷入C:\WINDOWS\system32目录下
该文件有不同版本，需要测试。

离开海的海蜇

哪一版的都能用吗

zxhmfk

好贴啊好贴，顶了

xiaojun0301

持LZ，谢谢分享！