Date formatting cells w/ VBA

[kkoechel]

I am trying to format a cell when creating an excel spreadsheet from an
access module. I would like to define the format of the cells from the
vb code itself, but I don't know how exactly.

Here is the pertinent code for how I am putting info into the cells
from my DB:

Dim oExcel As Excel.Application
Dim oWorkbook As Excel.Workbook

Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = True
Set oWorkbook = oExcel.Workbooks.Add

oWorkbook.ActiveSheet.Cells(1, 1).Value = "FirstName"
oWorkbook.ActiveSheet.Cells(1, 2).Value = "LastName"
oWorkbook.ActiveSheet.Cells(1, 3).Value = "Arrival Date"

Anywho thanks, if anyone knows this. It seems like it should be
simple, but web searching is only showing me GUI-based solutions.

/r
kkoechel

 

[Norman Jones]

Hi K,

To format A1:C1 as text, try:

Cells(1,1).Resize(1,3).NumberFormat = "@"

To format a cell as a date, try:

Cells(!,2).NumberFormat = "mm/dd/yy"

 

[kkoechel]

Thanks! Works great!

Also, next time, I should probably do a quick googlegroups search as
well, apparently I am not the first person to ask almost this exact
same question =\

the A1:C1 thing is going to be very helpful!

kkoechel