Odczyt danych z komórki EXCELA

[Corvis]

na tą chwilę uruchomiłem ten mechanizm, umiem odpalić excela pokazać go schować itp. Teraz muszę doczytać jak podpiąć się do otwartego pliku i odczytać wartość z komórki. Mam nadzieję, że tak się da. Bardzo ciekawe te Ole Automaticon

[polymorphism]

Użyj GetActiveObject zamiast CoCreateInstance. Funkcja ta zwróci obiekt IUnknown, z którego za pomocą metody QueryInterface wyciągniesz instancję obiektu IDispatch.

[Cyfrowy Baron]

Ponieważ korzystasz ze środowiska Embarcadero RAD Studio 2010 proponuję wykorzystać dostępne tam biblioteki z palety OfficeXP lub Office2000 zależy które włączyłeś, gdyż można tylko jedne.

► włączenie bibliotek Office XP lub 2000 

---

officexp.png

---

Gdy komponenty masz już włączone wrzuć na formularz komponent TExcelApplication (w przykładzie exApp1). Potem wystarczy już tylko taki prosty kod:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 exApp1->Connect(); // podłącza do otwartego programu Excel

 VARIANT vrText;
 Variant vr = "A1";   // określa komórkę z której będzie pobierana wartość

 // pobiera wartość z zakresu vr:vr, czyli A1:A1
 vrText = exApp1->Range[vr, vr]->get_Text();

 Edit1->Text = vrText.bstrVal; // przepisanie pobranej wartości do pola Edit1

 exApp1->Disconnect(); // rozłączenie
}

Ten kod pozwala pobrać tekst z aktywnego okna programu Excel i nieistotne jest przy tym, czy zawartość okna jest zapisana, czy też nie.

[Corvis]

Wielki dzięki !!!!!!!!!!!!!!!!! Śmiga aż miło, Poco oni schowali te komponenty hehehehe

[Cyfrowy Baron]

Wykorzystując zdarzenie OnSheetChange komponentu TExcelApplication można zautomatyzować pobieranie zawartości komórki z tabeli Excel'a.

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 if(FindWindow("XLMAIN", 0) == NULL) return; // przerywa jeżeli Excel nie jest uruchomiony

 exApp1->Connect(); // podłącza do otwartego programu Excel

 VARIANT vrText;
 Variant vr = "A1";   // określa komórkę z której bedize pobierana wartość

 // pobiera wartość z zakresu vr:vr, czyli A1:A1
 vrText = exApp1-> Range[vr, vr]->get_Text();

 Edit1->Text = vrText.bstrVal; // przepisanie pobranej wartości do pola Edit1
}
//---------------------------------------------------------------------------
void __fastcall TForm1::exApp1SheetChange(TObject *Sender, LPDISPATCH Sh,
                        ExcelRange *Target)

{
  Variant vr = "A1";
  Edit1->Text = VARIANT( Target->get_Range(vr, vr)->get_Text() ).bstrVal;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
 exApp1->Disconnect(); // rozłączenie
}

W ten sposób jeżeli zmieni się zawartość komórki to program automatycznie pobierze nową zawartość, bez konieczności stosowania pętli czy też Timer'ów.

Kod nie jest bezpieczny, dodałem do niego co prawda funkcje sprawdzającą, czy Excel jest uruchomiony, ale jeżeli w trakcie działania programu Excel zostanie zamknięty to program może wyrzucić błędy. Zdarzenie OnSheetChange jest jednak bezpieczne, gdyż reaguje ono tylko na zmiany w tabeli programu Excel.

Do środowiska nie dołączono dokumentacji dla tych bibliotek, a w sieci trudno znaleźć coś dobrze opracowanego.

[Corvis]

Wielkie dzięki,


Spróbuj u siebie zrobić projekt przenoszony na inne komputery. ( DynamicRTL i RUNTIMEPACKAGE) jak to wyłącze - u mnie nie da się skompilowac projektu mam błąd linkera.

[ILINK32 Error] Fatal: Unable to open file 'EXCEL_XP_SRVR.OBJ'

Pozdrawiam,

Ps. W razie czego odpisze dopiero we wtorek bo wyjeżdżam

