私有子命令1_Click（）
exorte 5so（False）
末端接頭
私有子命令2_Click（）
exorte 5so（True）
末端接頭
函數exorte 5so（printf為Boolean）
將臨時文件顯示為字符串
將xl顯示為新的Excel。應用
將xW顯示為Excel。練習本
將xS顯示為Excel。工作表
將Nxw顯示為新的Excel。練習本
將Nxs顯示為Excel。工作表
迪姆裏！
Dim x！
Dim NworkN作為字符串
將I設為整數
Dim Billc
Dim delRang$
出錯時轉到錯誤:
if VS . text matrix（1，1）=“，則
退出功能
如果…就會結束
i = 1
TempFile =“C:\ Etmp \ def PRG \ e5s print . xls“
如果臨時文件=““或目錄（臨時文件）=““，則
' ÷??？?
如果CopyData = False，則
MsgBox“？“句句“，vbCritical，OP1。
退出功能
如果…就會結束
如果…就會結束
= = = = = = = = = = = = = = = = = =向目標文件添加數據
set XL = CreateObject（“excel。應用程序”）
設置xW = xl。工作簿。打開（臨時文件）
設置xS = xW。工作表（“00”）
xl。可見=真實
xl。可見=真實
xW。使活動
xW。工作表（“00”）。復制
xW。工作表（“樣本”）。復制
NworkN = xl。ActiveWorkbook.Name
xW。application . display alerts = False
xW。關閉
設置xW =無
設置xS = Nothing
設置Nxw = xl。工作簿（工作手冊）
設置Nxs = Nxw。工作表（“00”）
Nxs。name =“1“
設置Nxs = Nxw。張（1）
設置Nxs。指數= 2
Nxs。使活動
'
'
'
BillStr = List1。文本
DEpNa = Mid（BillStr，19，InStr（19，BillStr，“/“）-19）
Billc = List1。文本
RI =與行數的關系
Nxs。cells（2，1）=“à??"& amp比爾奇
Nxs。cells（2，7）=“““& amp；對比text matrix（1，10）
Nxs。cells（3，1）=“？???"& amp對比文本矩陣（1，9）
Nxs。cells（3，7）= VS . text matrix（1，11）
Nxs。單元格（201，2）=文本矩陣（1，8）
Nxs。cells（203，5）= VS . text matrix（1，7）
與VS
對於i = 1至RI - 1
對於x = 1到6
Nxs。cells（4+I，x）= VS . text matrix（I，x）
然後
然後
del rang = I+4 & amp；":200"
Nxs。行（delRang）。刪除
以…結尾
打印
如果printf = True那麽
設置Nxs = Nxw。張（1）
Nxs。打印輸出
Nxw。關閉
xl。放棄
如果…就會結束
設置Nxw =無
設置Nxs =無
設置xl =無
錯誤手:
如果呃。Number = 32755或Err。那麽數字= 0
呃。清楚的
退出功能
埃爾瑟夫錯了。那麽數字= 424
msgbox“?？？？й???ж? "，vbCritical，OP3
呃。清楚的
其他
MsgBox錯誤。號碼和密碼。呃。描述，VB感嘆號，OP1
呃。清楚的
退出功能
如果…就會結束
結束功能