说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

各位兄弟帮忙看一下一小段代码?尽分报答

编辑:说三道四文库 发布时间:2018-09-19 03:20
HTML文档下载 WORD文档下载 PDF文档下载

代码如下:
Private xlApp As Object
Private xlBook As Object
Private xlSheet As Object
Private Sub InitXlAPP()
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
  If Err.Number = 429 Then
      Set xlApp = CreateObject("Excel.Application")
      Err.Clear
  End If
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlApp.Worksheets.Add

xlApp.Visible = True
End Sub
Private Sub MakeStyle_XJ()
With xlApp
    '设置整体格式
    .Cells.Select
    
    .Selection.VerticalAlignment = xlCenter/这里出错,提示不能设置类Range的VerticalAlignment属性。

    .Columns("A:A").ColumnWidth = 4.1
    .Columns("B:B").ColumnWidth = 8
    .Columns("C:C").ColumnWidth = 27.7
    .........
End with
End Sub
  
可能是没有选中任何内容,所以Selection为Nothing,建议在调用Selection.VerticalAlignment 前先判断Selection是否为Nothing
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