[Cyfrowy Baron]

Ja wszystkie projekty domyślnie tworzę z opcję Dynamic RTL = False i odznaczonym Build with runtime packages, więc mogę je dowolnie przenosić między komputerami.
Jeżeli masz z tym problem to może być Bug środowiska i powinieneś pobrać i zainstalować aktualizacje, u mnie patche rozwiązały wiele problemów.

Aktualnie posiadam wersję:

Embarcadero® C++Builder® 2010 Version 14.0.3593.25826 Delphi and C++Builder 2010 Update 5 (Databaze Pack) Delphi and C++Builder 2010 Update 4 C++Builder 2010 Boost Update

---

Może mieć to również związek z tym, iż programujesz w systemie Vista. Czy nie czas zainstalować poprawionej Visty, czyli Windows 7?!

---

Sprawdź również, czy w pliku źródłowym pod sekcją include masz wpis:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

#pragma link "Excel_XP_srvr"

oraz czy w pliku nagłówkowym masz włączone biblioteki:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

#include "Excel_XP_srvr.h"
#include <OleServer.hpp>

[Corvis]

Mam wszystko wgrane + dopisane wszystko to co napisałeś. Po zrobieniu projektu dodaniu komponentu TExcelApplication i wciśnięciu F9 mam to co w screenie.

[Cyfrowy Baron]

Pewnie masz coś źle poustawiane w środowisku, więc musisz poprzez menu Project Add to project włączyć bibliotekę: bcbofficexp.lib (lokalizacja: C:\Program Files\Embarcadero\RAD Studio\7.0\lib\release).
Jeżeli nie masz tej biblioteki to źle zainstalowałeś komponenty OfficeXP.

[Corvis]

Niestety nie mam jej.

Chyba faktycznie muszę przeinstalować buildera, ale wydaje mi się, że wszystko instalowalem.

[Cyfrowy Baron]

W trakcie instalacji tego środowiska trzeba wybrać której wersji MS Office będziesz używał, a po zainstalowaniu trzeba te komponenty włączyć. Jeżeli w trakcie instalacji tego nie zrobiłeś, to nie musisz tego od razu instalować od początku, gdyż masz skrót Modify, Repair, Uninstall.

[Corvis]

W trakcie instalacji tego środowiska trzeba wybrać której wersji MS Office będziesz używał

Wyszło tak, że musiałem zrobić format. Wgrywając Buildera od nowa nie widziałem takiej możliwości. Zaznaczyłem wszystkie komponenty do zainstalowania.


EDIT:

Po Formacie i przeinstalowaniu tego dalej nie mam tej biblioteki. Może ktoś ją udostępnić ???

[Corvis]

DZIAŁA !!!!!!!!!!!!!!!!!!!!!!!!!!! o to chodziło dodałem tego liba i wszystko OK uffff


WIELKIE DZIĘKI

[bigrom]

Witam,
A jak jest z kompatybilnością komponentu Excel XP z nowy pakietem Office 2010 czy to działa ?
Bo przy próbach na dwóch kompilatorach wyskakuje błąd:

--------------------------- HRCHECK: --------------------------- (GetDefaultInterface()->get_Range(Cell1, Cell2, (Excel_xp::ExcelRange**)&RHS)) Error: 800A03EC (-2146827284) @ Excel_XP_srvr.cpp/1807 Press [Y]es to terminate, [N]o to continue and [C]ancel to Debug --------------------------- Tak Nie Anuluj ---------------------------

Dzięki za odpowiedź.

[Cyfrowy Baron]

Mało prawdopodobne by zadziałało. Nie bez powodu w środowisku Embarcadero RAD Studio 2010 przy instalacji jest opcja wyboru odpowiedniej wersji bibliotek pomiędzy Office 2000 Server, a Office XP Server. Trzeba chyba uzupełnić środowisko o nowszą wersję bibliotek (o ile istnieją). Przy czym niezgodność dotyczy chyba dopiero MS Office 2007 i 2010, gdyż przeprowadzałem testy z bibliotekami Office XP Server dla pakietu MS Office 2003 i nie było żadnych problemów.