AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Text File Einlesen und als Excel ausgeben
Thema durchsuchen
Ansicht
Themen-Optionen

Text File Einlesen und als Excel ausgeben

Ein Thema von Andidreas · begonnen am 11. Jul 2006 · letzter Beitrag vom 18. Jul 2006
 
Benutzerbild von Andidreas
Andidreas

Registriert seit: 27. Okt 2005
1.110 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#6

Re: Text File Einlesen und als Excel ausgeben

  Alt 13. Jul 2006, 09:24
so wie oben schon beschrieben, versuch ich ja gerade ein text file in ein excel auszugeben...

die connection zum excel hab ich jetzt hinbekommen, aber ich kann leider jetzt nicht die tabellen namen meines excels feststellen, bzw. ich kanns schon, aber nicht so wie ich es möchte

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);

var
strFileFrom, strFileTo : TFileStream;
sDate,sFromDir, sToDir : String;
sSheets : TStrings;

begin

  //Create .xls with Name = Date
  sDate := FormatDateTime('yyyymmdd', Date);
  sFromDir := '..\Excel\Template\Template.xls';
  sToDir := '..\Excel\' +sDate+ '.xls';

  strFileFrom := TFileStream.Create(sFromDir, fmOpenRead);

  Try
    strFileTo := TFileStream.Create(sToDir, fmCreate);
    Try
      strFileTo.CopyFrom(strFileFrom, strFileFrom.Size);
    Finally
      strFileTo.Free;
    End;
  Finally
    strFileFrom.Free;
  End;

  //AdoConnection String
  AdoConnection1.Connected := False;
  AdoConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
                                     'Data Source=' + sToDir + ';' +
                                     'Extended Properties=Excel 8.0;' +
                                     'Persist Security Info=False';
  AdoConnection1.Open;

  //WorkSheets in ListBox auslesen
  {AdoConnection1.GetTableNames(ListBox1.Items);}
  AdoConnection1.GetTableNames(sSheets);

  //Work with WorkSheet
  AdoTable1.Connection := AdoConnection1;
  {AdoTable1.TableName := '[' +ListBox1.Items[0]+ ']';}
  AdoTable1.TableName := '[' +sSheets.Names[1]+ ']';
  AdoTable1.Active := True;

  ShowMessage(AdoTable1.TableName);

end;
AdoConnection1.GetTableNames verlangt als Parameter einen TStrings, hab ich ja auch angelegt, wenn ich mir jetzt aber die tabellen namen einlesen lassen will, dann bringt er folgenden fehler(siehe bild)
wenn ich mir des ganze aber in ne ListBox (befehle sind kommentiert) ausgeben lass dann gehts...

hat jemand vielleicht ne idee warums ausgerechnet net mit der TStrings Variable geht???
Angehängte Grafiken
Dateityp: jpg fehler_566.jpg (99,3 KB, 25x aufgerufen)
Ein Programmierer Programmiert durchschnittlich 15 Code Zeilen pro Tag
Wir sind hier doch nicht bei SAP!!!

Aber wir habens bald
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:28 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz