[Gelöst] Excel befehl "Übersetzen" (Blatt kopieren)

**VkPenguin**

Hallo zusammen,

ich arbeite momentan an einem Programm, mit dem ich Excel fernsteuere. Im Prinzip funktioniert alles auch ganz gut, nun habe ich aber ein Problem beim "Übersetzen" eines Befehls in Delphi.

Der originale Excelbefehl:

markieren

Code:

Sheets(1).Copy Before:=Sheets(3)

In Delphi würde ich das so schreiben:
Excel.Sheets("Übersicht").Copy Before:=Sheets(3)

Das Problem ist aber, dass in dem Befehl ein Leerzeichen vorkommt, welches Delphi natürlich nicht akzeptieren will. Für vieles gibt es ja eine Entsprechung in Delphi (z.B. "=" wird zu ":="), weiß jemand, ob es sowas auch für Leerzeichen gibt oder wie ich das anders hinkriege?

Danke!

**p80286**

versuch es mal mit
Sheets[1].Copy(Before:=Sheets[3]) Gruß
K-H

**VkPenguin**

Hi, Danke für die Antwort. Der Befehl wird zwar erkannt, aber die Parameter nicht.. Wie müssen die denn dann deklariert werden?

**mkinzler**

Übergib nal alle Parameter an Copy (Delphi kennt kein ParameterByName)

**VkPenguin**

Okay, aber wie ? Sheets[3] kennt Delphi als Variable ja nicht... ich könnte zwar ein Array so nennen und das Übergeben, aber ich glaube nicht, dass das funktioniert..

**mkinzler**

ActiveWorkbook.Sheet[1].Copy(ActiveWorkbook.Sheet[3], EmptyParam); oder ähnlich

**VkPenguin**

Ah, zwar nicht ganz, aber jetzt hab ichs, danke Dir!

Falls es jemanden interessiert, der vollständige Befehl lautet:

Excel.ActiveSheet.Copy(Excel.ActiveWorkbook.Sheets[3]); Dann ist das hier erledigt, danke nochmal!

**p80286**

Irgendeinen wird es bestimmt interessieren!

Danke!

K-H

**Blup**

Zitat von mkinzler:

Übergib nal alle Parameter an Copy (Delphi kennt kein ParameterByName)

Mit OLEVariant akzeptiert Delphi (bei mir Delphi 2007) benannte Parameter z.B.:

Workbook.SaveAs(Filename := FFileName, FileFormat := xlExcel8);

[Gelöst] Excel befehl "Übersetzen" (Blatt kopieren)

[Gelöst] Excel befehl "Übersetzen" (Blatt kopieren)

AW: Excel befehl "Übersetzen"

AW: Excel befehl "Übersetzen"

AW: Excel befehl "Übersetzen"

AW: Excel befehl "Übersetzen"

AW: Excel befehl "Übersetzen"

AW: Excel befehl "Übersetzen"

AW: [Gelöst] Excel befehl "Übersetzen" (Blatt kopieren)

AW: Excel befehl "Übersetzen"

Forumregeln

p80286 Registriert seit: 28. Apr 2008 Ort: Stolberg (Rhl) 6.659 Beiträge FreePascal / Lazarus	#2 AW: Excel befehl "Übersetzen" 7. Aug 2013, 17:34 versuch es mal mit Sheets[1].Copy(Before:=Sheets[3]) Gruß K-H Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen R.E.D retired error detector
	Zitat

VkPenguin Registriert seit: 23. Dez 2011 150 Beiträge Delphi XE7 Architect	#3 AW: Excel befehl "Übersetzen" 7. Aug 2013, 17:56 Hi, Danke für die Antwort. Der Befehl wird zwar erkannt, aber die Parameter nicht.. Wie müssen die denn dann deklariert werden?
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#4 AW: Excel befehl "Übersetzen" 7. Aug 2013, 19:26 Übergib nal alle Parameter an Copy (Delphi kennt kein ParameterByName) Markus Kinzler
	Zitat

VkPenguin Registriert seit: 23. Dez 2011 150 Beiträge Delphi XE7 Architect	#5 AW: Excel befehl "Übersetzen" 7. Aug 2013, 19:46 Okay, aber wie ? Sheets[3] kennt Delphi als Variable ja nicht... ich könnte zwar ein Array so nennen und das Übergeben, aber ich glaube nicht, dass das funktioniert..
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#6 AW: Excel befehl "Übersetzen" 7. Aug 2013, 19:59 ActiveWorkbook.Sheet[1].Copy(ActiveWorkbook.Sheet[3], EmptyParam); oder ähnlich Markus Kinzler
	Zitat

VkPenguin Registriert seit: 23. Dez 2011 150 Beiträge Delphi XE7 Architect	#7 AW: Excel befehl "Übersetzen" 7. Aug 2013, 23:17 Ah, zwar nicht ganz, aber jetzt hab ichs, danke Dir! Falls es jemanden interessiert, der vollständige Befehl lautet: Excel.ActiveSheet.Copy(Excel.ActiveWorkbook.Sheets[3]); Dann ist das hier erledigt, danke nochmal!
	Zitat

p80286 Registriert seit: 28. Apr 2008 Ort: Stolberg (Rhl) 6.659 Beiträge FreePascal / Lazarus	#8 AW: [Gelöst] Excel befehl "Übersetzen" (Blatt kopieren) 8. Aug 2013, 09:22 Irgendeinen wird es bestimmt interessieren! Danke! K-H Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen R.E.D retired error detector
	Zitat

Blup Registriert seit: 7. Aug 2008 Ort: Brandenburg 1.429 Beiträge Delphi 10.4 Sydney	#9 AW: Excel befehl "Übersetzen" 14. Aug 2013, 08:28 Zitat von mkinzler: Übergib nal alle Parameter an Copy (Delphi kennt kein ParameterByName) Mit OLEVariant akzeptiert Delphi (bei mir Delphi 2007) benannte Parameter z.B.: Workbook.SaveAs(Filename := FFileName, FileFormat := xlExcel8);
	Zitat