新手 Application.FileDialog打开文件有关问题

2013-01-04

新手Application.FileDialog打开文件问题Sub usefiledialog()With Application.FileDialog(msoFileDialogF

新手 Application.FileDialog打开文件问题
Sub usefiledialog()
With Application.FileDialog(msoFileDialogFilePicker)

.AllowMultiSelect = False

        .Filters.Clear

        .Filters.Add "Excel Files", "*.xls;*.xlw"
        .Filters.Add "All Files", "*.*"

        If .Show = -1 Then


            MsgBox "您选择的文件是：" & .SelectedItems(1), vbOKOnly + vbInformation, "智能Excel"
        End If
    End With
End Sub
我点了确定了怎么没有实际打开文件呢？？

[解决办法]

引用:

Sub usefiledialog()
With Application.FileDialog(msoFileDialogFilePicker)

.AllowMultiSelect = False

  .Filters.Clear

  .Filters.Add "Excel Files", "*.xls;*.xlw"
  .Filters.Add "All Fil……

改为：


Sub a()
With Application.FileDialog(msoFileDialogFilePicker)

.AllowMultiSelect = False
    
  .Filters.Clear
    
  .Filters.Add "Excel Files", "*.xls;*.xlw"
  .Filters.Add "All Files", "*.*"
    
  If .Show = -1 Then
    
    
  MsgBox "您选择的文件是：" & .SelectedItems(1), vbOKOnly + vbInformation, "智能Excel"
  f = .SelectedItems(1)   '取文件名
  End If
  End With
    '打开文件
    Application.Workbooks.Open f
End Sub

热点排行

VB

新手 Application.FileDialog打开文件有关问题