Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel msoFileDialogOpen中的打开顺序_Excel_Vba_Filedialog - Fatal编程技术网

Excel msoFileDialogOpen中的打开顺序

Excel msoFileDialogOpen中的打开顺序,excel,vba,filedialog,Excel,Vba,Filedialog,我编写了一个宏,要求我打开一些文件,然后根据文件名运行更多的宏 With Application.FileDialog(msoFileDialogOpen) .ButtonName = "Seleziona" .InitialView = msoFileDialogViewList .AllowMultiSelect = True .Filters.Add "File Excel", "*.xls", 1 .InitialFileName = "\\SERVER-PDC\Archivi\DOCU

我编写了一个宏,要求我打开一些文件,然后根据文件名运行更多的宏

With Application.FileDialog(msoFileDialogOpen)
.ButtonName = "Seleziona"
.InitialView = msoFileDialogViewList
.AllowMultiSelect = True
.Filters.Add "File Excel", "*.xls", 1
.InitialFileName = "\\SERVER-PDC\Archivi\DOCUMENTI SU SERVER\LAURA\"
.Title = "Seleziona i file: corpi, mancanti, montaggio, pressa. Questa è la settimana numero " & Format(Date, "ww")
.Show
On Error GoTo Erroremultiselezione
     For Each vrtSelectedItem In .SelectedItems
        Workbooks.Open Filename:=vrtSelectedItem, CorruptLoad:=xlRepairFile
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=vrtSelectedItem, FileFormat:=xlExcel8
        If Left(ActiveWorkbook.Name, 5) = "monta" Then
            Application.Run "pacchetto_rev7.xls!Montaggio"
        ElseIf Left(ActiveWorkbook.Name, 5) = "corpi" Then
            Application.Run "pacchetto_rev7.xls!Corpi"
        ElseIf Left(ActiveWorkbook.Name, 5) = "press" Then
            Application.Run "pacchetto_rev7.xls!Pressacoll"
        ElseIf Left(ActiveWorkbook.Name, 5) = "manca" Then
            Application.Run "pacchetto_rev7.xls!Missing"
        Else: GoTo Erroremultiselezione
        End If
    Next vrtSelectedItem
End With  
[more code follows]
当文件对话框询问时,我在按住Ctrl键的同时选择三个文件:montaggio.xls、press a.xls、corpi.xls

我可以选择pressa.xls作为第一个文件,或作为第二个文件,或作为第三个文件,但它总是先打开。为什么?