יצוא מאקסס לאקסל עם תיבת דו-שיח

[ArielIzer]

אני מנסה לכתוב מודול שייצא לאקסל תוצאות שאילתה אבל אני מעוניין לפתוח תיבת דו-שיח כדי לאפשר למשתמש לבחור נתיב ושם לקובץ.
הצ'אטים השונים לא מצליחים לתת לי קוד עם תיבת דו-שיח מבלי שהוא יתקע איפשהו בדרך.
מישהו כאן מכיר דרך לעשות את זה?
@OdedDvir

[dovid]

הצאטים צריכים ללמד אותך מה הקוד עושה עד שתבין אותו,
ואז תביא אותו לפה ותשאל עליו.
אם אתה רוצה שנענה לך כמו בינה מלאכותית, אין לנו את זה.

[ArielIzer]

תודה על המענה
כוונתי שלא הצלחתי להבין מה הקודים שהם הביאו לי עושים (בדרך כלל אני כן מבין)
ומה שרציתי לשאול זה האם יש משהו פשוט, קוד שמישהו כתב פעם או והשתמש פעם שעושה את העבודה הזו ואוכל להתאים אותו למערכת שלי

[OdedDvir]

הנה דוגמא פשוטה:

Function SelectFileDialog As String()
    With Application.FileDialog(msoFileDialogSaveAs)
        If .Show Then
            SelectFileDialog = .SelectedItems(1)
        Else
            SelectFileDialog  = ""
        End If
    End With
End Function

בקוד שלך תקרא לפונקציה כך:

Dim targetFile As String
...
targetFile = SelectFileDialog()
' Save yout report as targetFile

[pcinfogmach]

פוסט זה נמחק!

[ArielIzer]

@OdedDvir תודה מאד מאד

[avi rz]

בס"ד

לא הבנתי..
מה ש @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