Oracle Objects for OLE and Excel

JCScoobyRS

Board Regular
Joined
Sep 17, 2002
Messages
102
I installed the Oracle Objects for OLE so that I could pull information from my Oracle database and insert it into my spreadsheet. The samples that come with it provide a way to get info from the database and insert it into the spreadsheet and I copied it verbatim and made changes only where needed. It worked but now I want to insert the information into column AK1 instead of A1. Can someone look at my code and tell me where to make changes to get what I need? Thanks, Jeremy

Sub EmpData()

'Declare variables as objects
Dim OraSession As Object
Dim OraDatabase As Object
Dim EmpDynaset As Object

Dim flds() As Object
Dim fldcount As Integer

Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("PKDEMO", "pkdemo/pkdemo", 0&)
Set EmpDynaset = OraDatabase.CreateDynaset("select CU_NAME from CU", 0&)

Range("AK1:AK100").Select
Selection.ClearContents

'Declare and create an object for each column.
'This will reduce objects references and speed
'up your application.
fldcount = EmpDynaset.Fields.Count
ReDim flds(0 To fldcount - 1)
For Colnum = 0 To fldcount - 1
Set flds(Colnum) = EmpDynaset.Fields(Colnum)
Next


'Insert Column Headings
For Colnum = 0 To EmpDynaset.Fields.Count - 1
ActiveSheet.Cells(1, Colnum + 1) = flds(Colnum).Name
Next

'Display Data
For Rownum = 2 To EmpDynaset.RecordCount + 1
For Colnum = 0 To fldcount - 1
ActiveSheet.Cells(Rownum, Colnum + 1) = flds(Colnum).Value
Next
EmpDynaset.DbMoveNext
Next

Range("AK1:AK1").Select
End Sub
 

Excel Facts

Lock one reference in a formula
Need 1 part of a formula to always point to the same range? use $ signs: $V$2:$Z$99 will always point to V2:Z99, even after copying

JCScoobyRS

Board Regular
Joined
Sep 17, 2002
Messages
102
Nevermind, I got it. Where you see Colnum + 1, you will just change the 1 to the number to the number of the column you want to insert into. If you wanted to insert into column E, it would be Colnum + 5. Thanks, Jeremy
 

XL-Dennis

Well-known Member
Joined
Jul 27, 2002
Messages
1,920
Jeremy,

Glad it worked out and that You was kindly to provide the whole procedure, especially
this part:

<pre>
'Declare and create an object for each column.
'This will reduce objects references and speed
'up your application.
fldcount = EmpDynaset.Fields.Count
ReDim flds(0 To fldcount - 1)
For Colnum = 0 To fldcount - 1
Set flds(Colnum) = EmpDynaset.Fields(Colnum)
Next
</pre>

Kind regards,
Dennis
 

JCScoobyRS

Board Regular
Joined
Sep 17, 2002
Messages
102
No problem Dennis. Do you know how I can name all of the information that I just brought in from Oracle so that I can create a dynamic validation list from the information? Thanks, Jeremy
 

Forum statistics

Threads
1,144,437
Messages
5,724,356
Members
422,546
Latest member
KevinOnTheDaily

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top