求助关于表导出的问题

rockfish1976

Dim excelapp As Excel.Application
Dim excelwbk As Excel.Workbook
Dim excelwst As Excel.Worksheet
Set excelapp = New Excel.Application
Set excelwbk = excelapp.Workbooks.Add
Set excelwst = excelwbk.Worksheets.Add

定义个记录集rstfld，利用循环导出

For i = 1 To rstfld.Fields.Count
    excelwst.Cells(1, i) = rstfld.Fields(i - 1).Name
Next

excelwbk.SaveAs