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

Question

我采用以下语句建立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"