VB创建Excl表格,合并单元格,生成图形等操作.docVIP

Private Sub Command4_Click() On Error Resume Next Create Excel Table Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim xlSheet1 As Excel.Worksheet Dim i As Integer, tmHour As String On Error Resume Next Set xlApp = Excel.Application Set xlBook = xlApp.Workbooks.Add xlBook.Activate Set xlSheet = xlBook.Worksheets(1) 引用第1张工作表 xlApp.ActiveSheet.Rows.VerticalAlignment = xlVAlignCenter 垂直方向居中 xlApp.ActiveSheet.Rows.Hor