Hi Patrick Molloy
Thanks for your reply. I am getting the same error message of file path not
found.
I have clicked the following check box in the references
Microsoft ActiveX Data Objects 2.7 Library.
Can you please guide me about how to solve the error.
Regards,
Imran.

"Patrick Molloy" wrote:

no worries

the file path should be precise

eg
MyFile = "S:\datafiles\testing\myAccessDatabaseName.mdb "

"Imran Ghani" wrote in message
...
Hi Patrick Molloy!
I am sorry, I guessed wrong. Last time you wrote "I'm out of the office
for
2 days" . So, I thought that way.
I am trying to run the code, but it is not accepting the database file
path.
Kindly guide me how to write the valid path, for the code to access. I
have
tried the full path and just the db file name also, but it is just giving
the
error message of file not found.
Regards,
Imran.

"Patrick Molloy" wrote:

" I hope you have a good time during your holidays. " ?? what holidays?

In the development application go to Tools /References and check
Microsoft
Active Data Objects 2.7 Library

this is the DLL required for the ADODB objects


"Imran Ghani" wrote in message
...
Hi Patrick Molloy!

I hope you have a good time during your holidays.
I have written my code in excel according to your guidance, but its
giving
an error message of:

user defined type not defined and highlighting the following text:

Dim con As New ADODB.Connection

Kindly guide me in this respect.
Regards,
Imran.

"Patrick Molloy" wrote:

I'm out of the office for 2 days - so i'm afraid I cannot help until
Saturday. However, this code is excel vba and should be clear enough
to
get
you going.
Open excel, go to the development environment (ALT+F11), add a module
(Insert/Module) then paste the code:
change the SQL statement and the name of the MS Access database
appropriately

Sub LoadDataFromAccess()
Dim MyFile As String
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SQL As String
Dim i As Long

MyFile = "Risk.mdb"
SQL = "SELECT * FROM BondTable"

con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MyFile

rst.Open SQL, con, adOpenStatic

Cells.Clear

For i = 0 To rst.Fields.Count - 1
Cells(1, i + 1).Value = rst.Fields(i).Name
Next

Range("A2").CopyFromRecordset rst

rst.Close
con.Close

Set rst = Nothing
Set con = Nothing

End Sub



"Imran Ghani" wrote in message
...
Hi Patrick Molloy
Thanks for your reply. Kindly do guide me about the whole process,
mentioned
by you, as I, being a novice, am certainly not much capable to
handle
the
job
independently. I'd much appreciate your helping hand.
Regards,
Imran.

"Patrick Molloy" wrote:

ah. from your question I thought Excel was driving the import, but
in
fact
MS Access is doing this..so AFAIK you can't format this way, you'd
have
to
write more VBA in Access to open the spreadsheet then format it. I
don't
think Access gives you much control.
What would be "better" is to instantiate excel, load the table from
the
query and then you'd have more control over the excel range.
Do you know how to do this?


"Imran Ghani" wrote in
message
...
Hi Patrick Molloy

I am exporting my data with a query as:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9,
"qryinvrgstr",
"d:\invoice register.xls", True

Its working fine and exporting the data ok, but I'd like also to
get
totals
in the end of the data and also to format my whole data with
lines
all
around. I'd much appreciate your guidance.

Regards,
Imran.

"Patrick Molloy" wrote:

both can be done quite easily...but we'd need to see the code
that
loads
the
sheet with the MS Access data to get a handle on the method used
in
order
to
give you an appropriate response.

for example you may have
Range("A1").CopyFromrecordset rst
or various other methods of loading the data to the sheet.



"Imran Ghani" wrote in
message
...
Hi! I want to format my excel data that's been imported from
MS
Access,
such
that, ther's a box around all the data cells, also please help
me,
about
how