‘導入命名空間
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
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。