» Poradna » Programy

Nacteni dat z Excel souboru pres VB

 |   |   |  [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


Aktuální číslo časopisu Computer

Jak rychlé je nabíjení bez drátů?

Test 11 sluchátek pro hráče

Aplikace, které vám zachrání dovolenou

Kompletní přehled datových tarifů