• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse