Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
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
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.