MS Excel

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ěď >

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

Téma: Nalezeni a otevreni souboru v tiff

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje