Delphi i microsoft Word i excel

0

Witam,
Jak zrobić cośtakiego, że opdczas jakiejś akcji (np wciśnięcie przycisku) uruchamia się word i Excel. I automatycznie wpisuje tam oewne dane. Byłbym Szczęśliwy jak by mi ktoś powiedział jak to zrobić. Jeśli chodzi o excela to procedura przypisania wartości do pewnej komórki byłaby mile widziana :)
W palecie servers są komponenty microsoftu, więc pewnie trzeba ich uzyc :]
Dzieki i pozdro

0

Tu masz Excela, przeniesienie danych z grida do excela

var
  xls, wb, Range: OLEVariant;
  arrData: Variant;
  Row, Col: Integer;
  i, j: Integer;
  tmp: Variant;
begin
  Row := grdRaport.RowCount;
  Col := grdRaport.Columns.Count;
  if Row > 0 then
  begin
    arrData := VarArrayCreate([1, Row, 1, Col], varVariant);
      for i := 1 to Row do
	for j := 1 to Col do
           arrData[i, j] := grdRaport.Cells[j - 1, i - 1];
  end;
  xls := CreateOLEObject('Excel.Application');
  wb := xls.WorkBooks.Add;
  Range := wb.WorkSheets[1].Range[wb.WorkSheets[1].Cells[1, 1], wb.WorkSheets[1].Cells[Row, Col]];
  Range.Value := arrData;
  xls.Visible := True;
end;
0

O stary, tego mi bylo trzeba =], dzieki

0

nie chce nic mówić ale ten kod podaję drugi raz na forum :P

0

Tej, a jak sformatować komórki =]
Np obramowanie dodac :P

0
YaQb napisał(a)

Tej, a jak sformatować komórki =]
Np obramowanie dodac :P

odpalasz excela, włączasz zapisywanie makra i formatujesz komórkę. Potem zapisujesz makro i patrzysz co się tam robi i robisz tak samo tyle, że w delphi, np

aRange := 'A1:A10'
wb.WorkSheets[1].Range[aRange].Interior.Color := ColorToRGB(RGB(255,150,150));
0

Witam generałów!

Widzę tu taki dobry chwyt z tym Excelem, a potrzebuję wykonać podobny,
więc tak:
Primo - jest plik z tabelą w xls
Secundo - chcę to mieć w postaci tekstu: linie z tabulatorami np.

Mogę to skopiować przez schowek, ale gdy wklejam to do notepada to zamiast literek mam takie serie: ??????????, dużo takich, bo to nie po polsku jest.
Ten gamoń konwertuje to do polskich kodów, i gdy litery brak to daje - ?
W XP to jest coś popsute z kodowaniem,
ten notepad nie reaguje na ustawianie kodu czcionki!

Zapis do pliku tekstowego z excela też popsuty.

Zatem, może tym ActiveX da się to zapisać jako tekst,
ale z ustawieniem odpowiedniego kodowania?

Jest gdzieś dokumentacja tych milionów funkcji do automatów z office!?

Pozdrawiam

1 użytkowników online, w tym zalogowanych: 0, gości: 1