VBA导入VFP的.dbf文件
Sub ImportVFPData() Dim i%, sql$ Dim cn, rst Set cn = CreateObject("adodb.connection") Set rst = CreateObject("adodb.recordset") Dim sql As String cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='dbase 5.0';Data Source=" & ThisWorkbook.Path sql = "SELECT * FROM sales.dbf WHERE name='A'" rst.Open sql, cn With Sheet1 .UsedRange.ClearContents For i = 1 To rst.Fields.Count .Cells(1, i) = rst.Fields(i - 1).Name Next i .Range("A2").CopyFromRecordset rst End With rst.Close cn.Close Set rst = Nothing Set cn = Nothing End Sub
作者:laoyebin(Paladin.lao)
出处:http://www.cnblogs.com/laoyebin/
网赚 :https://laoyebin.com/
优惠码发布:https://yhmfb.com/
导读网:https://daodu.co/
外汇吧:https://waihui.pub/
本文版权归作者和博客园共有,欢迎转载,但请保留作者信息和原文链接,非常感谢。
反馈文章质量,你可以通过快速通道评论: