打開“D:\ theme.txt”作為# 1輸出
對於r1 = 10到3000
對於c1 = 7到8
Data1 = ActiveSheet。單元格（r1，c1）。價值
如果c 1 & lt；& gt那就8
Print #1，data 1；vbTab
其他
打印號1，數據1
如果…就會結束
下壹個c1
然後
關閉#1
MsgBox“D:\ Theme。txt保存成功！”
末端接頭
或者:
Sub提取xml（）
打開“D:\ theme.txt”作為# 1輸出
對於r1 = 10到3000
Data1 = ActiveSheet。單元格（r1，7）。價值
Data2 = ActiveSheet。單元格（r1，8）。價值
Print #1，data 1；vbTab數據2
然後
關閉#1
MsgBox“D:\ Theme。txt保存成功！”
末端接頭