Toon posts:

[delphi] lotto; excel bestand aanmaken

Pagina: 1
Acties:
  • 245 views sinds 30-01-2008
  • Reageer

Verwijderd

Topicstarter
Ik wil een lotto-converteer programma gaan maken, dat de geplande voetbal wedstrijden, gekopieerd en geplakt van knvb.nl in een memo-field, naar een excel-bestand wegschrijft.

Ik weet alleen niet hoe je in delphi 6 een excel-bestand kunt aanmaken, laat staan goed kunt inrichten. Zou iemand mij op weg kunnen helpen?

Thx in @dvance

Verwijderd

Hier wat info over Automation vanuit Delphi 5 met Excel 97. Ik neem aan dat het voor Delphi 6 en Excel ?? grotendeels gelijk zal zijn.

[url="http://www.djpate.freeserve.co.uk/AutoIntro.htm"]http://www.djpate.freeserve.co.uk/AutoIntro.htm[/url]

Enjoy :)

Verwijderd

Topicstarter
Op donderdag 25 juli 2002 17:23 schreef MrX het volgende:
Hier wat info over Automation vanuit Delphi 5 met Excel 97. Ik neem aan dat het voor Delphi 6 en Excel ?? grotendeels gelijk zal zijn.

[url="http://www.djpate.freeserve.co.uk/AutoIntro.htm"]http://www.djpate.freeserve.co.uk/AutoIntro.htm[/url]

Enjoy :)
Bij het installeren van Excel9.olb in de Type Library krijg ik een legio aan foutmeldingen die maar met één ding te maken hebben: undeclared identifier. Hoe moet ik dit oplossen?

edit:
is inmiddels verholpen :D

Verwijderd

Topicstarter
Ik heb nu het volgende gemaakt:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TEKopForm.MaakWorkBook;
var
  I: Integer;
  WS: _WorkSheet;
begin
  LCID := GetUserDefaultLCID;
  ExcelApp.Connect;
  ExcelApp.Workbooks.Add(EmptyParam, LCID);


  WS := ExcelApp.ActiveSheet as _Worksheet;
  WS.Range['A1', 'A1'].Value := 'hallo1';
  WS.Range['B1', 'B1'].Value := 'hallo2';
  WS.SaveAs('c:\toto.xls', EmptyParam,
        EmptyParam, EmptyParam, EmptyParam,
        EmptyParam, EmptyParam, EmptyParam,
        EmptyParam, LCID);

  ExcelApp.Disconnect;
  ExcelApp.Quit;
end;

Het probleem is echter nu dat ik maar één cel toevoegd krijg (met waarde hallo1'), terwijl ik twee cellen toevoeg.
Weet iemand hoe ik dit kan oplossen?

Verwijderd

Topicstarter
*kick*

Verwijderd

Topicstarter
*kick2*

Verwijderd

Op zondag 28 juli 2002 19:53 schreef ridde100 het volgende:
*kick2*
/waarschuwing 1

  • Compubiter
  • Registratie: Oktober 2001
  • Laatst online: 21-08-2023

Compubiter

Think again

Op zondag 28 juli 2002 20:08 schreef UltraV het volgende:

[..]

/waarschuwing 1
:? Na vierentwintig uur mag je echt wel kicken hoor.
Ik krijg niet snel antwoord dus mag ik schoppen?

Wacht minstens 24 uur voor je je topic omhoog schopt. Doe dit dan ook alleen met een zinnige opmerking en dus niet met "Waarom antwoord er nou niemand" nadat je 5 minuten geen antwoord hebt gehad. Sommigen van ons hebben een leven
[url="http://gathering.tweakers.net/forum/list_messages/392390/#7"]Ik krijg niet snel antwoord dus mag ik schoppen?[/url]

  • brokenp
  • Registratie: December 2001
  • Laatst online: 11:44
Misschien kan je hier iets mee?
code:
1
2
3
4
5
6
7
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "hallo2"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "hallo3"
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "halloB3"
    Range("E5").Select

Dit is VBA binnen EXCEL, probeer anders te werken met de macrorecorder, en kijk naar de gegenereerde source, dit kan je vrij eenvoudig wijzigen naar Delphi

Verwijderd

Topicstarter
Op zondag 28 juli 2002 20:10 schreef Compubiter het volgende:

[..]

:? Na vierentwintig uur mag je echt wel kicken hoor.
[..]
Dat d8 ik ook. Gelukkig is het geen Mod :)
[url="http://gathering.tweakers.net/forum/list_messages/392390/#7"]Ik krijg niet snel antwoord dus mag ik schoppen?[/url]
Zie mijn laatste post. Er is ondertussen geen relevante extra informatie bij gekomen. Dit valt dus ook niet te vermelden. Indien ik het mis heb: SORRY!
Pagina: 1