VBA导入VFP的.dbf文件

ImportVFPData() ImportVFPData()Dim i%, sql$Dim cn, rstSet cn = CreateObject(“adodb.connection”)Set rst = CreateObject(“adodb.recordset”)Dim sql As Stringcn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=’dbase 5.0′;Data Source=” & ThisWorkbook.Pathsql = “SELECT * FROM sales.dbf WHERE name=’A'”rst.Open sql, cnWith Sheet1.UsedRange.ClearContentsFor i = 1 To rst.Fields.Count.Cells(1, i) = rst.Fields(i – 1).NameNext i.Range(“A2”).CopyFromRecordset rstEnd Withrst.Closecn.CloseSet rst = NothingSet cn = NothingEnd Sub作者：laoyebin(Paladin.lao)博客园出处：http://www.cnblogs.com/laoyebin/个人网站英文出处：http://mrvsto.com/个人网站中文出处：http://cn.mrvsto.com/

VSTO与Excel学习

学会技能是小智慧，学会做人是大智慧。