» 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

Apple dal do MacBooku procesor Core i9 a 4TB SSD. Ani se neptejte, co za to chce...

Apple dal do MacBooku procesor Core i9 a 4TB SSD. Ani se neptejte, co za to chce...

** Apple aktualizoval notebooky MacBook Pro, dostaly nový hardware ** Těšit se můžete na nové procesory a větší paměť ** Cena nejvybavenějšího modelu překročí 200 tisíc korun

Martin Miksa | 99

Nová zbraň Microsoftu proti iPadu: Levný tablet Surface Go bude stát jen deset tisíc

Nová zbraň Microsoftu proti iPadu: Levný tablet Surface Go bude stát jen deset tisíc

** Microsoft představil nový tablet Surface Go ** Nový model zaujme nízkou cenou, ale schopnostmi zařízení Surface ** Microsoft nepoužil čip ARM, ale klasický procesor od Intelu 

Karel Javůrek | 116

Šmírovačka kamerami Googlu: Koukněte se, co nového zachytily na Street View

Šmírovačka kamerami Googlu: Koukněte se, co nového zachytily na Street View

Google stále fotí celý svět do své služby Street View. A novodobou zábavou je hledat v mapách Googlu vtipné záběry. Podívejte se na výběr nejlepších!

redakce | 44

Porno insider: Jak virtuální realita vstupuje do filmů pro dospělé

Porno insider: Jak virtuální realita vstupuje do filmů pro dospělé

** Pornografie údajně představuje třetinu internetové obsahu a je technologický tahounem ** Do erotického obsahu postupně zasahuje i virtuální realita ** Kromě vizuálního vjemu se pracuje také na virtuálním uspokojení toho hmatového

Jan Dudek | 28

Takhle zemřete, když asteroid dopadne na vaše město

Takhle zemřete, když asteroid dopadne na vaše město

** Jak by to dopadlo, kdyby na světovou metropoli či do nedalekého moře dopadl velký asteroid? ** Simulovali to odborníci z University of Southampton ** Výsledky jsou velmi zajímavé

Petr Kubala | 32

15 věcí, které umí Windows 10, ale možná o nich vůbec nevíte

15 věcí, které umí Windows 10, ale možná o nich vůbec nevíte

** Systém Windows 10 umí spoustu užitečných drobností ** O mnoha praktických funkcích pravděpodobně ani nevíte ** Poznejte užitečné tipy, které se vám mohou hodit každý den

Vladislav Kluska | 36


Aktuální číslo časopisu Computer

Velký test 18 bezdrátových sluchátek

Vše o přechodu na DVB-T2

Procesory AMD opět porážejí Intel

7 NVMe M.2 SSD v přímém souboji