Change Row of Typeface using Automation VBA

[gavinjb]

Hi,

I have a function in my MS Access 2007 database which is setting up an Excel spreadsheet, the only problem is I cant work out how to do the final change which is to make all the text in row 1 bold, I know that the command sI need to issue are as follows

Rows("1:1").Select
Selection.Font.Bold

But I am not sure how to run this from Access, my access Variables are as follows

Excel App = xlsApp
Excel Workbook = xlsBook

I have tried the following

xlsBook.ActiveSheet.Rows("1:1").Select - This works (or doesnt give me an error")
xlsBook.ActiveSheet.Selection.Font.Bold - I get run-time error 438 object doesn't support this proeprty of method on this

Can anyone please help.


Thanks,



Gavin,

 

[boblarson]

Check out my code here which has an example of exporting to Excel and then doing some formatting of it at the end of the code. You need an Excel object at the very least.

http://www.btabdevelopment.com/main/CodeSnippets/SendFormsRecordsettoExcel/tabid/120/Default.aspx