社区 › VBA/VB/ActiveX/API 编程技术 › 如何调用API函数打开文件保存对话框和文件打开对话框，返回文件路径？？？

efan2000 发表于 2013-12-18 13:59:24

本帖最后由 efan2000 于 2014-7-17 11:56 编辑

标准的打开和保存文件对话框，应该是采用ARX的acedGetFileNavDialog函数。如：
Sub test()
    Dim result As ResultBuffer
    AcedGetFileNavDialog "图形另存为", ThisDrawing.Name, "dwg", "", 4, result
    AcedGetFileNavDialog "选择文件", "", "dwg", "", 4, result
    Dim v As Variant
    v = result.AsArray()
    Dim i As Integer
    For i = 0 To UBound(v)
      Dim tv As TypedValue
      Set tv = v(i)
      Debug.Print tv.Value
    Next
End Sub
该函数的COM方式，可以查找ARX的COM实现的贴子。

阿霸jun 发表于 2014-7-2 16:55:40

yuanziyou 发表于 2013-12-17 23:25 static/image/common/back.gif
感谢指点,我自己又揉和了一个多选模式打开的!

多选模式的能不能共享看看，我找这个很久了！

查看完整版本: 如何调用API函数打开文件保存对话框和文件打开对话框，返回文件路径？？？