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

Příspěvky uživatele

Ahoj,
neví náhodou někdo jak se dá pracovat s heslem uloženým jako HASH? Na internetu jsem si našel script který mi převede heslo na SHA1, ale když ho uložím do řetězce a snažím se nezHASovaným heslem odemknout sešit tak to nelze. Nefunguje to ani když heslo uložím jako string :(

Kdyby někoho něco napadlo budu rád. Díky :)

Odkaz na stránky se scriptem:
http://stackoverflow.com/questions/125785/password-hash-function-for-excel-vba

Tak o xcopy jsem nevedel :) diky za sdileni :)

Tak nakonec necekane to slo vyresit pouze pres dir() :)
Coz se mi dost ulevilo protoze ukladani do arraye jsem nepochopil :/
Pokud se nekdo alespon zamyslel nad mym problemem tak dekuju :)


Sub soubory()
Dim arr As String
Path = "C:\test"
file = Dir(Path & "*.pdf")
Do Until file = ""
arr = file
FileCopy Path & arr, "C:\test2\" & arr
file = Dir()
Loop
End Sub

Ahoj,
potreboval bych poradit jestli by nekdo nevedel :)

pouzivam funkci která mi vrací název souboru nebo adresare na zaklade casti nazvu.(funkce je níže) pouzivam ji na nalezeni souboru a pak jeho zkopirovani pres "filecopy" coz mi funguje jak má, ale potreboval bych poradit jak si vyjet seznam souboru a zkopirovat je do jine slozky.
Netusí prosím někdo? Díky :)

Function FindFilename$(FirstPart$, DirWhere$)
Dim sw1&, Filename$
Do
If sw1 = 0 Then
sw1 = 1
Filename = Dir$(DirWhere, vbDirectory)
Else
Filename = Dir$()
End If
If Filename = "" Then Exit Do
If FirstPart = Left$(Filename, Len(FirstPart)) Then
FindFilename = Filename
Exit Function
End If
Loop
'' MsgBox "Nic nenalezeno"

End Function

Super, díky za pomoc :)

Ahoj,
potřeboval bych pomoct pokud vás něco napadne :)

Ve sloupci H se bude vyplňovat počet, pak se v buňce K2 vybere ceník a klikne na vygenerovat. Tím by se měl vytvořit nový excel který by měl vypadat jako na Listu2 když vyberu Cenu B např. s tím že by šlo vybrat cenu a b c nebo d. Šlo by to nějak udělat? Mrkněte prosím na to :) Díky :)

Tak i když to určitě není zapsáno ideálně tak to ale funguje :)

Sub novy_zaznam111()
Dim posl_radek As Double
Dim soubor_zdroj As Workbook
Dim soubor As String
Dim soubor_novy As String
Dim soubor_novy2 As Double
Dim akt_cesta As String
Dim i As Double

Dim GetActiveWB As String


akt_cesta = "C:\Users\mara\Documents\Excel\Tabulka samovyplňovací\test\krycí listy"
' zjistit posledni cislo souboru
soubor = Dir(akt_cesta & "\*.xls")
i = 0
Do While soubor <> "" ' opakuje dokud existuje soubor
If soubor <> "krycí list.xls" _
And Right(soubor, 4) = ".xls" Then
i = i + 1
End If
soubor = Dir 'nacteni dalsiho souboru
Loop

soubor_novy2 = i + 1

GetActiveWB = ThisWorkbook.Path & "\krycí listy\" & soubor_novy2 & ".xls"

posl_radek = 8
ActiveSheet.Hyperlinks.Add Anchor:=Cells(posl_radek + i, 1), _
Address:=GetActiveWB

' kontrola zda "krycí list.slx" neni otevreny
Set soubor_zdroj = Nothing
On Error Resume Next
Set soubor_zdroj = Workbooks("krycí list.xls")
On Error GoTo 0
If Not soubor_zdroj Is Nothing Then ' then plati, kdyz je otevren
GoTo Pokracovat
Else ' else plati, kdyz neni otevren
Set soubor_zdroj = Nothing
Set soubor_zdroj = Workbooks.Open _
(akt_cesta & "\krycí list.xls")
End If
Pokracovat:

soubor_novy = i + 1 & ".xls"
soubor_zdroj.SaveAs Filename:=akt_cesta & "\" & soubor_novy, _
FileFormat:=xlExcel8
end sub

