|
Sub 提取xml()
Open "D:\主题.txt" For Output As #1
For r1 = 10 To 3000
For c1 = 7 To 8
Data1 = ActiveSheet.Cells(r1, c1).Value
If c1 <> 8 Then
Print #1, Data1; vbTab;
Else
Print #1, Data1
End If
Next c1
Next
Close #1
MsgBox "D:\主题.txt 保存成功!"
End Sub
或者:
Sub 提取xml()
Open "D:\主题.txt" For Output As #1
For r1 = 10 To 3000
Data1 = ActiveSheet.Cells(r1, 7).Value
Data2 = ActiveSheet.Cells(r1, 8).Value
Print #1, Data1; vbTab; Data2
Next
Close #1
MsgBox "D:\主题.txt 保存成功!"
End Sub |
|