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

sprite14 2003-01-10 02:42:45

知道的请告诉我
谢谢

...全文

59 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

liangfang 2003-01-10

打赏
举报

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

liangfang 2003-01-10