关于ACCESS导出到EXCEL的问题？

snryga

Set rst = Me.派单考核2子窗体.Form.Recordset
        If rst.RecordCount > 0 Then rst.MoveFirst
        intN = 3
        Do Until rst.EOF
            intN = intN + 1
            '写入明细
            .Range("A" & intN) = rst!区县
.Range("B" & intN) = rst!派单起始日期
.Range("C" & intN) = rst!完成工作日
.Range("D" & intN) = rst!派单所属年月
.Range("E" & intN) = rst!距离月底工作日天数
.Range("F" & intN) = rst!派单总数
.Range("G" & intN) = rst!协调成功总数
.Range("H" & intN) = rst!已完工
'.Range("H" & intN) = rst!考核基数
.Range("J" & intN) = rst!完成率
         rst.MoveNext
        Loop
        '由于明细数据的行数不固定，这里通过在模板中设置好第一行的格式
        '第一行明细以后就在这里直接复制第一行的格式就行了
        .Range("A4", "J4").Copy
        .Range("A5", "J" & intN).PasteSpecial -4122  'xlPasteFormats
.Range("A4", "J4").Copy只能复制格式，如何才能将“EXCEL中的公式“一起复制呢？

tmtony

可设置单元格的formula 属性

snryga

怎么设置，能否说清楚点，谢谢