U8凭证导入VBA代码

cf1019 · 发表于 2013-9-16 16:29:41

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册账号

×

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 · 发表于 2014-9-15 18:33:35

wxwqtds2004 发表于 2014-9-15 14:34
看不明白什么？

请参加附件
点击Excel中的“生成凭证”按钮，即可在sheet(凭证)中看到处理的结果并且在E盘下找到可导入用友u8的文件“凭证引入.txt”，在u8总账系统中即可实现导入
搜狗截图14年09月15日1826_1.jpg

cf1019 · 发表于 2014-9-15 18:28:14

请参加附件
点击Excel中的“生成凭证”按钮，即可在sheet(凭证)中看到处理的结果并且在E盘下找到可导入用友u8的文件“凭证引入.txt”，在u8总账系统中即可实现导入
搜狗截图14年09月15日1826_1.jpg

lfcorp · 发表于 2015-1-2 10:16:38

cf1019 发表于 2014-9-15 18:28
请参加附件
点击Excel中的“生成凭证”按钮，即可在sheet(凭证)中看到处理的结果并且在E盘下找到可导入用 ...

需要这个VBA呢，只可惜没有威望啊

cf1019 · 发表于 2014-9-13 17:03:03

crbjh 发表于 2014-9-12 15:12
学习了。学习了，。

https://www.oyonyou.com/forum.ph ... d=279674&extra=
看看这个帖子或许对你有用

cf1019 · 发表于 2013-9-17 08:28:13

dongzuorun 发表于 2013-9-16 17:11
有意思吗？

没意思。。。。。。。。。。。。。。。。

cf1019 · 发表于 2013-9-16 16:30:53

自己顶。。。。。。。。。。。。。。。。。。。。。。

cf1019 · 发表于 2013-9-16 16:31:24

再顶。。。。。。。。。。。。。。。。。。。。刷经验

dongzuorun · 发表于 2013-9-16 17:11:58

有意思吗？

huimaqiang · 发表于 2013-10-18 09:42:12

支持一下，谢谢分享啊

baotouzhiyuan · 发表于 2013-10-18 10:24:17

回复看看究竟是什么内容，有没有图片

crbjh · 发表于 2014-9-12 15:12:06

学习了。学习了，。

wxwqtds2004 · 发表于 2014-9-15 14:34:56

看不明白什么？

crbjh · 发表于 2014-9-17 13:42:44

好用，学习了。。

crbjh · 发表于 2014-9-18 09:18:17

学习了。顶起

stsysy · 发表于 2014-12-30 04:51:48

好东西，
顶，但受控系统似乎不能使用

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

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

U8凭证导入VBA代码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评

点评