'導入命名空間

Imports ADODB

Imports Microsoft.Office.Interop

Private Sub A1()

Dim Sql As String
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim S As String

S = "Provider=OraOLEDB.Oracle.1;Password=密碼;Persist Security Info=True;User ID=用戶名;Data Source=連線位置"
Cnn.Open(S)
Rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient

Sql = "SELECT IMG_FILE.IMG01 FROM SH01.IMG_FILE"
Rs.Open(Sql, Cnn, 3, 3)
Dim Xls As Excel.Application = New Excel.Application '定义excel应用程序
Dim Xlsbook As Excel.Workbook '定义工作簿
Dim Xlssheet As Excel.Worksheet '定义工作表
Xlsbook = Xls.Application.Workbooks.Add '添加新工作簿
Xlssheet = Xlsbook.Sheets(1) '第1个工作表的控制句柄
Xls.Visible = True '显示excel 程序

Xlssheet.Cells(1, 1).value = "表頭1"

Xlssheet.Range("a2").CopyFromRecordset(Rs)
Xlssheet.Cells.EntireColumn.AutoFit()
Xls = Nothing '释放EXCEL对象
Rs.Cancel()

End Sub

最新文章

1. [LeetCode] Game of Life 生命游戏
2. select change下拉框改变事件 设置选定项，禁用select
3. (原创)项目部署-Tomcat设置默认访问项目及项目重复加载问题处理
4. [SoapUI] Post请求Body里面限制特殊字符（&、%），Groovy脚本里特殊字符需要添加“\”转义（$）。
5. at
6. error: command 'gcc' failed with exit status 1 的解决办法
7. maven概念
8. 制作ubuntu安装u盘
9. 锋利的jQuery之事件
10. JS的文本编辑框jwysiwyg-0.6
11. Samsung Galaxy S II GT-I9100 指令全集 部分指令请慎用
12. DevOps 和技术债务偿还自动化
13. 【转】在ASP.NET MVC中，使用Bundle来打包压缩js和css
14. CodeForces 645B Mischievous Mess Makers
15. 使用TensorFlow Object Detection API+Google ML Engine训练自己的手掌识别器
16. Sqoop工具
17. EventBus3.0 study
18. Centos 7 Puppet之foreman介绍安装测试
19. JavaSE 初学系统托盘图标SystemTray类
20. 把网卡中断绑定到CPU,最大化网卡的吞吐量(转)

热门文章

1. openGL-计算机图形大作业中出现的几个错误及解决
2. 有关wkwebview和UIwebview获取html中的标签方法
3. Canal学习笔记（客户端）
4. Javascript高级编程学习笔记（82）—— 富文本操作(2)
5. [转载]PHP中PSR-[0-4]规范
6. vis.js没有中文文档，个人在项目中总结的一些中文配置
7. lazy_import源码解析（原创）
8. Asp.NetCoreWebApi图片上传接口(二)集成IdentityServer4授权访问(附源码)
9. Docker学习之3——容器
10. 数据量你造吗-JAVA分页