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

[taktaky]

mit dem Code klann man den Inhalt einer Excel-Zeile auslesen. Aber was soll ich ändern,
damit den datei Pfad aus als relativ eintragen kann. In dem Code wird nur absolute Pfad akzeptiert !!!

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('C:\test1.xls'); // pafd nur als absolut !!!!!!!!!!!!!!!!
  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;

Gruß

[mkinzler]

Wandle doch den relativen in einen absoluten

Delphi-Quellcode:

Pfad := ExtractFilePath( Application.Exename) + <realtiver Pfad>;

[taktaky]

Zitat:

Zitat von mkinzler

Wandle doch den relativen in einen absoluten

Delphi-Quellcode:

Pfad := ExtractFilePath( Application.Exename) + <realtiver Pfad>;

Hallo,

kannst Du den von Dir gegebenen Code in von mir gegebenen Delphi Code ersetzen?

Gruß

[hoika]

Hallo,

wie sollen wir das denn machen,
ohne zu wissen, wie dein relativer Pfad aussieht ?

Von wo aus relativ ?
Von deiner Exe?

Dann sieht oben.


Heiko

[mkinzler]

Delphi-Quellcode:

XLApp.Workbooks.Open(Pfad);

[taktaky]

Danke schön, nun funktioniert

Das war mit Excel. Ich weiss nicht ob ich das Script auch für word, txt, html verwenden kann?

Gruß

[mkinzler]

Welches Skript?

[taktaky]

Zitat:

Zitat von mkinzler

Welches Skript?

ich meine der Code ;)

[Chemiker]

Hallo taktaky,

warum setzt Du nicht einfach die Komponente TObenDialog ein?

Damit kann man sich doch jeden Path aussuchen.

Bis bald Chemiker

[mkinzler]

Der Code zur ermittlung des Pfades der Exe: ja; dein Code nicht.

[taktaky]

Zitat:

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 :stupid:
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ß