【a1:b4】。挑選
我長，我低，我長，我長
constnname as string =“c:\ * * Enjoy \ Shu ju . txt““您要保存文件的位置。
以# 1‘方式打開NName進行輸出以讀寫模式打開文件，每次寫入時原始內容都將被覆蓋\
irow =【a 65536】。結束（xlUp）。工作表中的最後壹列。
irow 1 =【b 65536】。結束（xlUp）。排
如果irow & gtirow1然後
irow = irow
其他
irow = irow1
如果…就會結束
for I = selection . row to selection . rows . count+selection . row-1‘開始循環寫入數據。
對於j = 1來選擇。列數
標準普爾。細胞（I，j）
然後
將數據寫入文本文件。
S =““
接下來我會寫下壹篇
“關閉#1”關閉文件。
MsgBox“從工作表到文本文件的轉換已完成！“，65，“提示”
末端接頭