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

zhouhuajin

功能:1.动态生成Excel模版
        2.通过配置可以灵活读取Excel中的列数据
        3.已测试在872中可以成功导入！其他版本未进行测试，如有朋友发现BUG请提出！
     
   
      
      
      
      转凭证工具.rar (1.68 MB, 下载次数: 297) 充值金币->

2012-3-23 23:52 上传

点击文件名下载附件

cf1019

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

zhouhuajin 发表于 2012-3-25 18:40
等了这么久终于等到个回复的了，感谢支持！开发这个软件的目的就是为了解决我们公司的凭证导入的问题，公司 ...

呵呵 我还是感觉用宏就可以实现 而且从税务系统里导出的发票信息 经过excel处理就可以直接生成凭证 然后生成TXT 导入

cf1019

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

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

kkydt

不错     很实用

qhjff

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

LPJSOFT

之前我都是把表格复制到DOC 再把空格替换成 ','，现在有了这工具就方便很多了！{:soso_e179:}

zhouhuajin

等了这么久终于等到个回复的了，感谢支持！开发这个软件的目的就是为了解决我们公司的凭证导入的问题，公司财务的那些人以前用的是EXCEL宏的方法导，经常出问题，而且表格单一，每次转的时候需要覆盖掉上次的数据很是不方便。

wozengcong

有点像导入导出工具。。。。。。。。。。。。导入凭证的时候转后成txt然后用总账工具的那个，不过和你这个界面有点不一样呢

zhouhuajin

没错  这本来就是个  转Excel的工具   标题已经说得很明白

zhouhuajin

希望下载使用过的朋友能提供宝贵的使用意见，如BUG或者功能缺陷，我好及时修复及增加，为大家提供一个又好用又方便的转凭证工具！

li02

怎么打不开？

应用程序发生异常 未知的软件异常 (0x0eedfade)，位置为 0x7c812afb。
Exception Exception in module Excel2Txt.exe at 002FC9BA.
Error loading MIDAS.DLL.

zhouhuajin

你的是什么系统？

wunaiyinyue

windows打不开。 报7楼的那个错。

wunaiyinyue

windows 7 的打不开

ytycf151

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

youngman007

        感谢zhouhuajin朋友奉献精品！辛苦了！你真是我们用友粉丝的救星！不知该工具能支持用友哪些版本的导入导出？我希望楼主能逐渐完善支持的版本，最终能成为支持用友全系列软件导入导出的工具！        现在它支持用友政务R9的导入导出吗？

senco

下了学习学习学习谢谢学习学习学习谢谢

℡丨丶moゝ

试试试试 。。。这么好的工具

howellled

好东西啊,哥们也分享分享