Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.