查看: 3876|回复: 19|
在线时间173 小时经验82 威望0 性别男最后登录注册时间阅读权限20UID130957积分82帖子精华0分享0
EH初级, 积分 82, 距离下一级还需 268 积分
积分排行3000+帖子精华0微积分0
本帖最后由 深秋落叶 于
14:39 编辑
当前大多数财务软件都有电子报表模块,但生成的报表数据只能导出到EXCLEL中为静态数据,不能动态引用,小生试图绕过财务软件客户端,通过一定工具截获客户端发送到后台ORACLE数据库的生成科目余额表的SQL语句,在PL/SQL 工具软件中测试通过,生成的报表和在财务软件客户端中生成的完全一样.
&&现在我想在EXCEL中直接生成科目余额表,利用引入外部数据功能结合MS QUERY 工具可以实现,但SQL语句中 '起始日期,结束日期,科目编码 '这三个常量无法从EXCEL单元格中取数.
不知用VBA+ADO 方式如何解决?,请给出代码,我试试
附:1.截获SQL语句的工具
& & 2.操作具体流程的截图
在线时间5340 小时经验10138 威望2 最后登录注册时间阅读权限95UID371378积分10838帖子精华0分享0
积分排行65帖子精华0微积分0
MQ可以从单元格取 数的啊
在线时间235 小时经验754 威望0 性别男最后登录注册时间阅读权限50UID24953积分1304帖子精华1分享0
EH高级, 积分 1304, 距离下一级还需 696 积分
积分排行809帖子精华1微积分0
应该拿着截出来的Sql去分析表结构，然后再在Vba中定制Sql，通过外部查询、透视表、ado获取数据
在线时间173 小时经验82 威望0 性别男最后登录注册时间阅读权限20UID130957积分82帖子精华0分享0
EH初级, 积分 82, 距离下一级还需 268 积分
积分排行3000+帖子精华0微积分0
本帖最后由 深秋落叶 于
09:46 编辑
附件1:截获SQL语句的工具
在线时间173 小时经验82 威望0 性别男最后登录注册时间阅读权限20UID130957积分82帖子精华0分享0
EH初级, 积分 82, 距离下一级还需 268 积分
积分排行3000+帖子精华0微积分0
杂上传截图啊
在线时间2520 小时经验2612 威望0 性别男最后登录注册时间阅读权限90UID91862积分3212帖子精华2分享2
EH能手, 积分 3212, 距离下一级还需 1488 积分
积分排行299帖子精华2微积分0
本帖最后由 Kelidai 于
10:24 编辑
以下是通过Excel 的VBA连接Oracle并操作Oracle相关数据的示例
Excel 通过VBA连接数据库需要安装相应的Oracle客户端工具并引用ADO的相关组件，引用ADO相关组件可按如下步骤操作：
　　1、打开VBA编辑器，在菜单中点选“工具”，“引用”；
　　2、确保“Microsoft ActiviteX Data Objects 2.8 Library”和“Microsoft ActiviteX Data ObjectS Recordset 2.8 Library”被勾选上。
　　建立连接过程，代码如下：
复制代码 代码如下:
Public Sub ConOra()
On Error GoTo ErrMsg:
Dim ConnDB As ADODB.Connection
Set ConnDB = New ADODB.Connection
Dim ConnStr As String
Dim DBRst As ADODB.Recordset
Set DBRst = New ADODB.Recordset
Dim SQLRst As String
Dim OraOpen As Boolean
OraOpen = False
OraID=&Orcl& 'Oracle数据库的相关配置
OraUsr=&user&
OraPwd=&password&
ConnStr = &Provider = MSDAORA.1;Password=& & OraPwd & _
&;User ID=& & OraUsr & _
&;Data Source=& & OraID & _
&;Persist Security Info=True&
ConnDB.CursorLocation = adUseServer
ConnDB.Open ConnStr
OraOpen = True '成功执行后，数据库即被打开
'MsgBox &Connect to the oracle database Successful!&, vbInformation, &Connect Successful&
DBRst.ActiveConnection = ConnDB
DBRst.CursorLocation = adUseServer
DBRst.LockType = adLockBatchOptimistic
SQLRst = &Select * From TstTab&
DBRst.Open SQLRst, ConnDB, adOpenStatic, adLockBatchOptimistic
DBRst.MoveFirst
Exit Function
OraOpen = False
MsgBox &Connect to the oracle database fail ,please check!&, vbCritical, &Connect fail!&
End Function
Public Sub ConOra()
On Error GoTo ErrMsg:
Dim ConnDB As ADODB.Connection
Set ConnDB = New ADODB.Connection
Dim ConnStr As String
Dim DBRst As ADODB.Recordset
Set DBRst = New ADODB.Recordset
Dim SQLRst As String
Dim OraOpen As Boolean
OraOpen = False
OraID=&Orcl& 'Oracle数据库的相关配置
OraUsr=&user&
OraPwd=&password&
ConnStr = &Provider = MSDAORA.1;Password=& & OraPwd & _
&;User ID=& & OraUsr & _
&;Data Source=& & OraID & _
&;Persist Security Info=True&
ConnDB.CursorLocation = adUseServer
ConnDB.Open ConnStr
OraOpen = True '成功执行后，数据库即被打开
'MsgBox &Connect to the oracle database Successful!&, vbInformation, &Connect Successful&
DBRst.ActiveConnection = ConnDB
DBRst.CursorLocation = adUseServer
DBRst.LockType = adLockBatchOptimistic
SQLRst = &Select * From TstTab&
DBRst.Open SQLRst, ConnDB, adOpenStatic, adLockBatchOptimistic
DBRst.MoveFirst
Exit Function
OraOpen = False
MsgBox &Connect to the oracle database fail ,please check!&, vbCritical, &Connect fail!&
End Function
详细出处参考：http://www.jb51.net/article/19539.htm
网上搜到的，自己没有环境验证
供应链管理系统开发中
在线时间173 小时经验82 威望0 性别男最后登录注册时间阅读权限20UID130957积分82帖子精华0分享0
EH初级, 积分 82, 距离下一级还需 268 积分
积分排行3000+帖子精华0微积分0
急,,我截取的BMP格式的 不知杂传上去让大家 看
在线时间173 小时经验82 威望0 性别男最后登录注册时间阅读权限20UID130957积分82帖子精华0分享0
EH初级, 积分 82, 距离下一级还需 268 积分
积分排行3000+帖子精华0微积分0
10:44 上传
ORCLE追踪器启动准备
启动追踪器和财务软件
在线时间173 小时经验82 威望0 性别男最后登录注册时间阅读权限20UID130957积分82帖子精华0分享0
EH初级, 积分 82, 距离下一级还需 268 积分
积分排行3000+帖子精华0微积分0
点击财务软件命令&会计科目余额表&
10:48 上传
财务软件客户端生成的科目余额表:
10:50 上传
在线时间173 小时经验82 威望0 性别男最后登录注册时间阅读权限20UID130957积分82帖子精华0分享0
EH初级, 积分 82, 距离下一级还需 268 积分
积分排行3000+帖子精华0微积分0
本帖最后由 深秋落叶 于
10:57 编辑
查看下ORACLE追踪器,里边已经截获了财务软件客户端发送到后台ORACLE数据库的SQL语句,找下吧,一般以SELECT开头并且字符量最大的那句就是了..
10:54 上传
选中代码CTRL+C,复制下来:
10:55 上传
积分≥4700即可申请
优秀会员奖章No.2
优秀会员奖章No.1
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&Excel财务软件-从凭证输入到报表生成_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
喜欢此文档的还喜欢
Excel财务软件-从凭证输入到报表生成
阅读已结束，如果下载本文需要使用
想免费下载本文？
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢请问如何将一个excel表格中的数据导入到另一个表格中？_百度知道
请问如何将一个excel表格中的数据导入到另一个表格中？
非常感谢两个excel工作表1和excel工作表2，导入到工作表2中的某一单元格（如B3单元格)里，如何将工作表1中的某一单元格（如I33单元格)的数据，请说明具体步骤
提问者采纳
当你在表1的B3中输入任何数据，然后打开工作表2，就OK了，将光标落B3单元格，此时按回车键，表2的I33单元格就会跟着变化在I33单元格中输入=
提问者评价
其他类似问题
按默认排序
其他3条回答
=工作表1!I33如果不依据固定的模式，只能用VLOOKUP函数公式引用如果依据固定的模式，可以在B3输入
呵呵，问题提得不是很清楚。看看我以前的回答，是否有参考作用。
在B3单元格输入=I33回车就OK了
excel表格的相关知识
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 14348|回复: 27
阅读权限5威望0 级论坛币203 个学术水平0 点热心指数0 点信用等级0 点经验844 点帖子140精华0在线时间0 小时注册时间最后登录
积分 194, 距离下一级还需 66 积分
权限: 自定义头衔
道具: 彩虹炫, 雷达卡, 热点灯, 雷鸣之声, 涂鸦板, 金钱卡, 显身卡, 匿名卡下一级可获得
权限: 签名中使用图片
购买后可立即获得
权限: 隐身
道具: 金钱卡, 雷鸣之声, 彩虹炫, 雷达卡, 涂鸦板, 热点灯
请问如何在R中引用电子表格中的数据，我看了有关数据导入的文献，可是不太明白，期盼知道的同仁给予说明！ 在此谢过了
载入中......
签名被屏蔽
阅读权限100威望3 级论坛币79562 个学术水平71 点热心指数67 点信用等级58 点经验35038 点帖子974精华在线时间1532 小时注册时间最后登录
学科带头人
学科带头人
积分 4779, 距离下一级还需 1046 积分
权限: 自定义头衔, 签名中使用图片, 设置帖子权限, 隐身, 设置回复可见
道具: 彩虹炫, 雷达卡, 热点灯, 雷鸣之声, 涂鸦板, 金钱卡, 显身卡, 匿名卡, 抢沙发, 提升卡, 沉默卡, 千斤顶下一级可获得
道具: 变色卡
购买后可立即获得
权限: 隐身
道具: 金钱卡, 雷鸣之声, 彩虹炫, 雷达卡, 涂鸦板, 热点灯
把EXCEL数据转换成单表格格式.csv，然后利用read.csv读入
R is the second language for me!Using R is standing on the shoulders of giants!& &Let\'s use R together!
阅读权限5威望0 级论坛币203 个学术水平0 点热心指数0 点信用等级0 点经验844 点帖子140精华0在线时间0 小时注册时间最后登录
积分 194, 距离下一级还需 66 积分
权限: 自定义头衔
道具: 彩虹炫, 雷达卡, 热点灯, 雷鸣之声, 涂鸦板, 金钱卡, 显身卡, 匿名卡下一级可获得
权限: 签名中使用图片
购买后可立即获得
权限: 隐身
道具: 金钱卡, 雷鸣之声, 彩虹炫, 雷达卡, 涂鸦板, 热点灯
非常感谢！
签名被屏蔽
阅读权限100威望3 级论坛币79562 个学术水平71 点热心指数67 点信用等级58 点经验35038 点帖子974精华在线时间1532 小时注册时间最后登录
学科带头人
学科带头人
积分 4779, 距离下一级还需 1046 积分
权限: 自定义头衔, 签名中使用图片, 设置帖子权限, 隐身, 设置回复可见
道具: 彩虹炫, 雷达卡, 热点灯, 雷鸣之声, 涂鸦板, 金钱卡, 显身卡, 匿名卡, 抢沙发, 提升卡, 沉默卡, 千斤顶下一级可获得
道具: 变色卡
购买后可立即获得
权限: 隐身
道具: 金钱卡, 雷鸣之声, 彩虹炫, 雷达卡, 涂鸦板, 热点灯
不客气！！有空可以看看R的数据读入导出文档
R is the second language for me!Using R is standing on the shoulders of giants!& &Let\'s use R together!
阅读权限5威望0 级论坛币203 个学术水平0 点热心指数0 点信用等级0 点经验844 点帖子140精华0在线时间0 小时注册时间最后登录
积分 194, 距离下一级还需 66 积分
权限: 自定义头衔
道具: 彩虹炫, 雷达卡, 热点灯, 雷鸣之声, 涂鸦板, 金钱卡, 显身卡, 匿名卡下一级可获得
权限: 签名中使用图片
购买后可立即获得
权限: 隐身
道具: 金钱卡, 雷鸣之声, 彩虹炫, 雷达卡, 涂鸦板, 热点灯
我有一篇关于R数据导入导出的文章，可是写的不是很详细，还想请教一下 如何对指定目录的数据导入我用read.table("file"...)格式导入 可是显示 文件不存在 但事先我已经将文件放在 文件bin 中了
签名被屏蔽
阅读权限22威望0 级论坛币99026 个学术水平5 点热心指数6 点信用等级0 点经验1479 点帖子49精华0在线时间196 小时注册时间最后登录
积分 256, 距离下一级还需 4 积分
权限: 自定义头衔
道具: 彩虹炫, 雷达卡, 热点灯, 雷鸣之声, 涂鸦板, 金钱卡, 显身卡, 匿名卡下一级可获得
权限: 签名中使用图片
购买后可立即获得
权限: 隐身
道具: 金钱卡, 雷鸣之声, 彩虹炫, 雷达卡, 涂鸦板, 热点灯
不能指定目录的，只有把需要导入的文件放在R的当前工作目录内
阅读权限100威望3 级论坛币79562 个学术水平71 点热心指数67 点信用等级58 点经验35038 点帖子974精华在线时间1532 小时注册时间最后登录
学科带头人
学科带头人
积分 4779, 距离下一级还需 1046 积分
权限: 自定义头衔, 签名中使用图片, 设置帖子权限, 隐身, 设置回复可见
道具: 彩虹炫, 雷达卡, 热点灯, 雷鸣之声, 涂鸦板, 金钱卡, 显身卡, 匿名卡, 抢沙发, 提升卡, 沉默卡, 千斤顶下一级可获得
道具: 变色卡
购买后可立即获得
权限: 隐身
道具: 金钱卡, 雷鸣之声, 彩虹炫, 雷达卡, 涂鸦板, 热点灯
可以更改R的当前工作目录，在文件菜单栏下！！
R is the second language for me!Using R is standing on the shoulders of giants!& &Let\'s use R together!
阅读权限5威望0 级论坛币203 个学术水平0 点热心指数0 点信用等级0 点经验844 点帖子140精华0在线时间0 小时注册时间最后登录
积分 194, 距离下一级还需 66 积分
权限: 自定义头衔
道具: 彩虹炫, 雷达卡, 热点灯, 雷鸣之声, 涂鸦板, 金钱卡, 显身卡, 匿名卡下一级可获得
权限: 签名中使用图片
购买后可立即获得
权限: 隐身
道具: 金钱卡, 雷鸣之声, 彩虹炫, 雷达卡, 涂鸦板, 热点灯
我在菜单中改过了 当前目录& 但是 还是不行
签名被屏蔽
阅读权限100威望3 级论坛币79562 个学术水平71 点热心指数67 点信用等级58 点经验35038 点帖子974精华在线时间1532 小时注册时间最后登录
学科带头人
学科带头人
积分 4779, 距离下一级还需 1046 积分
权限: 自定义头衔, 签名中使用图片, 设置帖子权限, 隐身, 设置回复可见
道具: 彩虹炫, 雷达卡, 热点灯, 雷鸣之声, 涂鸦板, 金钱卡, 显身卡, 匿名卡, 抢沙发, 提升卡, 沉默卡, 千斤顶下一级可获得
道具: 变色卡
购买后可立即获得
权限: 隐身
道具: 金钱卡, 雷鸣之声, 彩虹炫, 雷达卡, 涂鸦板, 热点灯
你的文件名是否加了扩展名了？
R is the second language for me!Using R is standing on the shoulders of giants!& &Let\'s use R together!
阅读权限20威望0 级论坛币0 个学术水平2 点热心指数3 点信用等级2 点经验1069 点帖子41精华0在线时间23 小时注册时间最后登录
积分 88, 距离下一级还需 57 积分
权限: 自定义头衔
道具: 彩虹炫, 雷达卡, 热点灯, 雷鸣之声, 涂鸦板, 金钱卡, 显身卡下一级可获得
道具: 匿名卡
购买后可立即获得
权限: 隐身
道具: 金钱卡, 雷鸣之声, 彩虹炫, 雷达卡, 涂鸦板, 热点灯
开心签到天数: 3 天连续签到: 1 天[LV.2]偶尔看看I
excel表可以先转化成“文本文件（制表符分隔）”，用函数read.delm()读该文本文件！即&rd&-read.delim(".txt")
论坛好贴推荐