VB能否控制EXCEL的列宽？！？！

[sprite14]

知道的请告诉我
谢谢

[handsomge]

记得可以，给你找找代码

[liangfang]

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

[liangfang]

excelApp.ActiveSheet.Cells(1, 1).ColumnWidth = 16'列宽为16

注意的是Cells(1, 1) 中不能为(0,0) 最少为(1,1)


以下的是例子:

Private Sub Form_Click()
Dim excelApp As Excel.Application
Set excelApp = New Excel.Application
On Error Resume Next
If excelApp Is Nothing Then
Set excelApp = CreateObject("Excel.application")
If excelApp Is Nothing Then
Exit Sub
End If
End If
excelApp.Visible = True
Me.MousePointer = vbHourglass
excelApp.Workbooks.Add
With excelApp.ActiveSheet
Dim i As Integer, j As Integer
For i = 1 To 5
For j = 1 To 5
.Cells(i, j).Value = "l"
Next j
DoEvents
Next i
End With
excelApp.ActiveSheet.Cells(1, 2).ColumnWidth = 16
Me.MousePointer = vbDefault
Set excelApp = Nothing


End Sub