1.在EXCEL中, 是不需要conncetion, 应该这样写 Dim xlconn As String Dim xlrs As New ADODB.Recordset Dim xlFile As String Dim xlSheet as string xlFile = "c:\a.xls" xlSheet = "sheet1" xlconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & xlFile xlrs.Open "select * from [" & xlSheet & "$]", xlconn
Dim OraSession As Object Dim OraDatabase As Object Dim EmpDynaset As Object Dim ColNames As Object
Set OraSession = CreateObject("OracleInProcServer.XOraSession") Set OraDatabase = OraSession.OpenDatabase("ExampleDb", "scott/tiger", 0&) Set EmpDynaset = OraDatabase.DbCreateDynaset("select * from emp", 0&) Set ColNames = EmpDynaset.Fields For icols = 1 To ColNames.Count Worksheets("DataSheet").Cells(1, icols).Value = ColNames(icols - 1).Name Next
2. Dim tempxlApp As New Excel.Application tempxlApp.Workbooks.Open("c:\a.xls").Worksheets(1).Name 3. 这个与SQL的取法是一样的,因为是RECORDSET, 第几行也就是第几条记录而已, N = xlrs.RecordCountOK,现学现卖,给分吧.
Dim xlconn As String
Dim xlrs As New ADODB.Recordset
Dim xlFile As String
Dim xlSheet as string xlFile = "c:\a.xls"
xlSheet = "sheet1" xlconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & xlFile
xlrs.Open "select * from [" & xlSheet & "$]", xlconn
我现在已经可以用odbc打开excel文件了。那么我想知道,如何自动得到第一个sheet的名字并打开呢?还有我需要打开不是从第一行开始的数据,怎么做到?
Dim OraSession As Object
Dim OraDatabase As Object
Dim EmpDynaset As Object
Dim ColNames As Object
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("ExampleDb", "scott/tiger", 0&)
Set EmpDynaset = OraDatabase.DbCreateDynaset("select * from emp", 0&) Set ColNames = EmpDynaset.Fields
For icols = 1 To ColNames.Count
Worksheets("DataSheet").Cells(1, icols).Value = ColNames(icols - 1).Name
Next
EmpDynaset.CopyToClipboard -1
Sheets("DataSheet").Select
Range("A2").Select
ActiveSheet.Paste
End Sub这是ORACLE提供的OO4O使用EXCEL与ORACLE数据库的例子.
tempxlApp.Workbooks.Open("c:\a.xls").Worksheets(1).Name
3. 这个与SQL的取法是一样的,因为是RECORDSET, 第几行也就是第几条记录而已,
N = xlrs.RecordCountOK,现学现卖,给分吧.