字段名称导出到excel表格问题

rockfish1976

Dim catalog As New ADOX.catalog
Dim tabfld As New ADOX.table
catalog.ActiveConnection = CurrentProject.Connection
Set tabfld = catalog.Tables("qtck_page1")

i = 1
Do While i <= tabfld.Columns.Count
    excelwst.Cells(1, i) = tabfld.Columns(i - 1).Name
    i = i + 1
Loop
将access里某个表的字段名称导出到excel表格里。
怎么导出到excel后字段顺序和access里表格字段顺序不一致，怎么才能保持导出后字段顺序一致呢？
请指教

Henry D. Sy

循环导出

djt

打开表格看到的和表设计的顺序确实不一致，打开表格相当于打开一个默认的窗体，列可以自己随便排列，保存后，就和数据库不一致了，没办法，想一致，请用SELECT F1，F2 FROM 表 排好顺序

Henry D. Sy

# For intCol = 0 To rs.Fields.Count - 1
#         Set fld = rs.Fields(intCol)
#         objWs.Worksheets(strShtName).Cells(1, intCol + 1) = fld.Name
#     Next intCol

rockfish1976

4# Henry D. Sy

我是用adox打开的一个没有记录的表，用recordset对象好像不能操作啊

Henry D. Sy

可以的嘛

shenxb

学习