[5分]列表导出固定格式的EXCEL文件

我不知道有没理解错 发帖人的问题,

他是想把ACCESS的一条记录, 导出成为 Excel 编排好的一个格式!

我帮用户做过, 就是用来打印不用银行支票的! Access程式用来输出到用户画好位置的Excel文件!

省掉我的部下为财务部每次去为他们做一个Access报表出来!

要求他们在Excel自己画好报表格式, 然后Access直掉驱动Excel打印!

我会把可以打印的 变量名称 及 所含内容 告诉用户，

让用户在Excel某一个格内 “插入”“名称”“定义”

在窗体的按钮按下后让用户选择用户建好的xls文件，然后呼叫 OutputExcelFormat ".....xls"

Sub OutputExcelFormat(xlsFile As String)

Dim app As Excel.Application
Dim doc As Excel.Workbook
Dim sht As Excel.Worksheet

Set app = New Excel.Application
Set doc = app.Workbooks.Open(xlsFile)
Set sht = doc.Worksheets(1)

For x = 1 To doc.Names.Count

    n = doc.Names(x).Name   '循环每一个已经"定义"的"名称"
   
    On Error Resume Next
    v = Me(n)           '检查是否为本窗体的一个控件名称
    If Err = 0 Then
        addr = doc.Names(x).RefersTo
        addr = Mid(addr, 2)
        Excel.Range(addr).Value = v    '把窗体控件的值 写到 Excel定义好的储存格内

    End If
    On Error GoTo 0
Next

sht.PrintOut Copies:=1, Collate:=True

End Sub