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

优质内容筛选与推荐>>
1、git错误记录
2、MySQL二进制日志
3、Beats、Filebea入门
4、[转]JavaScript RegExp 对象参考手册
5、java读取配置文件的几种方法（转）