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???