Entwickler-Ecke

Dateizugriff - Excel öffnen ?? Fehlermeldung: Kein Mitglied gefunden


rob87 - Fr 25.01.08 12:32
Titel: Excel öffnen ?? Fehlermeldung: Kein Mitglied gefunden
Hallo zusammen.

Ich möchte mit Delphi Werte an Excel übergeben, bekomm allerdings die Fehlermeldung: "Mitglied nicht gefunden"

Ich hab den Eindruck, dass ich beim Öffnen irgendwas vergessen hab:

Delphi-Quelltext 
1:
2:
3:
4:
5:
 
var
  Excel : Variant;
  datum : String;
  zaehlerstand : Integer;
  dateiname, sheetname : String;  //Hab den Dateinamen auch schon "hart" angegeben, also in der Art C:\Ordner1\datei.xls


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
 
  Excel := CreateOleObject('Excel.Application');

  Excel.Workbooks(dateiname).Activate;                        <-- "Mitglied nicht gefunden"
  Excel.Workbooks(dateiname).Worksheets(sheetname).Activate;
  Excel.Sheets[sheetname].Cells[6,1].Value := datum;
  Excel.Sheets[sheetname].Cells[6,2].Value := zaehlerstand;

Vielleicht sieht ja jemand was


Agawain - Fr 25.01.08 12:48
Excel.Workbooks(dateiname).open;


rob87 - Fr 25.01.08 12:59
user profile iconAgawain hat folgendes geschrieben:
Excel.Workbooks(dateiname).open;


Hat ich auch schon drin. Dann bringt er mir dieselbe Fehlermeldung schon beim Open (also: Mitglied ...) :roll: :roll:


iKilledKenny - Fr 25.01.08 13:24
Sind das nicht auch für die Workbooks Aufzählung eckige Klammern?


rob87 - Mo 28.01.08 09:42
user profile iconiKilledKenny hat folgendes geschrieben:
Sind das nicht auch für die Workbooks Aufzählung eckige Klammern?
Keine Ahnung.

Hab nun des Ganze mal mit eckigen Klammern gelöst. Dann bekomm ich die Fehlermeldung: "Ungültiger Index"

Delphi-Quelltext 
1:
2:
3:
 
var
  datum, dateiname, sheetname : String;
  zaehlerstand : Integer;


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
 
  Excel := CreateOleObject('Excel.Application');

  Excel.Workbooks[dateiname].Open;       <-- Ungültiger Index
  Excel.Workbooks[dateiname].Activate;
  Excel.Workbooks[dateiname].Worksheets[sheetname].Activate;
  Excel.Sheets[sheetname].Cells[6,1].Value := datum;
  Excel.Sheets[sheetname].Cells[6,2].Value := zaehlerstand;


iKilledKenny - Mo 28.01.08 11:04

Delphi-Quelltext 
1:
2:
3:
 
Excel.Workbooks.Open (FileName);
if Excel.WorkBooks [1].Sheets.Count = 0 then
  raise Exception.Create ('Keine Arbeitsblätter');


rob87 - Mo 28.01.08 12:48
user profile iconiKilledKenny hat folgendes geschrieben:

Delphi-Quelltext 
1:
2:
3:
 
Excel.Workbooks.Open (FileName);
if Excel.WorkBooks [1].Sheets.Count = 0 then
  raise Exception.Create ('Keine Arbeitsblätter');


So schaut nun momentan meine Syntax aus:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
 
  Excel := CreateOleObject('Excel.Application');
  // ....
  Excel.Workbooks.Open [dateiname];

  if Excel.Workbooks[1].Sheets.Count = 0 then
    ShowMessage('Keine Arbeitsblätter');

  Excel.Workbooks.Activate [dateiname];    //<-- das hier ist schon falsch "Die Methode Activate wird vom Automatisierungsobjekt nicht unterstützt"
  Excel.Workbooks[dateiname].Worksheets[sheetname].Activate;
  Excel.Sheets[sheetname].Cells[6,1].Value := datum;
  Excel.Sheets[sheetname].Cells[6,2].Value := zaehlerstand;


Dann is meine Syntax ja total durcheinander, oder? Also momentan stimmt sie bis zu der markierten Zeile, denk ich mal.

Kann mir einer sagen, wie dann die allgemeine Syntax richtig wär?


iKilledKenny - Mo 28.01.08 13:00
Ich glaube, dir fehlt das grundsätzliche Verständnis.


Delphi-Quelltext 
1:
 
Excel := CreateOleObject('Excel.Application');

erzeugt ein OLE Object.


Delphi-Quelltext 
1:
 
Excel.Workbooks.Open (dateiname);

öffnet eine Excel-Datei. Die Datei steht nun unter

Delphi-Quelltext 
1:
 
Excel.Workbooks [1]

zur Verfügung.

Excel.Workbooks [1] hat nun wiederum verschiedene Properties/Methoden. Eine davon ist z.B. Excel.Workbooks [1].Sheets, eine andere wäre Excel.Workbooks [1].Activate.


rob87 - Mo 28.01.08 13:59
user profile iconiKilledKenny hat folgendes geschrieben:
Ich glaube, dir fehlt das grundsätzliche Verständnis.


Delphi-Quelltext 
1:
 
Excel := CreateOleObject('Excel.Application');

erzeugt ein OLE Object.


Delphi-Quelltext 
1:
 
Excel.Workbooks.Open (dateiname);

öffnet eine Excel-Datei. Die Datei steht nun unter

Delphi-Quelltext 
1:
 
Excel.Workbooks [1]

zur Verfügung.

Excel.Workbooks [1] hat nun wiederum verschiedene Properties/Methoden. Eine davon ist z.B. Excel.Workbooks [1].Sheets, eine andere wäre Excel.Workbooks [1].Activate.


Ja, dieses Verständnis fehlt mir. Ich bin grad dabei mir des Ganze anzueignen. Hab halt immer wieder mal in irgendwelchen Tutorials oder Büchern Bruchstücke aufgenommen. Aber so richtig blick ich noch nicht durch. :roll: Da hast du wohl Recht. Deshalb bin ich über jede Hilfe dankbar.


iKilledKenny - Mo 28.01.08 14:37
Dann versuch doch mal mit dem von mir geposteten Dingen weiterzumachen. Wenn es konkret irgendwo hapert, dann meld dich nochmal.


rob87 - Mo 28.01.08 14:53
Ok. Merci.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!