私人？Sub？Command0_Click（）
暗淡？rs？作為什麽？新的？ADODB。記錄集
rs。打開嗎？“選擇？名字？從哪裏？msysobjects？在哪裏？type=1？然後呢。flags=0“，？當前項目。連接？adOpenKeyset，？adLockReadOnly
做什麽？什麽時候？不是嗎？rs。文件結束
DoCmd。TransferText？acExportDelim，？,?rs！名字？“D:\“？& amp？rs！名字？& amp？".txt "
rs。下壹步
環
rs。關閉
設置？rs？=?沒有任何東西
結束？Sub上面的導出路徑是D盤，可以自己修改。
祝妳成功！