作者：绿色风
分类：
时间：2022-08-18
浏览：99
楼主
herelazy |
Q：如何用VBA把excel中的内容导成TXT文档？
A：- Sub test()
- Dim Rng As Range, Arr, Str$, Tmp$, X&
- Set Rng = Intersect(Rows("2:" & Cells(Rows.Count, 1).End(3).Row), ActiveSheet.UsedRange)
- If Not Rng Is Nothing Then
- With Rng
- For Y = 1 To .Rows.Count
- For X = 1 To .Columns.Count
- Tmp = Trim(.Cells(Y, X).Text)
- If X = 1 Then
- If Y = 1 Then
- Str = Tmp
- Else
- Str = Str & vbCrLf & Tmp
- End If
- Else
- If Tmp Like "####/*" Then
- Str = Str & vbTab & IIf(IsDate(Tmp), Format(Tmp, "yyyy/mm/dd"), Tmp)
- Else
- If Tmp = "" Then Tmp = String(8, " ")
- Str = Str & vbTab & Tmp
- End If
- End If
- Next X
- Next Y
- End With
- Open ThisWorkbook.Path & "\001.txt" For Output As #1
- Print #1, Str
- Close #1
- End If
- End Sub
 excel到txt文件.rar
|
2楼
linguijinjim |
不是很明白。不过还是路过学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一