🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.vbasic
Article #104812

Re: VB6 - odczyt z Excela

#104812
From: Emeryt
Date: Sun, 03 Apr 2011 06:47
43 lines
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-mail
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>

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