Hallo,
I want to search in Excel chart for Corel filename in the first column,
the resulting of the second column should create a Text in Corel.
I have no Idea why the following VBA doesn´t work.
Sub ReadExcel()
Dim o As Document
Dim Ergebnis As Range
Dim EXCELAPP As Object
CorelDRAW.Visible = True
Set o = ActiveDocument
d = Left(o.Name, InStrRev(o.Name, ".") - 0)
Set EXCELAPP = CreateObject("Excel.Application")
Workbooks.Open ("d:\Database.xlsx")
Ergebnis = Tabelle1.Columns(1).Find(what:=Tabelle1.Range(d).Value, lookat:=xlWhole)
f = Tabelle1.Cells(Ergebnis.Row, 2).Value
Set s = ActiveLayer.CreateArtisticText(0, 0, f, cdrGerman, cdrCharSetArabic, , 7)
Excel.Application.Workbooks.Close
'Reset Excel's visiblity.
EXCELAPP.Visible = True
'Close Excel.
EXCELAPP.Quit
End Sub
Thank´s for help
Best regards
Daniel