VB 如何调用未知路径的程序,打开已选择的文件

Question

VB 如何调用未知路径的程序,打开已选择的文件,
   比如说:调用AUTOCAD,EXCEL等

Answer 1

引用类库后打开.
比如:打开ExcelOption Explicit
Dim xlApp   As Object
Private Sub Command1_Click()
  Set xlApp = CreateObject("Excel.Application")
  xlApp.WorkBooks.Add
  xlApp.Visible = True
End Sub

Answer 2

这个我知道，如果我选着了5个CAD文件，能同时调用程序打开吗？

Answer 3

Option Explicit
Dim cadApp As Object
Private Sub Command1_Click()
   Set cadApp = CreateObject("AutoCad.Application")
   cadApp.Documents.Open ("C:\1.dwg")
   '...........打开其它文件.
   'cadApp.Documents.Open ("文件名")
   '.....................
   
   cadApp.Visible = True
End Sub

Answer 4

如果我在LIST中选择了文件,调用程序可以吗?

Answer 5

ret = ShellExecute(Me.hWnd, "open", sFileName, vbNullString, "", 0)