Tak mě nic jiného nenapadlo bohužel to musí být řešeno přes odkazy když nás má v tabulce pracovat více než jeden :( Takže když to půjde jen prosím přidej hypertextový odkaz v přehledové tabulce na vytvořený soubor.

Sub ulozit_jako_dalsi()

Dim soubor_zdroj As Workbook
Dim soubor As String
Dim soubor_novy As String
Dim akt_cesta As String
Dim i As Double

akt_cesta = "\\apache\Spol\Krycí listy"
' zjistit posledni cislo souboru
soubor = Dir(akt_cesta & "\*.xls")
i = 0
Do While soubor <> "" ' opakuje dokud existuje soubor
If soubor <> "krycí list.xls" _
And Right(soubor, 4) = ".xls" Then
i = i + 1
End If
soubor = Dir 'nacteni dalsiho souboru
Loop

' kontrola zda "krycí list.slx" neni otevreny
Set soubor_zdroj = Nothing
On Error Resume Next
Set soubor_zdroj = Workbooks("krycí list.xls")
On Error GoTo 0
If Not soubor_zdroj Is Nothing Then ' then plati, kdyz je otevren
GoTo Pokracovat
Else ' else plati, kdyz neni otevren
Set soubor_zdroj = Nothing
Set soubor_zdroj = Workbooks.Open _
(akt_cesta & "\krycí list.xls")
End If
Pokracovat:

soubor_novy = i + 1 & ".xls"
soubor_zdroj.SaveAs Filename:=akt_cesta & "\" & soubor_novy, _
FileFormat:=xlExcel8

End Sub


Zkoušel jsem script upravit "spatlat" sám ale tak jsem se do toho zamotal že jsem svůj pokus musel smazat :D

V tom případě by mi stačilo kdyby jsi mi do toho minulého přidal při vytvoření souboru link na něj do buňky A:A.
Soubory se budou vytvářet podle kontroly součtu souborů v adresáři a odkazy budu mít jako doteď předpřipravený a budu šťastný :)

Nešlo by tam přidat:
Když kolega z "jen pro čtení" vytvoří soubor a já pak dám přidat nový záznam aby ho nepřepisoval ale spíše přidal do mnou otevřené přehledové tabulky? Tím by se vše vyřešilo i to i když budeme přidávat zároveň s kolegou nové soubory kdyby se dotáhly již nalinkované soubory do tabulky. Teda pokud to jde :)

Vyhovuje :) ale bohužel jsem narazil na 2 problémy a to že když jsem v tabulce a nedám uložit tak to bere údaje z tabulky a tak se může stát že si přepíšu již vytvořené a vyplněné soubory prázdnými. Stejně tak pokud mám tabulku otevřenou a kolega si jí otevře pro čtení tak si navzájem budeme přepisovat záznamy :(

Hypertextový odkaz stačí při použítí "nový záznam" který by se odkazoval na nově vytvořený soubor ve sloupci A kde se mi propisují pořadová čísla souborů.

Samozřejmě úplně nejlepší by bylo kdybych kliknul na nový záznam a vytvořil se soubor s hypertextovým odkazem a zároveň se přidaly i odkazy z "vyplnění funkce" aby v tabulce nebyly zbytečně buňky s #ODKAZ! které odkazují na neexistují soubory. :)

Ahoj,
ještě mě napadlo, nešlo by na vytvořené excelové soubory rovnou dát do hlavní tabulky hypertextový odkaz, který bude odkazovat na tento soubor?
Buňka A8 by měla odkazovat na 1.xls A9 na 2.xls atd..

V příloze přikládám jak to vypadá.

Paráda, díky moc.

Zdravím, zkoušel jsem to macro, ale zapisuje stále jen do 8 řádku. Lepší by bylo aby byly ty buňky navzájem provázané. Kdyby se pak v těch uloženejch "šablonách" pak měnily data.

Nebo jsem přemýšlel natvrdo zapsat do buněk propojení na třeba ještě neexistující "šablony" protože budou stejně pojmenovaný 1,2,3,4, atd. Ale problém je, že excel nepozná že potřebuju protáhnout tyto odkazy abych je nemusel psát po 1.
např: =[1.xls]List1!$K$4 a další aby bylo =[2.xls]List1!$K$4 a další =[3.xls]List1!$K$4 atd.
Bohužel nevím jak excelu vysvětlit aby mi tuhle posloupnost udělal...

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse