找回密码
 注册账号

QQ登录

只需一步,快速开始

手机号码,快捷登录

手机号码,快捷登录

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

U8凭证导入VBA代码

[复制链接]
发表于 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
 楼主| 发表于 2014-9-15 18:33:35 | 显示全部楼层

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

使用道具 举报

 楼主| 发表于 2014-9-15 18:28:14 | 显示全部楼层
请参加附件
点击Excel中的“生成凭证”按钮,即可在sheet(凭证)中看到处理的结果 并且在E盘下找到可导入用友u8的文件“凭证引入.txt”,在u8总账系统中即可实现导入
搜狗截图14年09月15日1826_1.jpg

用VBA制作开票系统和用友软件数据转换接口.docx

1.55 MB, 下载次数: 27, 下载积分: 金币 -5

发票导出数据.xls

51 KB, 下载次数: 33, 下载积分: 金币 -5

金币

快速加金币

下载提示积分金币不足,非特定用户等

无法下载,可充值金币

回复 点赞 拍砖

使用道具 举报

发表于 2015-1-2 10:16:38 | 显示全部楼层
cf1019 发表于 2014-9-15 18:28
请参加附件
点击Excel中的“生成凭证”按钮,即可在sheet(凭证)中看到处理的结果 并且在E盘下找到可导入用 ...

需要这个VBA呢,只可惜没有威望啊
回复 点赞 拍砖

使用道具 举报

 楼主| 发表于 2014-9-13 17:03:03 | 显示全部楼层
crbjh 发表于 2014-9-12 15:12
学习了。学习了,。

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

使用道具 举报

 楼主| 发表于 2013-9-17 08:28:13 | 显示全部楼层

没意思。。。。。。。。。。。。。。。。
回复 点赞 拍砖

使用道具 举报

 楼主| 发表于 2013-9-16 16:31:24 | 显示全部楼层
再顶。。。。。。。。。。。。。。。。。。。。刷经验
回复 点赞 拍砖

使用道具 举报

发表于 2013-10-18 09:42:12 | 显示全部楼层
支持一下,谢谢分享啊
回复 点赞 拍砖

使用道具 举报

发表于 2013-10-18 10:24:17 | 显示全部楼层
回复看看究竟是什么内容,有没有图片
回复 点赞 拍砖

使用道具 举报

发表于 2014-9-12 15:12:06 | 显示全部楼层
学习了。学习了,。

点评

http://www.oyonyou.com/forum.php?mod=viewthread&tid=279674&extra= 看看这个帖子或许对你有用  详情 回复 发表于 2014-9-13 17:03
回复 点赞 拍砖

使用道具 举报

发表于 2014-9-15 14:34:56 | 显示全部楼层
看不明白什么?

点评

请参加附件 点击Excel中的“生成凭证”按钮,即可在sheet(凭证)中看到处理的结果 并且在E盘下找到可导入用友u8的文件“凭证引入.txt”,在u8总账系统中即可实现导入 [attachimg]77320[/attachimg]  详情 回复 发表于 2014-9-15 18:33
回复 点赞 拍砖

使用道具 举报

发表于 2014-9-17 13:42:44 | 显示全部楼层
好用,学习了。。
回复 点赞 拍砖

使用道具 举报

发表于 2014-9-18 09:18:17 | 显示全部楼层
学习了。顶起
回复 点赞 拍砖

使用道具 举报

发表于 2014-12-30 04:51:48 | 显示全部楼层
好东西,
顶,但受控系统似乎不能使用
回复 点赞 拍砖

使用道具 举报

您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

QQ|站长微信|Archiver|手机版|小黑屋|用友之家 ( 蜀ICP备07505338号|51072502110008 )

GMT+8, 2024-3-29 22:07 , Processed in 0.052757 second(s), 13 queries , Gzip On, Redis On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表