Excel-Zeile auslesen / Datei-Pfad relativ !!!

[taktaky]

Zitat von Chemiker:

Hallo taktaky,

warum setzt Du nicht einfach die Komponente TObenDialog ein?

Damit kann man sich doch jeden Path aussuchen.

Bis bald Chemiker

Das wäre noch besser.
gibt es ein Beispiel davon?

Gruß

[mkinzler]

Zitat:

warum setzt Du nicht einfach die Komponente TObenDialog ein?

Oder wahlweise auch TUntenDialog
Aber helfen würde eher ein TOpenDialog. Diese Komponente kapselt den Dateiauswahldialog.

Man ruft ihn mit .Execute auf. nach Schließen des Dialogs kann man die ausgewählte Datei unter .FileName auslesen. Bei Muliselect in .Files.

[taktaky]

ich würde dann über google nach dem Befehl suchen.

Gruß

[Chemiker]

Hallo taktaky,

bis Du schon weitergekommen bei der Deiner Suche?
Wenn nicht, vielleicht hilft Dir diese Funktion weiter.
Um das ganze zu Testen muss Du noch die Komponente TOpenDialog auf das Form ablegen.

Delphi-Quellcode:

{******************************************************************************}
{* Funktion: ExcelDateiAussuchen()                                            *}
{* Autor   :                                                 *}
{* Ltz.Änd.: 21.01.2006                                                       *}
{* Beschreibung: *}
{* *}
{******************************************************************************}
function ExcelDateiAussuchen(const StandartDateiname:String;
                                                      Sender : TObject):string;
begin
  (Sender As TOpenDialog).Filter :=  'EXCEL-Datei (*.xls)|*.xls';
  (Sender As TOpenDialog).DefaultExt := 'xls';
  (Sender As TOpenDialog).InitialDir := 'c:\';
  (Sender As TOpenDialog).FileName := StandartDateiname;
  if (Sender As TOpenDialog).Execute then
  begin
    Result := (Sender As TOpenDialog).filename;
  end;
end;

Dein Code:

Delphi-Quellcode:

uses ComObj, 

procedure TForm1.Button1Click(Sender: TObject); 
const 
  xlCellTypeLastCell = $0000000B; 
var 
  XLApp, XLSheet: OLEVariant; 
  LetzteSpalte, i: Integer; 
  s: string; 
begin 
  // Excel starten 
  try 
    XLApp := CreateOleObject('Excel.Application'); 
  except 
    ShowMessage('Fehler...'); 
    Exit; 
  end; 
  // Excel-Datei öffnen 
  XLApp.Workbooks.Open(ExcelDateiAussuchen('test1.xls',OpenDialog1));// <------ geändert 
  XLSheet := XLApp.Workbooks[1].WorkSheets[1]; 
  // Letzte Spalte ermitteln 
  LetzteSpalte := XLSheet.Cells.SpecialCells(xlCellTypeLastCell, emptyParam).Column; 
  s := ''; 
  // Zellen von Zeile 1 auslesen und in String s speichern 
  for i := 1 to LetzteSpalte do 
    s := s + XLSheet.Cells[1, i].Text; 
  // String s anzeigen 
  //ShowMessage(s); 
  Edit1.Text:=s; 
  // Excel beenden 
  XLApp.Quit; 
end;

Bis bald Chemiker

[taktaky]

Hi

ja mit Excel Sachen ist schon erleidigt
nun möchte ich einen Code, der für alle Anwendungen gilt, wie MS Word, .txt Dateien, html.


Gruß