VB中使用EXCEL输出

review ''分页预览
    xls.ActiveWindow.Zoom = 100
    ''***************************关闭记录集*******************
    If con.State = adStateOpen Then
        rst_tsf.Close
        rst_qm.Close
        Set rst_tsf = Nothing
        Set rst_qm = Nothing
        con.Close
        Set con = Nothing
    End If
    Set xlsheet = Nothing
End Sub