<div>
check first if the file exists, then delete it before the export<br />
dim xlFile as s tring<br />
xlFile=&quot;C:\Folder\myexcel.<wbr />xlsx&quot;<br />
<br />
if dir(xlfile)&lt;&gt;&quot;&quot; then kill xlFile<br />
<br />
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xm<wbr />l, &quot;Qry_My_Query&quot;, xlfile, True
</div>


<div>
How do you know where is location???<br />
this is not location where they want to save a file.<br />
<br />
xlFile=&quot;C:\Folder\myexcel.<wbr />xlsx&quot;
</div>


<div>
Rey, <br />
<br />
When dialog box for save is open user &nbsp;navigate to existing file then he decided to use existing file name &nbsp;not to gave new name &nbsp;he is prompted with do you want to &nbsp;over wright existing file. This is happening and you would think that everything is ok.<br />
However when you go and check saved file it did not over write it and file has old data in.
</div>


<div>
@Taras,<br />
when posting a question, include all the information, codes not like you want to chat about your problem.
</div>


<div>
Rey.<br />
Behind my command button I have just this line of code that I posted.<br />
What I did not included?<br />
I am not sure what you mean.
</div>


<div>
where did you get the dialog box &nbsp;&quot;&lt;&lt;When dialog box for save is open user &nbsp;&gt;&gt;&quot;
</div>


<div>
from function SaveFileAs <br />
<br />
Public Function saveFileAs() As String<br />
&nbsp; &nbsp; &nbsp;Dim fd As FileDialog, fileName As String<br />
<br />
&nbsp; &nbsp; &nbsp;On Error GoTo ErrorHandler<br />
<br />
&nbsp; &nbsp; &nbsp;Set fd = Application.FileDialog(mso<wbr />FileDialog<wbr />SaveAs)<br />
&nbsp; <br />
&nbsp; &nbsp; &nbsp;If fd.Show = True Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;If fd.SelectedItems(1) &lt;&gt;&nbsp;vbNullString Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;fileName = fd.SelectedItems(1)<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;End If<br />
&nbsp; &nbsp; &nbsp;Else<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'Stop Code Execution for Null File String<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;End<br />
&nbsp; &nbsp; &nbsp;End If<br />
&nbsp; &nbsp; &nbsp;saveFileAs = fileName<br />
<br />
&nbsp; &nbsp; &nbsp;'Cleanup<br />
&nbsp; &nbsp; &nbsp;Set fd = Nothing<br />
&nbsp; &nbsp; &nbsp;Exit Function<br />
&nbsp; <br />
ErrorHandler:<br />
&nbsp; &nbsp; &nbsp;Set fd = Nothing<br />
&nbsp; &nbsp; &nbsp;MsgBox &quot;Error &quot;&nbsp;&amp; Err &amp;&nbsp;&quot;: &quot;&nbsp;&amp; Error(Err)<br />
&nbsp;End Function
</div>


<div>
<div class="content wysiwyg-content">
I ms access 2013 have a query that I want to export to folder and gave user option to locate folder and chose a name.<br />
On a form I have command button and behind this code:<br />
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xm<wbr />l, &quot;Qry_My_Query&quot;, saveFileAs, True<br />
Problem is when user what to use the same file name that exit. <br />
<br />
I was prompted do I want to over wright file name I click on “Yes” button but it does not do over wright.
</div>
</div>


I ms access 2013 have a query that I want to export to folder and gave user option to locate folder and chose a name.
On a form I have command button and behind this code:
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Qry_My_Query", saveFileAs, True
Problem is when user what to use the same file name that exit. 

I was prompted do I want to over wright file name I click on “Yes” button but it does not do over wright.

MS Access Docmd export to excel do not over write existing file

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.