excel中vba中用FileDialog以记事本打开文本文件

Question

sub 打开文件()
Set dig = Application.FileDialog(msoFileDialogOpen)
With dig
.AllowMultiSelect = True
.Filters.Add "文本文件", "*.txt", 1
.InitialFileName = "g:\123\"
.InitialView = msoFileDialogViewDetails
.Title = "打开"
.Show
.Execute
End With
Set dig = Nothing
End Sub

我以用记事本来打开文本文件，但系统是默认的excel，请问如何用记事本来打开文本文件?
我想用记事本来打开文本文件，但系统是默认的excel，请问如何用记事本来打开文本文件?

Answer 1

Sub 打开文件()
With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = True
    .Filters.Add "文本文件", "*.txt", 1
    .InitialFileName = "g:\123\"
    .InitialView = msoFileDialogViewDetails
    .Title = "打开"
    If .Show = 0 Then Exit Sub
    Filename = .SelectedItems(1)
End With
Shell "notepad " & Filename, vbNormalFocus
End Sub

追问

我加了一个多选打开的循环，但发现一个怪现象，在对话框里选择的顺序和打开的顺序是反的，for要倒着循环才是和对话框里的选择顺序一样的，为什么呢?

（也就是说在对话框里先选的文件是SelectedItems的最后一个序号，不明白原因）

追答

选择写入Selecteditems 应该像往弹夹里压子弹一样,后入先出.应该是这样吧,这个问题我也没深究过.