Visual Basic 导出到 Excel 提速之法 (转)[2]

        .rightfooter = "&""楷体_gb2312,常规""&10第&p页 共&n页"
    end with
   
    xlapp.application.visible = true
    set xlapp = nothing  '"交还控制给excel
    set xlbook = nothing
    set xlsheet = nothing

end function

注:须在程序中引用'microsoft excel 9.0 object library'和ado对象,机器必装excel 2000

本程序在windows 98/2000,vb 6 下运行通过。