Article View: pl.comp.lang.vbasic
Article #104812Re: VB6 - odczyt z Excela
From: Emeryt
Date: Sun, 03 Apr 2011 06:47
Date: Sun, 03 Apr 2011 06:47
43 lines
2874 bytes
2874 bytes
Użytkownik "piosad" <piosad@o2.pl> napisał w wiadomości
news:in7pea$fjs$1@news.task.gda.pl...
> On 2011-04-01 08:12, Emeryt wrote:
>> http://www.planet-source-code.com/vb/default.asp?lngWId=1
>
> Jest tam kupa przykładów ale takiego, który odczytuje wartości z arkusza
> excela za pomocą kontrolki data nie znalazłem.
> Może źle szukam :(.
Pewnie że źle szukasz.
Na stronie planet-source-code:
W pole Search Term.. wpisz: Data Control Excel
Kliknij przycisk Search i wyswietla sie 26 przykładów (działających).
Możesz też tak:
- Otwórz nowy projekt w VB
- W menu Project, Components zaznacz Microsoft Data Bound Grid Control 5.0
- Kliknij Zastosuj i OK
- Z przybornika z lewej strony wprowadź na forme:
- kontrolke DBGrid
- kontrolke Data
DBGrid rozwiń na formie tak aby była duża ( w niej bedą wyświetlane rekordy
Excela)
Pod nią rozwiń na całą szrokość kontrolke Data.
We właściwościach kontrolki Data (właściwości z prawej strony projektu)
poszukaj pole Connect i z rozwijanej listy wybierz Excel 8.0
W polu poniżej DatabaseName wprowadż scieżkę do pliku xls (np: c:\Moje
Dokumenty\Plik.xls)
Jeżeli wprowadziłeś poprawnie scieżke do pliku, to gdy klikniesz we
właściwościach pole RecordSource to wyswietlają się nazwy rekordsetów w
pliku Excela. Wybierz jeden z nich (ten który chcesz wyświetlać)
Kliknij na DBGrid i w jego własciwościach DataSource wprowadź Data1.
Uruchom projekt (klawisz F5).
Jak widzisz w kontrolce DBGrid wyswietlają sie dane z Excela (bez jednej
lini kodu!!!)
Oczywiście wszystko to możesz zrobic w kodzie zamiast graficznie.
Możesz też użyć kontrolki ADO i DataGrid (wskazane). To połączenie jest
bardziej zaawansowane.
Pozdr
Technical Details
Message-ID:
<in953j$390$1@news.onet.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!.POSTED!not-for-mailReferences:
<imvrrv$nmr$1@news.task.gda.pl> <in16vq$nlq$1@news.onet.pl> <in2la6$fnq$1@news.task.gda.pl> <in3rvj$i7u$1@news.onet.pl> <in7pea$fjs$1@news.task.gda.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!.POSTED!not-for-mail From: "Emeryt" <wiewro@poczta.onet.pl> Newsgroups: pl.comp.lang.vbasic Subject: Re: VB6 - odczyt z Excela Date: Sun, 3 Apr 2011 08:47:05 +0200 Organization: http://onet.pl Lines: 45 Message-ID: <in953j$390$1@news.onet.pl> References: <imvrrv$nmr$1@news.task.gda.pl> <in16vq$nlq$1@news.onet.pl> <in2la6$fnq$1@news.task.gda.pl> <in3rvj$i7u$1@news.onet.pl> <in7pea$fjs$1@news.task.gda.pl> NNTP-Posting-Host: 94-po3-5.acn.waw.pl X-Trace: news.onet.pl 1301813172 3360 213.134.187.94 (3 Apr 2011 06:46:12 GMT) X-Complaints-To: niusy@onet.pl NNTP-Posting-Date: Sun, 3 Apr 2011 06:46:12 +0000 (UTC) X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2900.5931 X-RFC2646: Format=Flowed; Response X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.5994 X-Antivirus: avast! (VPS 110402-1, 2011-04-02), Outbound message X-Antivirus-Status: Clean MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit