求救:导出到EXCEL时如何设置列宽

[zxq810213]

如题.

[恋上微笑的天使]

excelApp.ActiveSheet.Cells(1, 1).ColumnWidth = 16

[yongshenme]

Columns("E:E").Select
Range("E2").Activate
Selection.ColumnWidth = 30

[chanfengsr]

ActiveSheet.Columns(1).ColumnWidth = 10

[datou985]

先引用excel 11.0的库，呵呵
Dim xlsApp As New Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
Set xlsBook = Excel.Workbooks.Add
Set xlsSheet = xlsBook.Worksheets(1)
xlsSheet.Range("a1:a1").ColumnWidth = 30
~ ~

其中的A1就是你想设置的列，后面的30就是宽度
如果想设置多列为同一宽度的话，可以用（"a1:c1")就是设置a,b,c三列

[datou985]

呵呵，如果是只想设置一列的话，那里可以直接用（"a1")
不好意思哦

[datou985]

xlsSheet.Range("a1").ColumnWidth = 30 '设置单列宽度

xlsSheet.Range("a1:c1").ColumnWidth = 30 '设置多列宽度