hhb4251 发表于 2006-11-28 11:25:00

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

<P>Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)</P>
<P>With MyDialog<BR>&nbsp;&nbsp;&nbsp; .Filters.Clear&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '清除所有文件筛选器中的项目<BR>&nbsp;&nbsp;&nbsp; .Filters.Add "csv 文件", "*.csv", 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '增加筛选器的项目为所有csv文件<BR>&nbsp;&nbsp;&nbsp; .AllowMultiSelect = False&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '不允许多项选择<BR>&nbsp;&nbsp;&nbsp; .Title = "选择导入文件"<BR>&nbsp;&nbsp;&nbsp; If .Show = -1 Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '确定选择文件<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each vrtSelectedItem In .SelectedItems&nbsp;&nbsp;&nbsp; &nbsp;'vrtSelectedItem是所选择的文件路径<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set aaa = Workbooks.Open(FileName:=vrtSelectedItem)&nbsp;&nbsp;&nbsp;'打开选中的文件以便读取里面的数据<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next</P>
<P>&nbsp;&nbsp; end if</P>
<P>end with</P>
<P>以上是我在word vba中的文件选择对话框，我把它用在cad中虽然编译通过了（在工具引用中我已经勾选了word、 execl和office的库了），但运行时没任何反映，由于是初学cad vba ，不知道在cad 中应该怎么实现该对话框。大虾们，请不啬赐教，小弟在这里选谢了。</P>

hhb4251 发表于 2006-11-29 18:58:00

<P>怎么没人顶啊？</P>
<P>自己顶一下！</P>
页: [1]
查看完整版本: [求助]打开文件对话框（由于需要从execl中读取数据，所以需要一个文件选择对话框）