Buongiorno a tutti, vi espongo il problema:
nel codice seguente ho utilizzato la funzione GetObject per ottenere un riferimento ad un oggetto fornito da un componente, ma in esecuzione mi da l'errore:
"Il componente Activex non puo creare l'oggetto".
Quale puo' essere la causa e come posso risolvere?
Grazie mille a tutti.
Public Elenco As String, sPath As String, sNome As String, _
objApp As SolidEdgeFramework.Application, _
objDft As SolidEdgeDraft.DraftDocument
Private Sub Command1_Click()
Dim n As Integer
With CommonDialog1
.MaxFileSize = 4096
.FileName = ""
.Filter = "All Files|*.*"
.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
.ShowOpen
End With
Elenco = CommonDialog1.FileName
elencofile = Split(Elenco, Chr(0))
sPath = elencofile(0) 'percorso file da convertire
Set objApp = GetObject(, "SolidEdgeFramework.Application")
Set objDft = objApp.ActiveDocument
For n = 1 To UBound(elencofile)
objDft.SaveAs (elencofile(n) & "Pdf")
Next
End Sub