MS Excel

Téma: výpis souborů

Zaslal/a zdena 15.11.2014 9:51

Opět vás zdravím, všechny fandy Excelu.
Zároveň se na vás obracím s žádostí o radu.
Přála bych si ve VBA vytvořit program, který by vypsal přímo do řádků v Excelu výpis, případně celou cestu názvů všech programů v dané složce, a to pod sebe.
Chtěla bych si totiž k datům např.DKP, faktur a pod., přiřadit patřičný soubor jako naskenovaný dokument, pdf, dopis ve Wordu atd. Protože je v dané složce mnoho souborů, jednotlivě bych si mohla k onomu výpisu přidělit ty správné data na onen odkaz.
Děkuji za pomoc

Zaslat odpověď >

€Ł мσşqμΐτσ(15.11.2014 12:52)#022349

Co napríklad tohle

Sub hledej()
Dim i As Integer
Dim kde As String, co As String
If Cells(1, 1) <> 0 Then Columns(1).ClearContents
ChDrive "C"
kde = "C:\blabla" 'sem zadat cestu
ChDir kde
co = Dir("*.*")
i = 1
Do While co <> ""
Cells(i, 1) = kde & "\" & co
i = i + 1
co = Dir
Loop
End Subcitovat

zdena(15.11.2014 17:00)#022350

Je právě to ořechové!!!!!
Zrovna to jsem potřebovala.

Mnohokrát děkuji a doporučuji ostatním programátorům si tento prográmek stáhnout.
Jinak, KLOBOUK DOLŮ, Mr.El Mosquito
Děkuji mnohokrát

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.