, пожалуйста, посоветуйте, как редактировать приведенный ниже код, чтобы диалог выбора файлов работал в следующем коде:
Sub Update_Riyadh_Store()
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim Sheet As Worksheet
Dim PasteStart As Range
Dim fd As Office.FileDialog
Set wb1 = ActiveWorkbook
Set PasteStart = Sheets("Riyadh Stock").Range("A1")
Application.ScreenUpdating = False
'sheets and range to be updated'
Sheets("Riyadh Stock").Select
Range("A1:F2500").Select
Selection.ClearContents
Sheets("Riyadh Stock").Range("A31").Select
ٍSet FileToOpen = Application.FileDialog(msoFileDialogFilePicker)
If FileToOpen = False Then
MsgBox "No File Specified.", vbExclamation, "ERROR"
Exit Sub
Else
Set wb2 = Workbooks.Open(Filename:=FileToOpen)
For Each Sheet In wb2.Sheets
With Sheet.UsedRange
.Copy PasteStart
Set PasteStart = PasteStart.Offset(.Rows.Count)
End With
Next Sheet
Application.ScreenUpdating = True
End If
wb2.Close
MsgBox "Stock has been updated successfully.", vbOKOnly, "Updated Successfully"
End Sub
Пожалуйста, сообщите, чего не хватает, чтобы этот код работал.