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 时间: 2009-8-21 14:55
循环导出作者: djt 时间: 2009-8-21 14:56
打开表格看到的和表设计的顺序确实不一致，打开表格相当于打开一个默认的窗体，列可以自己随便排列，保存后，就和数据库不一致了，没办法，想一致，请用SELECT F1，F2 FROM 表 排好顺序作者: Henry D. Sy 时间: 2009-8-21 14:57
# 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 时间: 2009-8-21 15:08 4#Henry D. Sy
我是用adox打开的一个没有记录的表，用recordset对象好像不能操作啊作者: Henry D. Sy 时间: 2009-8-21 15:20
可以的嘛作者: shenxb 时间: 2009-9-22 11:42
学习