A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub ModifyExcelFile(vRptName As String, vHeader As String, vWorksheet As String, vTabName As String) On Error GoTo Err_ModifyExcelFile Dim excelapp As Object Dim excelwb As Workbook Dim excelws As Worksheet 'Open the XLS file with the Workbook from Application, not directly from Application. Set excelapp = New Excel.Application Set excelwb = excelapp.Workbooks.Open(vRptName) Set excelws = excelwb.Worksheets(vWorksheet) excelws.Rows("1:1").Select excelws.Application.Selection.Font.Bold = True excelws.Columns("A:M").Select excelws.Application.Selection.Columns.AutoFit excelws.PageSetup.Orientation = xlLandscape excelws.PageSetup.CenterHeader = vHeader excelws.PageSetup.LeftHeader = "Generated on: " & Now() excelws.PageSetup.CenterFooter = "Page &P" excelws.Name = vTabName excelws.Cells.Select excelws.Application.Selection.Font.Name = "Tahoma" excelws.Application.Selection.Font.Size = 10 excelws.Cells.Select excelws.Application.Selection.AutoFilter 'Save the file so the prompt asking to save the file will not pop up excelws.Application.SaveWorkspace 'Need to quit the application or the file will be kept opened in memory excelapp.Quit 'Freeing the objects Set excelws = Nothing Set excelwb = Nothing Set excelapp = Nothing MsgBox "Report exported to " & vRptName Exit_ModifyExcelFile: Exit Sub Err_ModifyExcelFile: MsgBox Err.Description 'Need to quit the application or the file will be kept opened in memory excelapp.Quit 'Freeing the objects Set excelws = Nothing Set excelwb = Nothing Set excelapp = Nothing Resume Exit_ModifyExcelFile End Sub
|Excel formula to report date modified||14||29|
|Copying an open file||3||21|
|Conditional formatting of a cell based on text anywhere in the workbook||4||65|
|too few parameters , expected 3||14||14|