» Poradna » Programy

Nacteni dat z Excel souboru pres VB

 |   | 

Dobry den, poradite mi nekdo jak nacist ve VB data z Excel souboru? Konkretne bych to potreboval tak, ze procedura by se podivala napr. do souboru "C:\test.xls" na List1 a bunku A1 a ulozila hodnotu z ni do nejake promenne. Diky za pripadne rady.

Odpovědi na otázku

 |   | 

Ano lze to.
Nejprve musíš v projektu zpřístupnit příslušnou Excelovou knihovnu(samozřejmě můžeš mít jinou verzi): excel8.olb
(celý název Microsoft Excel 8.0 Object Library)nachází se v adresáři, kde Office instalován.

Potom nadefinuješ proměnné:
Public xlApp As Excel.Application, xlBook As Excel.Workbook, xlSheet As Excel.Worksheet
....
A začneš otevírat:
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open()
Set xlSheet = xlBook.Worksheets()
...
Práce s buňkou (jsou i jiné možnosti):
xlSheet.Range("A1").Cells =
nebo
= xlSheet.Range("A1").Cells
...
Nakonec uzavření:
xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Koukám, že to něco málo vynechalo:
Takže má být:
Set xlBook = xlApp.Workbooks.Open("jmeno_souboru")
Set xlSheet = xlBook.Worksheets("jmeno_listu")
....
xlSheet.Range("A1").Cells = promenna
nebo
promenna = xlSheet.Range("A1").Cells

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Dekuji moc za radu, vyzkousim to...

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Procedura




Určitě si přečtěte

Porno insider: Jak Greg Lansky mění internet pro dospělé

Porno insider: Jak Greg Lansky mění internet pro dospělé

** Erotický obsah generoval ohromné peníze, pak ale přišel internet... ** Pornografie dostupná všude a zdarma uvedla tvůrce do krize ** Někteří ale dokázali potenciál internetu využít i v tomto oboru

Jan Dudek | 12

Američtí mariňáci si tisknou kasárna z betonu na 3D tiskárně

Američtí mariňáci si tisknou kasárna z betonu na 3D tiskárně

** Americká námořní pěchota nedávno představila 3D tištěná kasárna pro vojáky ** Ty jim tiskne velká 3D tiskárna na beton ** Výsledkem je solidní obytný prostor, který je slušně chráněný před nepřátelskou palbou

Stanislav Mihulka | 18

Podívejte se, co se stane, když dron DJI Phantom narazí do křídla letadla

Podívejte se, co se stane, když dron DJI Phantom narazí do křídla letadla

** Co se může stát, když relativně maličký dron narazí do křídla letadla? ** Tuto otázku zodpověděli odborníci laboratorním pokusem ** Kvadrokoptéra způsobila významné poškození křídla

Karel Kilián | 19


Aktuální číslo časopisu Computer

Jak vytvořit a spravovat vlastní web

Velký test herních klávesnic a DVB-T2 tunerů

Vše o formátu RAW

Vybíráme nejlepší základní desku