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.
Public Sub subSaveAsCSV() Dim strFolderPath As String Dim strFilePath As String strFolderPath = Application.ActiveWorkbook.Path & "\" strFilePath = Application.GetSaveAsFilename(strFolderPath, "CSV (Comma delimited) (*.csv), *.csv") If strFilePath <> "False" Then ' Check if the file path already exists If Not Dir(strFilePath) <> "" Then ' If it doesn't exist then save it GoTo EOF Else ' Trap the error and ignore it On Error Resume Next If Err.Number = 1004 Then On Error GoTo 0 Else ' User presses Save GoTo EOF End If End If Else End End If EOF: With ActiveWorkbook .SaveAs Filename:=strFilePath, FileFormat:=xlCSV End With End Sub
Join the community of 500,000 technology professionals and ask your questions.