יצוא מאקסס לאקסל עם תיבת דו-שיח
-
הנה דוגמא פשוטה:
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
-
פוסט זה נמחק!
-
בס"ד
לא הבנתי..
מה ש @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