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