MS Excel

Téma: Prosim o radu s makrem

Zaslal/a Michal-Belohlav 5.1.2013 17:26

Prosim o radu s makrem:

********************************************
Sub HODNOTA()
Dim Path As String
Dim i As Long

Path = Range("A1").Value

For i = 5 To 500

Cells(i, 2).Formula = "='" & Path & "[" & Format(i - 3, "0000") & ".xlsb]T'!$DD$20"
Cells(i, 3).Formula = "='" & Path & "[" & Format(i - 3, "0000") & ".xlsb]T'!$DD$21"

Next i
End Sub
********************************************
Makro načítá hodnoty z .xlsb z buněk DD20 a DD21, dle adresy složky z buňky A1

Potřeboval bych však poradit, jak určit rozsah buněk(řádků), kde má makro začít vyplňovat? Makro vyplňuje od řádku č. 5 a soubory od 0002.xlsb. Např. když buňky DD20 a DD21 chci mít v řádcích 5:405 a DE20 a DE21 v řádcích 600:1005?

Jak zároveň určit rozsah souborů ze složky? Např. když bych chtěl soubory 0001.xlsb - 3000.xlsb?Jak by makro vypadalo?

Předem všem děkuji za radu a čas.

Zaslat odpověď >

Milan-D(5.1.2013 20:20)#010859

Prvni casti zadani nerozumim.
Druhou cast najdes treba zde:
http://wall.cz/index.php?m=topic&id=9716#post-9733citovat

Jeza.m(6.1.2013 19:57)#010885

Asi by to chtělo přiložit ten načítací soubor a pak třeba 2 zdrojové. Pokud jde o 3000 souborů, tak bych to určitě neřešil propojovacím vzorcem, ale vyplněním hodnot.
Makro může smyčkou postupně otevřít všechny xlsb soubor v dané složce, z těchto vzít hodnoty a zapsat je do načítacího souboru tak jak je třeba a každý soubor po sobě zase zavřít.

M@citovat

Milan-D(6.1.2013 20:27)#010886

Ty propojovaci vzorce nemusi byt zas tak spatne. Jejich vyhodou je, ze to jde jaksi naprimo, aniz se ten zdrojovy soubor musi otevirat. Mozna, ze pokud by se jednalo o kvantum zdrojovych souboru, tak by to treba mohlo byt i rychlejsi, nez otevirani a zavirani sesitu. Ale to je jenom takova spekulace, zajimalo by mne jak to je doopravdy.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.