该程序实现将ADODB的记录集(recordset)直接在xls文件中打开,只需调用现有控件接口即可实现。
dim atx as object
Set atx = CreateObject("adotoxls.adotoxls_cls")
      atx.T_title = "单位基本资料台账"
      atx.get_rs = s_rs
      atx.AdoToExcel
即可完成将记录集在excel文件中打开。前提是引用本控件。
联系方式:15837981882
EMAIL: