如何弹性地将ACCESS信息导出到EXCEL的工作表呢？

Tom_HYQ

我的具体要求是：
1、在ACCESS中一个窗体里，用transferspreadsheet把ACCESS表的部分内容输出到EXCEL的
指定范围，这个我大概懂得
2、在EXCEL的工作表上要有标题和其他文本信息，这些信息在表格之上，内容不确定。这些
内容如何导出呢？如标题是：我的测试1
请指教，谢谢！

崔延东

Private Sub lbl输出报表_Click()
    Dim i As Integer, s As String
    Dim EA As Excel.Application
    Dim EB As Excel.Workbook, ES As Excel.Worksheet
    Dim db As Database
    Dim qdfTemp As QueryDef
    On Error Resume Next
    For i = 0 To lo.ListCount - 2
        s = s & lo.Column(0, i) & ","
    Next i
    s = s & lo.Column(0, i)
    If s <> "" Then
        s = "select " & s & " from 报表1"
    Else
        s = "select * from 报表1"
    End If
    Set db = CurrentDb
    With db
        .QueryDefs.Delete "符合条件的报表"
        Set qdfTemp = .CreateQueryDef("符合条件的报表", s)
        DoCmd.OutputTo acOutputQuery, "符合条件的报表", acFormatXLS, CurDir & "\符合条件的报表.xls", False
        .QueryDefs.Delete qdfTemp.Name
        .Close
    End With
    Set EA = New Excel.Application
    EA.Visible = True
    Set EB = EA.Workbooks.Open(CurDir & "\符合条件的报表.xls")
    Set ES = EB.Worksheets("符合条件的报表")
    ES.Cells.Font.Name = 字体
    ES.Cells.Font.Size = 字号
    ES.Cells.Font.Bold = 加粗
    ES.Cells.RowHeight = 字号 * 1.2
    ES.Cells.Select
    ES.Columns.AutoFit
    ES.Cells(2, 1).Select
    Set EA = Nothing
End Sub

只注意EA EB ES的语句，继续思考，自己先补充 控件，引用，有问题再提，我也要增强这个功能的，等 做完给你一份完整例子

tmtony

不错！

george

Private Sub lbl输出报表_Click()
    Dim i As Integer, s As String     Dim EA As Excel.Application     Dim EB As Excel.Workbook, ES As Excel.Worksheet     Dim db As Database     Dim qdfTemp As QueryDef     On Error Resume Next     For i = 0 To lo.ListCount - 2         s = s & lo.Column(0, i) & ","     Next i     s = s & lo.Column(0, i)     If s <> "" Then         s = "select " & s & " from 报表1"     Else         s = "select * from 报表1"     End If     Set db = CurrentDb     With db         .QueryDefs.Delete "符合条件的报表"         Set qdfTemp = .CreateQueryDef("符合条件的报表", s)         DoCmd.OutputTo acOutputQuery, "符合条件的报表", acFormatXLS, CurDir & "\符合条件的报表.xls", False         .QueryDefs.Delete qdfTemp.Name         .Close     End With     Set EA = New Excel.Application     EA.Visible = True     Set EB = EA.Workbooks.Open(CurDir & "\符合条件的报表.xls")     Set ES = EB.Worksheets("符合条件的报表")     ES.Cells.Font.Name = 字体     ES.Cells.Font.Size = 字号     ES.Cells.Font.Bold = 加粗     ES.Cells.RowHeight = 字号 * 1.2     ES.Cells.Select     ES.Columns.AutoFit     ES.Cells(2, 1).Select     Set EA = Nothing End Sub 只注意EA EB ES的语句，继续思考，自己先补充 控件，引用，有问题再提，我也要增强这个功能的，等 做完给你一份完整例子


红色部分是什么？