EXCEL从用友里面取数

stevenzxg

各位高手，公司报表比较多，想搞个一劳永逸的方法，excel下直接从用友取数，可惜我SQL等不是很明白，目前我手上已经有了用友的数据字典和数据库表名对照表，然后求助于公司的网络部的同事，反馈是解决不了，特在向大家请教。


先举个简单的例子把。
我想在excel的a1 单元格内获取 2009年度  22210101（应交税费） 贷方发生额
请问应该怎么来实现啊。应该从哪一张表 的哪一个字段里面查询呢。

希望各位帮个忙，我也好拿着这个例子再请教公司同事，看能不能找到好办法。

谢谢

tq229926

先要连接数据库，再写个查询语句

zm0115

曾经(5,6年前)在以前的公司做过这样的事情.我用Excel自定义函数给他们做的。另外论坛好像有这样的工具，楼主也可以搜索一下。

stevenzxg

谢谢楼上朋友，能否给个关键字提醒，论坛里也找了一遍了，可惜本人编程基础比较差，很多东西看不懂。

连接数据库，我知道可以通过 ODBC等方式连接，可以如何连接我就不知道了。


也许是因为我的表达不清楚，才导致同事无法帮忙的，本意是通过这样一个例子，给公司的同事看一下的

zm0115

楼上的，短消息你了

tq229926

Sub kucun()
Range("a2:h10000") = ""
str_connect = "ODBC;DRIVER={SQL Server};UID=sa;DATABASE=ais20091228093857;SERVER=192.168.1.10;PWD="
    ls_select = "SELECT FItemID,FBatchNo,FQty From icinventory where FQty< >0 "
    With Sheet1.QueryTables.Add(Connection:= _
          str_connect, Destination _
          :=Sheet1.Range("e2"))
          .sql = Array(ls_select)
          .FieldNames = False
          .RefreshStyle = xlOverwriteCells
          .RowNumbers = False
          .FillAdjacentFormulas = False
          .RefreshOnFileOpen = False
          .HasAutoFormat = False
          .BackgroundQuery = False
          .TablesOnlyFromHTML = False
          .Refresh BackgroundQuery:=False
          .SavePassword = True
          .SaveData = False
     End With
  Sheet2.Range("a2:d10000") = ""
   ls_select = "SELECT FItemID,FNumber,FName,FModel From t_icitem"
    With Sheet2.QueryTables.Add(Connection:= _
          str_connect, Destination _
          :=Sheet2.Range("A1"))
          .sql = Array(ls_select)
          .FieldNames = True
          .RefreshStyle = xlOverwriteCells
          .RowNumbers = False
          .FillAdjacentFormulas = False
          .RefreshOnFileOpen = False
          .HasAutoFormat = False
          .BackgroundQuery = False
          .TablesOnlyFromHTML = False
          .Refresh BackgroundQuery:=False
          .SavePassword = True
          .SaveData = False
     End With
这是我查看库存的一部分代码

rzz8118

zm0115 发表于 2010-3-3 16:57
曾经(5,6年前)在以前的公司做过这样的事情.我用Excel自定义函数给他们做的。另外论坛好像有这样的工具，楼主 ...

有没有现成的实例文件学习学习，谢谢

840205910

最大的问题是连接上，才能取数据

zhangruihua8023

tq229926 发表于 2010-3-4 15:12
Sub kucun()
Range("a2:h10000") = ""
str_connect = "ODBC;DRIVER={SQL Server};UID=sa;DATABASE=ais200 ...

不明白，这样可以取数吗？没有定义前期与后期绑定

2013.7.19

给你个工具http://www.400gb.com/shared/folder_6053604_fbcb537f/