求助关于表导出的问题

djt

打开表，全选一条记录，复制，到EXCEL，粘贴

djt

导出到哪？

djt

Sub ExportField(strTableName As String)
    Dim myxl As Object
    Dim rs As New ADODB.Recordset
    Dim n As Integer
    rs.Open "select top 1 * from " & strTableName, CurrentProject.Connection
    Set myxl = CreateObject("excel.application")
    myxl.Visible = True
    myxl.workbooks.Add
    With myxl.activeworkbook.activesheet
    For n = 1 To rs.Fields.Count
        .cells(, n) = rs.Fields(n - 1).Name
    Next
    End With
End Sub
Sub test()
    Call ExportField("workbom")
End Sub

djt

Sub ExportField(strTableName As String,strPath as string)
    Dim myxl As Object
    Dim rs As New ADODB.Recordset
    Dim n As Integer
    rs.Open "select top 1 * from " & strTableName, CurrentProject.Connection
    Set myxl = CreateObject("excel.application")
    myxl.Visible = True
    myxl.workbooks.Add
    With myxl.activeworkbook.activesheet
    For n = 1 To rs.Fields.Count
        .cells(, n) = rs.Fields(n - 1).Name
    Next
    End With
    myxl.activeworkbook.saveas strpath & "11.xls"
End Sub
Sub test()
    Call ExportField("workbom","c:\huangyz\")
End Sub

djt

完全可以

djt

必须开EXCEL才能写入，加一句
set myxl=nothing 就没了