Verfügbare Informationen zu "Problem mit Delphi und excel"
Qualität des Beitrags: Beteiligte Poster: Moritz Forum: Tutorials.at Forenbeschreibung: Programmierforum aus dem Unterforum: Pascal Antworten: 2 Forum gestartet am: Mittwoch 19.04.2006 Sprache: deutsch Link zum Originaltopic: Problem mit Delphi und excel Letzte Antwort: vor 15 Jahren, 11 Monaten, 12 Tagen, 1 Stunde, 36 Minuten
Alle Beiträge und Antworten zu "Problem mit Delphi und excel"
Re: Problem mit Delphi und excel
Moritz - 14.05.2008, 20:11Problem mit Delphi und excel
Ich habe das tutorial unter
http://www.delphipraxis.net/topic43640.html
gelesen und wollte es auch gleich ausprobieren.
Dabei ist das zu stande gekommen:
Code:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj, StdCtrls;
type excelstr = record
inhalt: shortstring;
fett: boolean;
kursiv: boolean;
size: integer;
end;
type arrexcel = array [1..10, 1..10] of excelstr;
....
//Ich habe das unwichtige weggelassen...
implementation
procedure Excel (a: arrexcel; sheetname: shortstring);
var
Excel : Variant;
x, y: Integer;
begin
Excel := CreateOleObject('Excel.Application');
excel.Application.SheetsInNewWorkBook := 1;
Excel.Workbooks.Add;
Excel.Sheets[1].name := sheetname;
for x := 1 to 10 do
begin
for y := 1 to 10 do
begin
Excel.Sheets[1].Cells[x, y].Value := a[x, y].inhalt;
end;
end;
Excel.ActiveWorkbook.SaveAs('C:\Blub.xls');
Excel.Quit;
Excel := Unassigned;
end;
procedure TForm8.Button1Click(Sender: TObject);
var a: arrexcel;
begin
a[1, 1].inhalt := 'aa';
excel (a, 'blatt1');
end;
Die erstellte excel-datei enthält zwar das 'aa' in Zelle A1, aber auch unverständliche Zeichen in den Zellen A8 bis J10. Woran liegt dass??
edit:
Ich habe dass an die procedure excel übergebene array jetzt korrekt initialisiert, aber nun lässt sich dass entstandene excel-dokument nicht öffnen, das heisst der Computer hängt sich jedesmal auf.
Re: Problem mit Delphi und excel
Moritz - 14.05.2008, 20:33
Komischerweise erledigt sich das Problem, sobald man mehr als eine Zelle verändert.
Der Threat hier ist also erledigt...
=====================================
THREAT KANN VOM MODERATOR GELÖSCHT WERDEN!!!
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Tutorials.at
wer kennt diese sprachen - gepostet von AQE89 am Montag 13.11.2006
Männlich- Weiblich zeichen - gepostet von DrPhil_Guth am Sonntag 23.04.2006
C++: Keine neue Seite möglich (mit \f). Wie? - gepostet von Meik1988 am Sonntag 23.07.2006
Kostenlose Homepages - gepostet von detewe89 am Samstag 24.11.2007
ich kan kein \und kein #machen - gepostet von patrick am Donnerstag 15.02.2007
Probleme mit Dev-C++ - gepostet von Mobin am Donnerstag 30.11.2006
Robot Carol - gepostet von Dragorad am Donnerstag 26.10.2006
C++ Ansi String - gepostet von Hoerb am Mittwoch 13.12.2006
problem mit einer Angabe! - gepostet von niki1 am Montag 14.05.2007
Serielle Schnittstelle ansteuern (C) - gepostet von mitti am Sonntag 03.06.2007
Ähnliche Beiträge wie "Problem mit Delphi und excel"
Dann will ich mich jetzt auch mal vorstellen... - Berit (Montag 26.03.2007)
"Lost" gratis im Netz - na das ist doch mal was!:) - Dani (Dienstag 11.04.2006)
....einfach mal zum nachdenken..... - phex (Dienstag 05.12.2006)
Mal n bissl Urlaubfeeling *g* - ~Mona~ (Samstag 03.09.2005)
ich auch mal will :-D - carmen (Dienstag 29.08.2006)
ich muss euch mal was zeigen: - steffen (Sonntag 24.06.2007)
Nun mal raus... - matthiasheld (Dienstag 05.10.2004)
Mal sehen wie kreativ unsere Allymember so sind... - Arlor (Freitag 02.02.2007)
Nun ich mal wieder ;o) - schulle (Montag 03.09.2007)
Ach ich wollte nur mal wieder bißchen nerven *lach* - Shirley (Samstag 02.12.2006)