[求助]EXCEL——用友

数据工人

<P><b><FONT color=#000066>farmerwate：</FONT></b></P><P><b><FONT color=#000066>如果你使用Access版本的用友，可以和我联系</FONT></b></P>

kwai

<P>我用的方法是：</P><P>先将用友科目余额表（取三级以上）转为excel（另存），用sumif,vlookup等公式设定好资产负债表损益表等报表的公式（用科目代码对应），</P><P>以后每月将科目余额表帖过来就OK啦！</P>

shnawx

<DIV class=quote>EXCEL怎么倒入到用友系统</DIV>----------------------------------------------
也曾为花开花落所伤，
可从不想回味过去的忧伤，
只抱着淡淡的眼光，
默默地承受悲伤时光。
………………………

kwai

<DIV class=quote>EXCEL怎么倒入到用友系统?
--------</DIV><DIV class=quote>应该是导出吧？</DIV>

mm兔

我使用过

是可以的

总体来说 用友还是算比较好用的

flyge

有几种方法，添加引用 ado 然后建立连接，发送sql语句，返回的数据可以用循环一行行写，也可以写入查询表后刷到excel的表里后面的方法速度快

flyge

SQL举例

Public Sub TablesList()   ' 数据库里的数据表清单
    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset

  Dim SourceDataFileok As String
  Dim databaseName As String
  
  SourceDataFileok = ADDRESS '这里是ip地址 127.0.0.1，写IP或域名都可以
   
   ' SourceDataFileok = getipStr(SourceDataFileok)
   
    databaseName = "AdventureWorks" '这里是数据库名字
        CnnStr = ""
        CnnStr = CnnStr & "Provider=SQLOLEDB;"
        CnnStr = CnnStr & "User ID=sa;"
        CnnStr = CnnStr & "Password=Password123;"
        CnnStr = CnnStr & "Data Source="
        CnnStr = CnnStr & SourceDataFileok  '这里是ip地址
    cnn.ConnectionString = CnnStr
    cnn.Open
   
        Range("5:3000").Clear
        
    If DatabaseExist(cnn, databaseName) Then '检测数据库是否存在
      
        
        CnnStr = CnnStr & ";"
        CnnStr = CnnStr & "Initial Catalog = "
        CnnStr = CnnStr & databaseName      '这里是数据库名字
        
    cnn.Close
        cnn.ConnectionString = CnnStr
        cnn.Open
        
        Set rs = cnn.Execute("select * from sysobjects where xtype='U'")
        For i = 0 To rs.Fields.Count - 1
            Cells(5, i + 1) = rs.Fields(i).Name
        Next i
        
        Range("A6").CopyFromRecordset rs
        Cells.Columns.AutoFit
        
        rs.Close
        Set rs = Nothing
    End If
   
    Set cnn = Nothing
   
End Sub

kotym21

q*q 1396109200

想开个网店兼职创业的人可以找我，保证安全可靠，公司有执照，签订合同，提供一手内地，韩国正品女装货源一件代发，淘宝经营体系全程辅导，
公司诚邀用心下家一同经营淘宝共同安全致富。
公司地址在杭州可以上门咨询(外地也可传真签）。
有兴趣可以详谈 q*q 1396109200
              
   
  
  
  
  
  
  
  
  
  
  
  

netcolt

好好学习，天天向上。