Dim myexcel As New Excel.Application
    myexcel.Visible = True
    myexcel.Workbooks.Add()
    myexcel.Worksheets(1).Activate()   
    myexcel.ActiveSheet.colums(1).columnwidth = 12  ‘想指定第一列列宽。
执行到这句出错

   myexcel.ActiveSheet.columns(1).columnwidth = 12

这句我上面不是有吗？就是执行不了，会出错。

你把版主的那行复制进去试试，我偏不告诉你哪里错了

谢谢！！！是我太粗心了。