[Excel导出编辑.docVIP

Private Sub ExportToExcel() oExcel As Object , StartingCell As ExlCell) On Error GoTo ErrorHandler Dim nCol As Long Dim xlSheet As Excel.Worksheet Dim StartingCell As ExlCell Dim sEndCol As String Dim ItemCells As Range Dim mnCol As Integer Dim xlApp As Excel.Application If FillData = False Then Exit Sub Set xlApp = CreateObject(Excel.Application) 创建EXCEL对象 xlApp.Workbooks.Add xlApp.Visible = False xlApp.Worksheets(Sheet1).Name = SOC Detail Set xlSheet = xlApp.ActiveWorkbook.Sheets(1) xlSheet.Activate xlSheet.range(xlSheet.cells(1, 0), xlSheet.cells(1, 1)).Font.Name = 堵蔨 = Sales + txtYear3.Text xlSheet.cells(1, 0).Value = Sales + txtYear3.Text xlSheet.cells(2, 0).Value = TOTAL Ringier + Rep xlSheet.cells(3, 0).Value = Format(Date, mmm/dd/yyyy) xlSheet.cells(4, 0).Value = Ringier Media xlSheet.Range(A1).Select = Cells(1, 0).Value = mnCol = 16 15 sEndCol = Chr(65 + mnCol) H xlSheet.Cells.EntireRow.RowHeight = 13 设置此属性后，网格线会消失 xlSheet.Cells.Interior.ColorIndex = 2 xlSheet.Cells.Font.Name = Courier New xlSheet.Cells.Font.Size = 9.95 xlSheet.Cells.Columns(A:A).ColumnWidth = 35.75 xlSheet.Cells.Columns(A:A).Font.Bold = True xlSheet.Cells.Columns(A:A).Font.Name = Arial xlSheet.Cells.Columns(B:B).ColumnWidth = 6 xlSheet.Cells.Columns(C:C).ColumnWidth = 46.5 设置列的对齐方式 xlSheet.Cells.Columns(C:C).HorizontalAlignment = xlLeft xlSheet.Cells.Columns(D:D).ColumnWidth = 14.63 xlSheet.Cells.Columns(E:E).ColumnWidth = 6.75 xlSheet.Cells.Columns(E:E).HorizontalAlignment = xlVAlignCenter