How to define the columnwidth of EXCEL by VBA?

[softlover]

I want to define the columnwidth of any column in EXCEL sheet with ACCESS2K VBA.
Before do that, i had got the width value with codes:

ColumnWidth = xlBook.Sheets(1).Columns(1).Width

but the following codes can't work when redefine the newone.

xlBook.Sheets(1).Columns(2).Width = ColumnWidth

 

[PHV]

but the following codes can't work
Any error message ?
You may try this:
ColumnWidth = xlBook.Sheets(1).Columns(1).ColumnWidth
xlBook.Sheets(1).Columns(2).ColumnWidth = ColumnWidth

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[softlover]

Thanks to PHV.
Your codes is good.