בס"ד
לא הבנתי..
מה ש @OdedDvir הביא, זה סתם קוד לבקשת מיקום לקובץ (בעצם - צורה ידנית)
אבל מה רע בפונקציה עצמה כשאתה מייצא, אם אתה משאיר ריק הוא פותח דו שיח כדי לבחור מיקום,
אם אתה נבהל משגיאה כשאתה לא בוחר מקום, תטפל בשגיאה:
On Error Resume Next
או שתפנה להודעה כל שהי כמו:
On Error GoTo err_click
DoCmd.OutputTo acOutputQuery, "tableName", acFormatXLSX, , 1
Exit Sub
err_click:
If Err.Number = 2501 Then
MsgBox "לא נבחר מיקום לקובץ", vbOKOnly, "הפעולה בוטלה"
Else
MsgBox "אירעה שגיאה, מספר: " & Err.Number & "-" & Err.Description, vbOKOnly, "שגיאה"
End If