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/

个人网站英文出处： http://mrvsto.com/

个人网站中文出处： http://cn.mrvsto.com/