MS Excel

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

Zaslal/a OB 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: zip

53081_souhrn03.zip (239kB, staženo 17x)

Zaslat odpověď >

Strana: « předchozí 1 2

OB(10.8.2022 14:28)#053130

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.

OBcitovat

elninoslov(10.8.2022 14:32)#053131

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

OB(10.8.2022 14:36)#053132

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

OB(10.8.2022 14:40)#053133

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

elninoslov(10.8.2022 14:56)#053134

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 Ifcitovat

elninoslov(10.8.2022 15:59)#053136

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: zip

53136_souhrn03ado04ado.zip (65kB, staženo 11x)

citovat

Strana: « předchozí 1 2

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.