< návrat zpět

MS Excel


Téma: Nalezeni a otevreni souboru v tiff rss

Zaslal/a 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

Zaslat odpověď >

#034449
avatar
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
icon #034450
eLCHa
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
#034453
avatar
@ 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
#034456
avatar
No ja by som to hľadal Total Comanderom. Načo vymýšľať koleso?citovat
icon #034457
eLCHa
@marjankaj
Možná. Ale v zadání je VBA. A otevírat soubor pomocí VBA přes TC - trochu zbytečné ;)).citovat
#034458
avatar
@eLCHa
Samozrejme to ide aj vo VBA. Ale pozerať si fotečky cez excel a VBA mi príde trochu "extravagantné".citovat
#034459
avatar
@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
#034460
avatar
@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)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse

Práce se dny mezi dvěma daty

elninoslov • 22.11. 19:09

Práce se dny mezi dvěma daty

spider-x • 22.11. 17:17

Application.Ontime

Pavlus • 22.11. 17:10

Application.Ontime

Dejwing • 22.11. 16:44

kopirovanie podla vybraneho mesiaca

misocko • 22.11. 16:02

kopirovanie podla vybraneho mesiaca

veny • 22.11. 15:53

kopirovanie podla vybraneho mesiaca

misocko • 22.11. 15:44