אופיס 365 קוד באקסס לבחירת 'קובץ'

[FullTime]

שיחזיר את נתיב הקובץ ושמו לתוך שדה...


יש למישהו כזה דבר?

יש לי משהו לבחירת תקיה, אני רוצה לבחירת קובץ.

 

[Rרחמים]

הנה קוד שמצאתי כאן:

Dim f    As Object
 Set f = Application.FileDialog(3)
 f.AllowMultiSelect = True
 f.Show

 MsgBox "file choosen = " & f.SelectedItems.Count

ויש שם עוד המון דוגמאות נפלאות וקישורים מועילים בעינין.

 

[FullTime]

תודה רבה רבה.

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

Function getFileName() As String
    Dim fDialog    As Object
    Set fDialog = Application.FileDialog(3)
    Dim varFile As Variant
 
    With fDialog
       .AllowMultiSelect = False
       .Title = "Select File Location to Export XLSx :"
       .InitialFileName = "jeffatwood.xlsx"
 
    If .Show = True Then
       For Each varFile In .SelectedItems
         getFileName = varFile
       Next
    End If
End With
End Function

ואם כבר, עוד משהו, איך הופכים פקד תיבת טקסט בטופס ל'היפר-קישור' - שבעת לחיצה עליו ייפתח לי הקובץ...

 

[שמח לעזור]

ואם כבר, עוד משהו, איך הופכים פקד תיבת טקסט בטופס ל'היפר-קישור' - שבעת לחיצה עליו ייפתח לי הקובץ...

למה להפוך? מה יקרה אם זה יהיה היפר קישור משחר בריאתו?

אגב לטובת הסדר והנעזרים בחיפוש, תמיד כדאי לפתוח אשכול חדש.

 

[Rרחמים]

במקום תיבת טקסט השתמש בתוית [זה יותר פשוט] ובמאפיין 'כתובת היפר קישור' הגדר את הכתובת של הקובץ או התיקיה הרצויה עם קידומת [לא חובה]:

file:///

אם אתה רוצה דווקא תיבת טקסט אני חושב שהדרך היחידה זה עם טיפול בארוע לחיצה וקוד VBA שיפתח את הקובץ לדוגמא אחת האפשרויות ש'מוישי' פירסם כאן פעם:

Declare Function ShellExecute Lib "shell32.dll" _
                              Alias "ShellExecuteA" ( _
                              ByVal hWnd As Long, _
                              ByVal lpOperation As String, _
                              ByVal lpFile As String, _
                              ByVal lpParameters As String, _
                              ByVal lpDirectory As String, _
                              ByVal nShowCmd As Long) As Long
                              
Function OpenAnyFile(FileToOpen As String)
    Call ShellExecute(0, "Open", FileToOpen & vbNullString, vbNullString, vbNullString, 1)
End Function

Sub Example()
    Call OpenAnyFile(Application.CurrentProject.Path & "\Example Text File.txt")
End Sub

 

[FullTime]

למה להפוך? מה יקרה אם זה יהיה היפר קישור משחר בריאתו?

אגב לטובת הסדר והנעזרים בחיפוש, תמיד כדאי לפתוח אשכול חדש.

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


צודק, אבל בחיפוש, תמיד יגיעו לזה.