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

MS Excel

Téma: Nalezeni a otevreni souboru v tiff

Zaslal/a undulus 11.1.2017 19:12

Ahoj,
Chtěl bych poprosit o pomoc s vba kodem:
Ve složce najit soubor, který má v názvu na pátém znaku např číslo 6 a ten otevřít, jedná se o obrázek v tiffu.
Dík

Jméno
Kontrola
Text
	Ukázka

---

Jeza.m(12.1.2017 11:20)#034449

Např.


Public Sub NAJDI(text, pozice)

Dim soubor As Variant
Dim slozka As String

slozka = ThisWorkbook.Path & "\"
soubor = Dir(slozka)
Do While soubor <> ""
If Mid(soubor, pozice, Len(text)) = text Then Exit Do
soubor = Dir
Loop

If soubor <> "" Then
ThisWorkbook.FollowHyperlink slozka & soubor
Else
MsgBox "Nenalezeno"
End If

End Sub

a to pak zavolat s volitelnými parametry ...
Public Sub VOLEJ()
NAJDI "6", 5
End Sub


M@citovat

eLCHa(12.1.2017 12:41)#034450

Jen dodám, že k nalezení souboru by mělo stačit něco takovéhosFile = Dir(sDir & "????6*.tiff")Cyklus je potřeba pro kontrolu, zda se nevyskytuje vícekrát - pak nabídnout výběr.citovat

Jeza.m(12.1.2017 13:49)#034453

@ eLCHa: Člověk se pořád dovídá něco nového :-)

Public Sub NAJDI(text, pozice)
slozka = ThisWorkbook.Path & "\"
soubor = Dir(ThisWorkbook.Path & "\" & String$(pozice - 1, "?") & text & "*.tif")

If soubor <> "" Then
ThisWorkbook.FollowHyperlink slozka & soubor
Else
MsgBox "Nenalezeno"
End If
End Sub

M@citovat

marjankaj(12.1.2017 15:02)#034456

No ja by som to hľadal Total Comanderom. Načo vymýšľať koleso?citovat

eLCHa(12.1.2017 15:33)#034457

@marjankaj
Možná. Ale v zadání je VBA. A otevírat soubor pomocí VBA přes TC - trochu zbytečné ;)).citovat

marjankaj(12.1.2017 15:51)#034458

@eLCHa
Samozrejme to ide aj vo VBA. Ale pozerať si fotečky cez excel a VBA mi príde trochu "extravagantné".citovat

Jeza.m(12.1.2017 16:44)#034459

@marjankaj: Třeba jde o databázi nějakých položek, ke kterým jsou ve složce uloženy obrázky pojmenované nějakým klíčem a přes VBA chce autor otevřít obrázek (výkres) dané položky, což mi nepřijde "extravagantné" :-).
Ale to už ví autor nejlépe sám co je cílemcitovat

marjankaj(12.1.2017 16:50)#034460

@Jeza
Ja som iba napísal, ako by som to ja hľadal.
Z popisu zadania nie je jasné z akého dôvodu to chce vo VBA. Iba že to chce nájsť a otvoriť.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse