非常好用的Excel转txt的工具方便简单错误检查功能强大可预览凭证有截图

cf1019 · 发表于 2013-10-30 23:45:28

Sub write_string_to_txt()
Dim sLine As String
Dim sFName As String
Dim iFNnumber As Integer
Dim lRow As Long
Const sVS As String = ","
Const sTD As String = """"
sFName = "F:\总账.txt"
iFNnumber = FreeFile
Open sFName For Output As #iFNnumber
lRow = 2
Do
sLine = Sheets("凭证").Cells(lRow, 1).Value & sVS
sLine = sLine & sTD & Sheets("凭证").Cells(lRow, 2).Value & sTD & sVS
sLine = sLine & sTD & Sheets("凭证").Cells(lRow, 3).Value & sTD & sVS
sLine = sLine & Sheets("凭证").Cells(lRow, 4).Value & sVS
sLine = sLine & sTD & Sheets("凭证").Cells(lRow, 5).Value & sTD & sVS
sLine = sLine & sTD & Sheets("凭证").Cells(lRow, 6).Value & sTD & sVS
sLine = sLine & Format(Sheets("凭证").Cells(lRow, 7).Value, "0.00") & sVS
sLine = sLine & Format(Sheets("凭证").Cells(lRow, 8).Value, "0.00") & sVS
sLine = sLine & Sheets("凭证").Cells(lRow, 9).Value & sVS
sLine = sLine & Sheets("凭证").Cells(lRow, 10).Value & sVS
sLine = sLine & Sheets("凭证").Cells(lRow, 11).Value & sVS
sLine = sLine & sTD & Sheets("凭证").Cells(lRow, 12).Value & sTD & sVS
sLine = sLine & Sheets("凭证").Cells(lRow, 13).Value & sVS
sLine = sLine & sTD & Sheets("凭证").Cells(lRow, 14).Value & sTD & sVS
sLine = sLine & Sheets("凭证").Cells(lRow, 15).Value & sVS
sLine = sLine & sTD & Sheets("凭证").Cells(lRow, 16).Value & sTD & sVS
sLine = sLine & sTD & Sheets("凭证").Cells(lRow, 17).Value & sTD & sVS
sLine = sLine & sTD & Sheets("凭证").Cells(lRow, 18).Value & sTD & sVS
sLine = sLine & sTD & Sheets("凭证").Cells(lRow, 19).Value & sTD & sVS
sLine = sLine & Sheets("凭证").Cells(lRow, 20).Value & sVS
sLine = sLine & sTD & Sheets("凭证").Cells(lRow, 21).Value & sTD & sVS
Print #iFNnumber, sLine
lRow = lRow + 1
Loop Until IsEmpty(Sheets("凭证").Cells(lRow, 1).Value)
Close #iFNnumber
End Sub

cf1019 · 发表于 2013-10-30 23:47:11

LPJSOFT 发表于 2012-3-25 09:35
之前我都是把表格复制到DOC 再把空格替换成 ','，现在有了这工具就方便很多了！

请参考帖子 https://www.oyonyou.com/thread-266119-1-1.html

qhjff · 发表于 2013-11-21 09:33:51

学习学习学习谢谢学习学习学习谢谢

shr8023jy · 发表于 2013-11-30 10:46:24

尝试一下看看

shr8023jy · 发表于 2013-11-30 10:46:57

如果好用就能推广了

hwxysq · 发表于 2013-12-4 22:38:09

好不好有呢，下载个试试

maradona010 · 发表于 2014-4-15 21:02:44

t6能用吗？

crbjh · 发表于 2014-9-16 13:29:08

下载了，怎么才能正常用

crbjh · 发表于 2014-9-16 16:01:12

自己捣鼓捣鼓，可以导凭证了。

apute · 发表于 2014-11-29 11:32:35

对于需要的人来说，楼主你辛苦了

yayabobo · 发表于 2015-4-11 00:47:47

谢谢楼主，好工具一定要支持！！！！！！！！！！！

erdsyccw · 发表于 2015-4-11 07:19:19

好东西，下来看看，试试，谢谢

账号		自动登录	找回密码
密码			注册账号

初学者课程：T3自学\|T6自学\|U8自学	软件下载｜课件下载｜工具下载	资料：通资料\|U8资料\|NC\|培训\|年结	积分规则 \| 使用常见问题Q&A
知识库:U8 \| 通 \| NC \| U9 \| OA \| 政务	U8\|U9\|NCC\|NC65\|NC65客开\|NCC客开	新手必读 \| 任务 \| 快速增金币	用友QQ群[微信群]

非常好用的Excel转txt的工具 方便简单 错误检查 功能强大 可预览凭证 有截图

非常好用的Excel转txt的工具方便简单错误检查功能强大可预览凭证有截图