MS Excel

Jedna z možností jak získat data z jednoho souboru do druhého. Je potřeba samozřejmě upravit dle svých požadavků a cest.

Sub ReferToExcel()
Dim xlApp As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim x As Long, y As Long

Set xlApp = New Excel.Application
Set wb = xlApp.Workbooks.Open("C:\dokumenty_moje\pokus.xlsm")
Set ws = wb.Sheets("List1")

x = 5
y = 10

Rem --- načtené udaje budou ze sl.10 a řádku 5 Listu1 souboru pokus.xlsm ---
MsgBox "Row 5, Col 10 value=" & ws.Cells(x, y).Value
wb.Close False
Rem Quit Excel
xlApp.Quit
Set xlApp = Nothing
Set wb = Nothing
Set ws = Nothing
End Subcitovat

Je to jen ukázka jak napsat kod a jak tahat data ze "zavřeného" sešitu, je funkční. Asi jsi nenapsal nějaký svůj soubor "pokus" a neupravil cestu k souboru v kódu.
Set wb = xlApp.Workbooks.Open("C:\dokumenty_moje\pokus.xlsm")

Odkazem to samozřejmě jde, ale musíš mít sešit, ze kterého taháš data otevřený.
Pokud se tahají data z několika souborů stále ze stejného místa (není podmínkou), tak není problém.
Dej sem příklad zdrojových sešitů a cílového, kod upravím a jistě se tu objeví i jiné varianty.citovat

Já to pochopil, děkuji jsi hodný.

Tak já to napíšu konkrétně.

Mám zdrojové sešity viz příloha, které se budou naplňovat daty a potřebuji vytvořit cílový sešit, kde se tyto data budou kopírovat pod sebe ze všech zdrojových sešitů.

Tudíž bych potřeboval příkaz, který bude kopírovat ze všech zdrojových sešitů oblasti od řádku 4 vždy sloupce A:G do posledního řádku s daty. Bude je kopírovat do výsledného sešitu pod sebe, tudíž každá další zdrojová data budou kopírována vždy do prvního bezdatového řádku cílového sešitu.

Doufám, že si rozumíme, myslím, že to není ve VBA složité, ale neumím v tom programovat :(

Jsi ochotný a předem děkuji za každou radu.

http://www.uschovna.cz/zasilka/M0563EAY8W6JFD7B-JFYcitovat

Moc děkuju.citovat

Moc moc děkuju, už jsem si to vše nastavil, aby to správně načítalo.
Bere to řádky, kde je datum, tak musím všechny donutit, aby žádné datum nevynechali a bude to makat.
Ještě jednou díky ;-)citovat