Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - XLS-Datei laden für einen Serienbrief ??


bis11 - Di 03.09.02 15:58
Titel: XLS-Datei laden für einen Serienbrief ??
Hi,

Ich habe folgenenden VB-Code :

Quelltext
1:
2:
3:
4:
5:
6:
7:
ActiveDocument.MailMerge.OpenDataSource Name := "D:\Temp\REPORT.xls", 
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, 
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", 
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, 
        Format:='wdOpenFormatAuto', Connection:="Gesamtes Tabellenblatt", 
        SQLStatement:="", SQLStatement1:="", SubType:=wdMergeSubTypeOther 
CommandBars("Mail Merge").Visible := true


In Delphi so geschrieben :

Quelltext
1:
2:
3:
4:
5:
6:
7:
WordApp.ActiveDocument.MailMerge.OpenDataSource(FileName := AFileName, 
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, 
        AddToRecentFiles:=False, PasswordDocument:='', PasswordTemplate:='', 
        WritePasswordDocument:='', WritePasswordTemplate:='', Revert:=False, 
        Format:='wdOpenFormatAuto', Connection:='Gesamtes Tabellenblatt', 
        SQLStatement:='', SQLStatement1:='', SubType:='wdMergeSubTypeOther'); 
  WordApp.CommandBars('Mail Merge').Visible := true;


AFileName := 'D:\Temp\REPORT.XLS'; --> diese Zeile steht weiter vorne.
Was mache ich an dem umschreiben verkehrt ? Ich bin für jede Hilfe dankbar.