用友凭证格式导入示例

鱼之乐

代码密码是 1324
有需要的朋友可以作针对性修改

luyulei

鱼之乐版主，谢了！另外想问问，这个公式对U8所有版本都适用么？另能同时引入多张凭证么？你的程序中有两张表和两个宏，表1的作用是什么？宏1的用法和作用是什么？

鱼之乐

这个问题要从二方面来说
第一.用友数据库不管版本如何升级,它的几个关键表结构没什么变化,其中最主要的凭证表名是gl_accvouch,access和sql版本都是同样的数据结构
第二.正是基于第一点,我们才有可能使用本宏所生成的用友凭证文本.利用用友提供的凭证导入工具,将此文本一次性导入到用友数据库中,就象是我们手工输入一样的效果.

再说说当时做这个宏的初始动机吧.
公司业务量很大，而且数据都已进入了业务数据库中，经常用友有与外部数据通讯的odbc接口,接口文本格式在总帐工具帮助中有详细说明,于是就想通过自己开发程序将业务数据转换为用友凭证格式,但业务数据各种各样,就针对费用部份开发了第一个宏,将它转化为如11楼格式的excel表格,这个是完全针对我公司实际开发的,并没什么通用性.

比较有价值的是第二个宏,具有通用性,可将 如11楼格式的excel表格数据转化为用友凭证文本,转换后的文本格式如下：（仅供举例，只部份数据）

填制凭证,V800      
2003-04-01,05,0,0,"工厂入库708台",13702,424800,0,708,0,0,,,,,GMBB,,"",,,,,,,,,,,,,,,,,,,,,0,0,0,0,0,,0,0,0,0
2003-04-01,05,0,0,"工厂入库708台",20802,0,424800,0,0,0,,,,,,,"",,,,,,,,,,,,,,,,,,,,,0,0,0,0,0,,0,0,0,0
.....................

然后通过“总账工具”中的“凭证导入”功能将此文本数据导入到用友中。
能否最后成功就要看excel表中的数据是否准确无误,常见应注意的是:辅助核算应有的必须完整填写,客户新档案应事先添加到用友相应档案中

luyulei

鱼之乐版主，我看到你的用SQL查询用友数据库的例程，能用中文给我解释解释么？本人刚学VBA，对EXCEL访问数据库部分还没有学，希望能跟你学几招！谢了！你的代码如下：
gl_accvouch表中的ccode_equal记录是每个分录的对方科目

关于从sql取数转到excel的demo：
Sub readdata()
    Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim NewBook As Workbook
    Dim i As Integer

    ' Create the Connection object.
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=SQLOLEDB.1;Password=mypwd;Persist Security Info=True;User ID=usrid;Initial Catalog=dbaseName ;Data Source=serverName"
    conn.Open
    ' Create a new Recordset Object.
    Set rst = New ADODB.Recordset
     With rst
        ' Connect this recordset to the previously opened connection.
        .ActiveConnection = conn
        ' Retrieve all records from the Customer table.
        .Open "SELECT * FROM tableName"
    End With

    ' Add a new worksheet to this workbook
    Set NewBook = Workbooks.Add
    ' Loop through all of the fields, returning the field names to the worksheet.
    For i = 0 To rst.Fields.Count - 1
        NewBook.Sheets(1).Range("a1").Offset(0, i).value = rst.Fields(i).Name
    Next i
    ' Copy the recordset to the new worksheet.
    NewBook.Sheets(1).Range("a2").CopyFromRecordset rst

    ' Close the recordset.
    Set rst = Nothing
    ' Close the Connection.
    conn.Close
End Sub
另想问问，未记账的凭证也在其中么？

鱼之乐

以上代码是标准的 vb 访问数据的代码 ,并不只是适合vba的
你可能需先了解一下 vb 数据方面的知识

luyulei

您能在EXCEL中做个VBA的例程么？

高歌

我要源码
gwt79@163.com

鱼之乐

以下是引用高歌在2003-9-7 11:57:00的发言：
我要源码
gwt79@163.com

楼上都有啊
密码也公布出来了,自己down吧

月黑高飞

只能有系统管理员权限才行啊,客户端又不能自行导入......

cpali3023

就导入的过程来看，其实很简单，没有你们所说的好么复杂，我们公司每个月有近两万笔分录录入的工作量，其中90%是从业务数据导出后，在EXCEL整理出符合用友凭证导入格式文件导入的(我们公司用的为8.50版本)，不需具备任何专业的电脑知识，不光是凭证，包括供应商，客户，等初始化数据全部都可导入导出，非常方便。金蝶软件的操作大致相同。
注：凭证的导出导入在任何一个客户端均可进行，其他的要通过SQL服务器管理程序导入，当然用SQL语句最方便。
(凭证格式的获得为先通过查询出一个凭证后导出即是，再在几个关键的数据点处输入数据及相差的资料，当然这此东西的输入只有在符合用友导入凭证规格的情况下才能导入，用友查询中有详细的说明。)

[此贴子已经被作者于2003-12-29 20:40:49编辑过]