< návrat zpět

MS Excel


Téma: Vytvoření jedné databáze z více excel souborů rss

Zaslal/a 5.8.2022 14:25

Dobrý den,

prosím o radu, nefunguje mi odkaz cesta, i když mám soubor uložen na HDD na noteboku. Dříve to fungovalo.

1.Mám soubor Souhrn03 a do listu JmenaSouboru

2.po kliknutí na tlačítko, se mají vypsat do jednoho sloupce názvy souborů, které jsme obsaženy v adresáři DATA

3.Hned potom se jednotlivé soubory otevřou data z těchto souborů se překopírují v určitém pořadí do listu DataSouboru a to v danném pořadí do sloupců.

Při znovu oprášení souboru už nefungují cesty a celé jeto asi nějak nakoplé viz foto. Prosím o pomoc.

Děkuji.
OB

Příloha: zip53081_souhrn03.zip (239kB, staženo 16x)
Zaslat odpověď >

Strana:  « předchozí  1 2
#053130
avatar
Nově budu nahrávat pouze soubory začínající 64..... a z nich pak čerpat data. Ty staré soubory začínající 333.... v adresáři DATA nebudou, aŤ se do souboru Souhrn04 stahují pouze data ze souborů začínající 64..... do listu JmenaSouboru a pak dále data do listu DataSouboru. 9

OBcitovat
#053131
elninoslov
Tá verzia s pomocou ADO, čo som poslal ako poslednú, funguje či nie? Skúšal ste? Je mnohonásobne rýchlejšia ako táto Open. Neporovnateľne. Chcete naozaj použiť túto Open metódu?citovat
#053132
avatar
ADO jsem teĎ zkusil a je vyhazuje to chybu:
wsJmena.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(pj).Value = Application.Transpose(aJmena)citovat
#053133
avatar
Děkuji za práci...Budu pracovat se souborem, když vypnu OneDrive.
Spíš jak nově navézt cesty ze souborů začínající 64....

Díky.citovat
#053134
elninoslov
V tom prípade máte zlú cestu, alebo tam nie sú súbory "*.xls". Ten riadok zmeňte na
If pj = 0 Then
MsgBox "Žádné soubory v adresáři:" & vbNewLine & Cesta, vbExclamation
Else
wsJmena.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(pj).Value = Application.Transpose(aJmena)
End If
citovat
#053136
elninoslov
Skúšate Vy vôbec tie moje súbory? Veď teraz ste mi poslal ako vzor v souhrn04 to Vaše pôvodné makro, neupravené, nefunkčné...
Tu máte upravené obe verzie aj 03, aj 04 (s výberom len 641* súborov).
Příloha: zip53136_souhrn03ado04ado.zip (65kB, staženo 11x)
citovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09