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
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;
O stary, tego mi bylo trzeba =], dzieki
nie chce nic mówić ale ten kod podaję drugi raz na forum :P
Tej, a jak sformatować komórki =]
Np obramowanie dodac :P
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));
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