[已解决]解释下代码？

dsfada

With Application.FileDialog(msoFileDialogFilePicker)
        .Filters.Add "excel文件", "*.xls*"
       .InitialFileName = path
        If .Show = -1 Then
            a = .SelectedItems(1)
        End If
    End With

解释下描红的代码？

最佳答案

月排行榜 / 总排行榜

zjdh

2016-3-17 10:20

.InitialFileName = path      对话框 打开变量Path指定的目录
.SelectedItems(1)           被选中的多个文件里第一个文件的名称（含路径）

跳转到最佳答案楼层

zjdh

.InitialFileName = path      对话框 打开变量Path指定的目录
.SelectedItems(1)           被选中的多个文件里第一个文件的名称（含路径）

dsfada

zjdh 发表于 2016-3-17 10:20
.InitialFileName = path      对话框 打开变量Path指定的目录
.SelectedItems(1)           被选中的多个 ...

  If .Show = -1 Then

这句代码什么意思，-1是什么

zjdh

.Show
显示文件对话框并返回一个 Long 类型的值，指示用户按下的是“操作”按钮 (-1) 还是“取消”按钮 (0)。