[求助]打开文件对话框（由于需要从execl中读取数据，所以需要一个文件选择对话框）

hhb4251

Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)

With MyDialog
    .Filters.Clear                                '清除所有文件筛选器中的项目
    .Filters.Add "csv 文件", "*.csv", 1           '增加筛选器的项目为所有csv文件
    .AllowMultiSelect = False                     '不允许多项选择
    .Title = "选择导入文件"
    If .Show = -1 Then                            '确定选择文件
       For Each vrtSelectedItem In .SelectedItems     'vrtSelectedItem是所选择的文件路径
       Set aaa = Workbooks.Open(FileName:=vrtSelectedItem)   '打开选中的文件以便读取里面的数据
          
       Next

   end if

end with

以上是我在word vba中的文件选择对话框，我把它用在cad中虽然编译通过了（在工具引用中我已经勾选了word、 execl和office的库了），但运行时没任何反映，由于是初学cad vba ，不知道在cad 中应该怎么实现该对话框。大虾们，请不啬赐教，小弟在这里选谢了。

hhb4251

怎么没人顶啊？

自己顶一下！