Ich habe mit googeln leider nichts finden können. Daher frage ich hier mal nach. Ich steuere Excel per OLE mit meinem Delphiprogramm. Das soll ne Datei öffnen und die gesammte erste Spalte kopieren in ein array, da ich das später dann brauche. Jetzt weiß ich aber die genaue Länge der Spalte nicht (damit ist gemeint bis wohin da Werte drinstehen). Wie bekomme ich das raus? Bei meinem Text meckert er immer. Hier mal mein QT (Ausschnitt):

zusammenfalten · markieren

Delphi-Quellcode:

// Excel starten
  try
    Excel := CreateOleObject('Excel.Application');
  except
    ShowMessage('Excel konnte nicht gestartet werden!');
    Exit;
  end;

  // Laden
  try
    Excel.workbooks.open(edtquelle.Text);
  except
    ShowMessage('Datei konnte nicht geöffnet werden');
    Excel.free;
    Exit;
  end;

  // Daten Kopieren
  menge := Excel.activeworksheet.range['A1','A1'].EntireColumn;

  setlength(namensliste,0);
  for i := 1 to menge do
  begin
    SetLength(namensliste,Length(namensliste)+1);
    namensliste[i-1] := excel.cells[inttostr(i),1].value;
  end;

So müsste das ja theoretisch gehen. Bloß der Befehl um in "Menge" die Länge der Spalte reinzuschreiben geht nicht. Hoffe auf Tipps

markieren

Delphi-Quellcode:

XLSheet := XLApp.ActiveWorkbook.Worksheets[i];
xMin := 1;
yMin := 1;
xMax := XLSheet.UsedRange.Columns.Count;
yMax := XLSheet.UsedRange.Rows.Count;
Data := VarArrayCreate([yMin, yMax, xMin, xMax], varVariant);
Data := XLSheet.UsedRange.Value;

Ok hab jetzt:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.btngoClick(Sender: TObject);
var Verz: string; i,xmin,xmax,ymin,ymax:Integer; Excel: Variant;

  // Excel öffnen und auslesen
  // Excel starten
  try
    Excel := CreateOleObject('Excel.Application');
  except
    ShowMessage('Excel konnte nicht gestartet werden!');
    Exit;
  end;

  // Laden
  try
    Excel.workbooks.open(edtquelle.Text);
  except
    ShowMessage('Datei konnte nicht geöffnet werden');
    Excel.free;
    Exit;
  end;

  // Daten Kopieren

  XLSheet := Excel.ActiveWorkbook.Worksheets[1];
  xMin := 1;
  yMin := 1;
  xMax := XLSheet.UsedRange.Columns.Count;
  yMax := 1;
  namensliste := VarArrayCreate([yMin, yMax, xMin, xMax], varString);
  namensliste := XLSheet.UsedRange.Value;

  Excel.Activeworkbook.saved := True;
  Excel.workbooks.close;
  Excel.quit;
  Excel := unassigned;

Aber es funktioniert noch nicht. Deshalb ein paar Fragen:
ist

markieren

Delphi-Quellcode:

XLSheet: Variant;
namensliste: array of string;

korrekt?

Oder muss ich nen array of variant oder so ähnlich nehmen um das zu speichern?
Ich brauche das später nämlich nur noch als Strings.

markieren

Delphi-Quellcode:

// ein Variant Array wird erzeugt
namensliste := VarArrayCreate([yMin, yMax, xMin, xMax], varString);
// das bisherige Variant-Array wird freigegeben!
// es erfolgt eine neue Zuweisung
namensliste := XLSheet.UsedRange.Value;
// hier müsste man erst mal schauen, was genau in namensliste steht
// es könnte ein einzelner Wert sein oder auch ein 1- oder 2-dimensionales Variant-Array
if not VarIsArray(namensliste) then
   ShowMessage('kein Array');
ShowMessageFmt('Dimensionen: %d', [VarArrayDimCount(namensliste)]);

Hallo eragon123,

namensliste := VarArrayCreate([yMin, yMax, xMin, xMax], varString); besser ist:

namensliste := VarArrayCreate([yMin, yMax, xMin, xMax], varOLEStr); Bis bald Chemiker

Zitat von Chemiker:

besser ist:
namensliste := VarArrayCreate([yMin, yMax, xMin, xMax], varOLEStr);

Das ist bringt aber nichts, weil das Array sowieso überschrieben wird.
Vergleiche das mal mit:

markieren

Delphi-Quellcode:

var
  a : Variant;
begin
  a := 3.14;
  a := 'test';

Die erste Zuweisung ist sinnlos, da die Variable a in der zweiten Zuweisung überschrieben wird.

Hallo sx2008,

varString = $0100; { Pascal string 256 } {not OLE compatible } Ist so in der System-Unit angegeben.

Bis bald Chemiker

Zitat von Chemiker:

varString = $0100; { Pascal string 256 } {not OLE compatible } Ist so in der System-Unit angegeben.

Wir reden irgendwie aneinander vorbei.
Es ist völlig egal wie das Variantarray erzeugt wird - es spielt absolut keine Rolle, weil es in der nächsten Anweisung zerstört wird.

Das Variantarray zu erzeugen ist natürlich nur notwendig, wenn Daten nach Excel exportiert werden.
Die Zeile kann deshalb hier entfallen. Zumindest ist so Struktur und Typ der Daten erkennbar (dachte ich).

markieren

Delphi-Quellcode:

{Zugriff über Zeile, Spalte}
for y := yMin to yMax do
  for x := xMin to xMax do
    if VarIsEmpty(Data[y, x]) then
      Stringrid1.Cells[x, y] := ''
    else
      Stringrid1.Cells[x, y] := Data[y, x];

Edit:
Datum/Zeit wird so noch nicht richtig angezeigt.

Ich hätte hier nochmal eine Frage zu. Ich arbeite mittlerweile an einem anderen ähnlichen Projekt. Ich habe eine Exceldatei, in der die ersten paar Zeilen leer sind bzw. zum Teil in einzelnen Spalten Daten stehen die mich nicht interessieren. Dann kommt ein Reihe von Zeilen, in denen Werte stehen. 3 Spalten hieraus will ich auslesen.
Also z.B. Spalte 5 Zeile 8 bis x, wobei x eben dort ist wo die Daten aufhören, das kann unterschiedlich sein.

xMax := XLSheet.UsedRange.Columns.Count scheint dabei nicht zu helfen. Das spuckt irgendwie immer nur 3 aus obwohl die ersten Zeilen leer sind und danach viel mehr als 3 Zeilen mit Daten folgen. Woher weiß er überhaupt um welche Spalte es geht? Und das er die ersten leeren Spalten übergehen muss? Hat da jemand einen Tipp wie ich das machen könnte?