引入引出的使用

msylyyqq

金蝶中可以引出标准凭证的EXCLE格式的文件，按照它相应的格式修改数据再引入进金蝶中，可以节省敲打几百条凭证分录的时间，我想请教下大家在修改数据时候有没有比较好用的函数可以利用，毕竟感觉修改那个数据也挺花时间的。比如说引出的上期凭证字段有：'将中间红字部分的数据相应修改成本期需要录入的数据。。请教下高手有比较简单的方法吗。我是用比较笨的方法，拆分，然后在用&合并修改的

[ 本帖最后由 msylyyqq 于 2010-10-14 11:59 编辑 ]

msylyyqq

自个顶下，要不沉了。。。。

msylyyqq

啊呀呀，怎么没有遇到同样问题的人啊
昨天自己做了个表，把所有原材料都整理成|“'XXXX----XXXX---XXXX”标准凭证里要求的格式，然后用到的时候直接引用过去，每次只要修改成前面批量加上英文单引号就可以了。目前只用这种笨办法，不晓得有没有前辈指点下呀

msylyyqq

杯具了。。。没人指教啊。。。。

andrewyang

你这个思路是对的，但是由于对你的业务不是太理解，所以也没有太多建议！

我用过这个功能，也是把核算项目弄在一个表里，只不过我用宏做的--可以直接取数据库中的内容，这样随时可以更新。之后，用VLOOKUP等引用到需要的PAGE1里（金蝶模板中存储数据一般都是PAGE1\PAGE2---)，当然这个我也把公式些到宏里了！
当然这样你必须用个数据库登陆权限，并且对数据库结构有个了解。

msylyyqq

数据库登陆权限?是金蝶里用的权限吗。貌似我没看过，我们公司只用了金蝶K3里财务部分
数据库是几乎没用过。。。所以不太清楚你利用宏引用数据库随时更新的内容是怎么操作的，要是能给我一个范本让我学习学习就好了。方便发个附件吗。嘿嘿

andrewyang

喔，你用金蝶只是一个界面  数据（凭证、科目余额、等）是存贮在数据库中的，肯定有数据库的 。要么是SQL，要么是ACCESS

  由于不同的数据库及设置，需要的SQL代码是不一样的。下面是从金蝶V10.4取数的VBA代码（数据返回到活动工作簿）.且做个例子，其中的SQL代码因为不同设置可能会不同（strSQL 后面的部分），你在数据库中可以调试好在放过来，-----
   如果这些都做好了，在用宏添加辅助列生成要的核算项目内容也就容易了



Sub GET_DATABASE()
  Dim CNN As New ADODB.Connection
  Dim RST As New ADODB.Recordset
  Dim Stpath, strSQL As String
   CNN.Open "Provider=sqloledb;Server=服务器IP地址;Database=数据库名;Uid=数据库登陆名;Pwd=数据库登录密码;"
   Erow = ActiveSheet.[A65536].End(xlUp).Row


  strSQL = "select fid,fname,fhiredate,fnumber," & _
"fdep=(select fname from t_department td where td.fitemid=t_emp. fdepartmentid)," & _
  "fnumber=(select fnumber from t_department td where td.fitemid=t_emp. fdepartmentid) from t_emp "

    RST.Open strSQL, CNN
  ActiveSheet.Range("a4").CopyFromRecordset CNN.Execute(strSQL)
Set RST = Nothing
Set CNN = Nothing
End Sub

msylyyqq

额，我理解了一点点。
但是好像对我这种不太懂VBA的人来说，弄错了会把金蝶里的数据库搞乱吧