Try something like this after you populate the spreadsheet:

ExcelW.Columns.EntireColumn.AutoFit

>Hi,
>
> I have written this DTS package that copies data from SQL query into the excel table. I used activeX script to create the excel file. The problem is the excel file created has the fix cell size and due to this by default my data is not readable. User has to expand individual cells to make sense. Can we increase the size of the cells in DTS. Here is the script I wrote.
>Dim ExcelA
>set ExcelA = CreateObject("Excel.Application")
>ExcelW.SaveAs OBFileName ''''OBFilename is the excel file name with path.
>
>Then in execute SQL task, I create table for excel file like
>CREATE TABLE `Sheet1$` (
>`InBound_File_name` Char (255) , .....
>
>
>and fill it from a SQL query.
>
>Thanks
>Bharat