Příspěvky uživatele
< návrat zpět
Děkuji moc za pomoc zkoušel jsem to a píše mi to chybu 9. Možná je to tím že hledám číslo a ne slovo. Je to možné. po smazání obrázků se mi podařilo to sem uložit. Můžete se na to prosím podívat??
Děkuji
Nejde mi vložit soubor protože má 320kb. tady mám jen vyhledání čísla v adresáři. tlačítko 4 by mělo vyhledat v souboru dané číslo.
Sub tlačítko3_Kliknutí()
Dim f As String
Dim Cesta As String
Dim i As Integer
Dim a As String
Cesta = "f:\CrossOrg\MC_development\BOM-zaloha\3D_modely_2015\" 'Cesta musí končit znakem '\'
a = Cells(3, 4)
ChDir Cesta
f = Dir(Cesta & a & " *.xls*")
i = 3
While f <> ""
Cells(i, 5) = f
i = i + 1
f = Dir()
Wend
Cesta = "F:\CrossOrg\MC_development\BOM-zaloha\" 'Cesta musí končit znakem '\'
a = Cells(6, 4)
ChDir Cesta
f = Dir(Cesta & a & " *.xls")
i = 6
While f <> ""
Cells(i, 5) = f
i = i + 1
f = Dir()
Wend
End Sub
Sub tlačítko4_Kliknutí()
ChDir way
c = Dir
Find b, way
End Sub
Hodnoty by se měli zapisovat do sloupce E, a je možné že bude více souborů splňovat tuto podmínku a potřeboval bych je vypsat všechny.mám zde už funkci která vyhledává číslo ve jménech v adresářích.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články