Je to pomerne snadne, jen musite presne vedet, kde se nachazi a jak se jmenuje soubor, ktery chcete prejmenovat a kde se ma nachazet a jak se bude jmenovat.
Jde tedy o to definovat Puvodni (cestu a jmeno) a Novy (cestu a jmeno) soubor, viz nasledujici kod.
Sub ReName()
Dim Puvodni As String
Dim Novy As String
Puvodni = "C:\Documents and Settings\POKI\Plocha\Volley-ases2011.pdf"
Novy = "C:\Documents and Settings\POKI\Plocha\" & Range("a1") & "_" & Range("b1") & "_" & Range("c1") & ".pdf"
Name Puvodni As Novy
End Subcitovat
Jde tedy o to definovat Puvodni (cestu a jmeno) a Novy (cestu a jmeno) soubor, viz nasledujici kod.
Sub ReName()
Dim Puvodni As String
Dim Novy As String
Puvodni = "C:\Documents and Settings\POKI\Plocha\Volley-ases2011.pdf"
Novy = "C:\Documents and Settings\POKI\Plocha\" & Range("a1") & "_" & Range("b1") & "_" & Range("c1") & ".pdf"
Name Puvodni As Novy
End Subcitovat
6223_makra.txt.txt
RSS nejnovější články