עריכת קוד 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]

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