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

• #3200 Fire/SOUL/CD félisten Mzmatus #3198

  Új Válasz 2025-10-22 05:13:21 #3200

  Ú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

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Mzmatus #3198 üzenetére

  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