VBA saving file message display

The code below give me an question "There is a file already, do you want to save over existing?"  even though I have
Application.DisplayAlerts = False
Can anyone help?

Sub PullDataNewOrigin_Details()

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection

Dim DSN As String

Dim Password As Variant

If Sheets("Queries").Range("E3").Value = True Then Password = InputBox("Please enter your password here:") Else Password = ""

DSN = Sheets("Selection").Range("B2")

cn.Open "DSN=" & DSN & ";password =" & Password & "; ConnectionTimeout=0;"

'Dim Query As String
Dim Query As String

'Query = Sheets("Queries").Range("C2").Value

Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command

cmd.ActiveConnection = cn
cmd.CommandTimeout = 0
cmd.CommandText = Query

'Set rs = cmd.Execute()
'Sheets("Shipping").Range("A2").CopyFromRecordset rs
'Set rs = Nothing

Query2 = Sheets("Queries").Range("C73").Value

cmd.CommandText = Query2
ActiveSheet.Name = "Rerate Changed Origin Detail"
Dim iCols As Integer

Set rs = cmd.Execute()

   For iCols = 0 To rs.Fields.Count - 1
        Worksheets("Rerate Changed Origin Detail").Cells(1, iCols + 1).Value = rs.Fields(iCols).Name
Sheets("Rerate Changed Origin Detail").Range("A2").CopyFromRecordset rs
Set rs = Nothing


ActiveWorkbook.Sheets("Rerate Changed Origin Detail").Move
Dim ws As Worksheet
Dim flPath As String, flName As String
Set ws = Worksheets("Rerate Changed Origin Detail")
flPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator

'sPath = Sheets("Queries").Range("C59").Value
flName = "Rerate Changed Origin Detail" & Format(Date, "yyyymmdd") & ".csv"

ws.SaveAs Filename:=flPath & flName, FileFormat:=xlCSV, CreateBackup:=False
Application.DisplayAlerts = False
Application.DisplayAlerts = False

End Sub

Open in new window

Who is Participating?
Martin LissConnect With a Mentor Older than dirtCommented:
Line 63 be before line 62 and line 65 should say True.
Subodh Tiwari (Neeraj)Excel & VBA ExpertCommented:
Use line#63 before line#62.
Subodh Tiwari (Neeraj)Excel & VBA ExpertCommented:
We posted almost at the same time Martin. :)
Euro5Author Commented:
Thanks very much Martin!
Martin LissOlder than dirtCommented:
You're welcome Euro5.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.