如何用语句控制excel单元格的宽度？

[RakerCarter]

我采用以下语句建立excel表格，可是有些单元的字符过长，需要调整表格宽度、高度，要怎样实现？能不能实现自动调整？
Set ex = CreateObject("Excel.Application")
Set exwbook = Nothing
Set exsheet = Nothing
Set exwbook = ex.Workbooks().Add
Set exsheet = exwbook.Worksheets("sheet1")

ex.Range("c3").Value = "......"
ex.Range("d3").Value = " ....... "
With ex.Range("c3:j7").Borders
.LineStyle = 1
.Weight = xlThin
.ColorIndex = 1
End With
excel.Range.a

exwbook.SaveAs direct

exwbook.SaveAs "c:\kkk.xls"

[lly923]

那怎样合并单元格呢？