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

[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]

פוסט זה נמחק!