Inhalte von Excel-Tabelle in Listfeld

[koter]

Hallo Stefan,

mit X7 und Excel 2013 klappt es. Deshalb kann ich leider nicht sagen, warum es bei Dir nicht geht.

Du kannst versuchen die Importprozedur in CorelDraw zu schreiben und von Excel starten.

Wenn Du z.B in CorelDraw eine GMS namens „Excel1“ anlegst, dort ein Modul namens „ImportModul“ erstellst und die Prozedur „import1“ einfügst kannst Du diese von Excel starten:

CorelDraw:

Code:

Public Sub import1(Dateiname As String)
   Dim impFilter As ImportFilter
   Set impFilter = ActiveDocument.ActiveLayer.ImportEx(Dateiname, 0)
   impFilter.Finish
End Sub

Excel:

Code:

Sub ImportCDR2()
  Dim CDraw As Object
 
  Set CDraw = GetObject("", "CorelDraw.Application.17")
 
  If CDraw.Visible Then
      CDraw.InitializeVBA
  Else
      MsgBox "CorelDraw läuft nicht!", vbCritical, "Fehler"
      Exit Sub
  End If
 
  Call CDraw.GMSManager.RunMacro("Excel1", "ImportModul.import1", "C:\Test\Test.cdr")
 
  Set CDraw = Nothing
End Sub

Teste zuerst, ob die Prozedur in CorelDraw funktioniert indem Du sie von dort aufrufst.
Ich hoffe es funktioniert auf diesem Wege.

Du solltest vielleicht Deine CorelDraw-Version mit in die Signatur schreiben.