第34集excel对话框的两个问题

hktkzyz

一、
Sub dfsdfsF()
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来打开的，怎么做，才是以其自身方式打开，如txt以记事本来打开?
二、
Sub df0999088dfsF()
Dim dig As Object
Set dig = Application.FileDialog(msoFileDialogFilePicker)
    With dig
         .InitialView = msoFileDialogViewLargeIcons
         .Title = "打开"
         .Show
        For Each f In .SelectedItems
        MsgBox f
        Next f
    End With
Set dig = Nothing
End Sub
2003中随着msofiledialogview的变化，文件夹的预览会有变化，而在2013中不管怎么变，都是details样式。怎么办

我心飞翔410

都用2013了啊  有些时候 2013能用的  13可能就不会用了

殿堂之上

可能是图中圈起来的地方原因

hktkzyz

这个是系统的设置，和这没关系，

2003可以，2013不可以，问题出在版本中。

hktkzyz

第一个问题也解决了，代码如下：
Sub 打开文件()
With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = True
    .Filters.Add "文本文件", "*.txt", 1
    .InitialFileName = "g:\123\"
    .InitialView = msoFileDialogViewLargeIcons
    .Title = "打开"
    If .Show = 0 Then Exit Sub
    For x = .SelectedItems.Count To 1 Step -1
        Shell "notepad " & .SelectedItems(x), 1
    Next x
End With
End Sub