» Poradna » Programy

Nacteni dat z Excel souboru pres VB

Odpovědět  |  Zobrazit bez stromu  |  Upozornit redakci  |  nových odpovědí: 3/3
 |   |   |  [194.108.138.---]

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

 |   |   |  [212.47.30.---]

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
 |   |   |  [212.47.30.---]

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
 |   |   |  [194.108.138.---]

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


USB-C je konektor, který by chtěl vládnout všem

USB-C je konektor, který by chtěl vládnout všem

** USB-C se tváří jako nejuniverzálnější konektor všech dob ** Pravda je to však jen z části ** Při výběru příslušenství s USB-C dobře studujte parametry

20.  1.  2018 | Stanislav Janů | 59

Přechod z Windows na macOS: Co vás čeká a nemine

Přechod z Windows na macOS: Co vás čeká a nemine

** 5 kroků, které vás čekají, když se rozhodnete přejít z Windows na počítač značky Apple se systémem macOS ** macOS umí přenést data z počítače s Windows ** Při přechodu si budete zvykat na nové funkce a chování systému

17.  1.  2018 | Stanislav Janů | 148


Aktuální číslo časopisu Computer

Zachraňte nefunkční Windows

Jak nakupovat a prodávat kryptoměny

Otestovali jsme konvertibilní notebooky

Velký test 14 herních myší