עריכת קוד VBA באקסל

searchnicks

שיניתי את הקוד הבעייתי לקוד שיציג תיבת אזהרה על כך שייקח זמן רב

Sub browseFolderPath()
    On Error GoTo err
    Dim fileExplorer As FileDialog
    Dim answer As Integer
    answer = MsgBox("לאחר בחירה מחדש של התיקיית דוחות, יש להמתין מס' דקות כדי לחשב מחדש, האם אתה רוצה להמשיך?", vbYesNo + vbExclamation + vbDefaultButton2 + vbMsgBoxRtlReading)
If answer = vbYes Then
    Set fileExplorer = Application.FileDialog(msoFileDialogFolderPicker)
    
    'To allow or disable to multi select
    fileExplorer.AllowMultiSelect = False
    
    With fileExplorer
        If .Show = -1 Then 'Any folder is selected
            ['גיליון5'!H1] = .SelectedItems.Item(1)
        Else ' else dialog is cancelled
            MsgBox "עליך לבחור נתיב תיקיה מתאימה"
        End If
    End With
err:
    Exit Sub
MsgBox "הנתיב שצוין הוא" & vbNewLine & vbNewLine & Range("'גיליון5'!H1").Value
Else
    'do nothing
End If
End Sub

searchnicks

פוסט זה נמחק!

dovid

@מתמחה-במחשבים נושא חדש בבקשה, בקטגוריה תכנות.

תחומים - פורום חרדי מקצועי

עריכת קוד VBA באקסל