< 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 s polem

lopi007 • 18.1. 23:21

vyhonocení dat z nekolika souborů

fasd39 • 18.1. 14:08

První písmeno ve větě velké ostatní malá

elninoslov • 18.1. 12:59

První písmeno ve větě velké ostatní malá

JAK • 18.1. 10:01

První písmeno ve větě velké ostatní malá

Vovka • 18.1. 9:58

První písmeno ve větě velké ostatní malá

JAK • 18.1. 9:28

odkaz na vyhledanou buňku

bedha • 18.1. 9:18