Új hozzászólás Aktív témák

• Fire/SOUL/CD félisten

  #3200

  #3198 Mzmatus

  2025-10-22 05:13:21

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Fire/SOUL/CD

  félisten

  #3198 Mzmatus

  #3198 Mzmatus

  Próbáltam. Nem.
  

  Közben eszembe jutott egy egyszerű (remélhetőleg AutoCAD VBA-ban is működő) megoldás. Szóval mi lenne, ha egy Excel objektumot hoznánk létre és annak használnánk a függvényeit, pl. a GetOpenFilename függvényt.
  Próbáld ki, hátha műxik...

  Sub FireAutoCADFileOpenDialog()

Dim MyExcelApp As Object
Dim MyFilePath As String

Set MyExcelApp = CreateObject("Excel.Application")

MyFilePath = MyExcelApp.GetOpenFilename(Title:="Válassz egy fájlt", _
FileFilter:="AutoCAD DVB Files (*.dvb),*.dvb")

If MyFilePath <> "False" Then MsgBox "A kiválasztott fájl: " & MyFilePath

Set MyExcelApp = Nothing

End Sub

Új hozzászólás Aktív témák