UC知道问一个VB的excel问题
来源：百度知道 编辑：UC知道 时间：2024/06/24 18:55:49
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
dim xxx as string
xxx=e:\数据.xls
If Len(Dir(xxx)) = 0 Then
Open xxx For Output As #1
Close #1
End If
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(xxx)
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(1) '设置活动工作表
xlSheet.Columns("b:j").ColumnWidth = 20
xlbook.close (ture)
xlApp.quit
Set XlApp=nothing
如不加最后三句，还能实现变列宽，但加上后，就实现不了了，请问怎么能实现变列宽呢？
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
dim xxx as string
xxx=e:\数据.xls
If Len(Dir(xxx)) = 0 Then
Open xxx For Output As #1
Close #1
End If
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(xxx)
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(1) '设置活动工作表
xlSheet.Columns("b:j").ColumnWidth = 20
xlbook.close (ture)
xlApp.quit
Set XlApp=nothing
如不加最后三句，还能实现变列宽，但加上后，就实现不了了，请问怎么能实现变列宽呢？
xlSheet.Columns("b:j").ColumnWidth = 20
xlBook.Save'加一句
xlbook.close
另外，你的e:\数据.xls 必须是用Excel建立的工作表，如果你是用VB建立的，那么因为其中包括Excel不能识别的格式，因此会造成保存失败。