excel吧 关注：279,927贴子：1,533,006
- 33回复贴，共1页
如何把A1:J1内容导出为TXT文本(命名为A)，如上图
Sub 导出到文本文档()
Dim tx As Object, Str$, i%
Set tx = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
For i = 1 To Range("A1").CurrentRegion.Rows.Count
Intersect(Rows(i), ActiveSheet.UsedRange).Copy
tx.getfromclipboard: Str = tx.gettext
Open ThisWorkbook.Path & "\" & i & ".txt" For Output As #1
Print #1, Str: Reset
Next
Set tx = Nothing
End Sub
用这段代码试一试！
Dim tx As Object, Str$, i%
Set tx = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
For i = 1 To Range("A1").CurrentRegion.Rows.Count
Intersect(Rows(i), ActiveSheet.UsedRange).Copy
tx.getfromclipboard: Str = tx.gettext
Open ThisWorkbook.Path & "\" & i & ".txt" For Output As #1
Print #1, Str: Reset
Next
Set tx = Nothing
End Sub
用这段代码试一试！
