Zápis makra VBA
Napsal: 09 led 2012 21:28
Prosím skúsenejších o radu pomocou:
Ukladám kopiu zošitu. Potrebujem uloženie zálohy s meniacim názvom (podľamesiacov) - teraz je natvrdo zadaný názov mesiaca.
Nemôžem zab..a prísť na zápis aby názov ťahalo z iného listu konr.: "inedata!M1" (hodnota podľa výberu comboboxu)
Prešiel som veľa tu uverejnených návodov ale žiadny u mňa nefunguje. Vďaka (office2007)
Kód: Vybrat vše
Private Sub Cmdexport1_Click()
'--------------------------------------------------
'Vytvorenie kopie aktivneho suboru do zlozky exporty
'Zlozka exporty sa vytvorí v zlozke aktivneho suboru
'---------------------------------------------------
Dim intWinCnt As Integer
Dim Win As Window
Dim strNovyNazev As String
Dim strCesta As String
Dim Fso As Object
'Kontrola, ci je aktivny nejaky zosit
'Plati pre umiestnenie v doplnku
intWinCnt = 0
For Each Win In Application.Windows
If Win.Visible Then intWinCnt = intWinCnt + 1
Next
If intWinCnt = 0 Then
MsgBox "Nie je aktívny žiadny zošit!", vbCritical
Exit Sub
End If
'Kontrola, ci je aktivny zosit uz ulozeny
If ActiveWorkbook.path = vbNullString Then
MsgBox "Súbor ešte nebol uložený!", vbCritical
Exit Sub
End If
'Vytvori novy nazov v tvare: 'export' + 'meno aktívneho súboru'
strNovyNazev = "januar" & ActiveWorkbook.Name
'Uložení v složke aktivneho suboru
strCesta = ActiveWorkbook.path & "\exporty"
'Prípadně nastavit cestu natvrdo např.: strCesta = "C:\2012\exporty
'Nebo ve složce doplňku strCesta = ThisWorkbook.Path & "exporty"
If MsgBox("Nazdar Pišta. Chceš vytvoriť kópiu súboru " & ActiveWorkbook.Name & vbCrLf & _
"do zložky " & strCesta, vbInformation + vbYesNo) = vbNo Then Exit Sub
Set Fso = CreateObject("Scripting.FileSystemObject")
'Pokud složka exporty neexistuje, tak ju vytvoríme
If Fso.FolderExists(strCesta) = False Then Fso.CreateFolder (strCesta)
'Kontrola, zda již ve složce není soubor stejného názvu
If Fso.FileExists(strCesta & "\" & strNovyNazev) Then
If MsgBox("Záloha s názvom " & strNovyNazev & " už existuje!!!" & vbCrLf & _
" Chcete ju smazať a nahradiť novou zálohou?", vbInformation + vbYesNo) = vbYes Then
Kill strCesta & "\" & strNovyNazev
Else
Set Fso = Nothing
Exit Sub
End If
End If
'Uložení kopie souboru
ActiveWorkbook.SaveCopyAs Filename:=strCesta & "\" & strNovyNazev
Set Fso = Nothing
MsgBox "Bola vytvorená záloha súboru " & ActiveWorkbook.Name & vbCrLf & _
"do zložky " & strCesta & vbCrLf & _
"s názvom " & strNovyNazev, vbInformation
End SubUkladám kopiu zošitu. Potrebujem uloženie zálohy s meniacim názvom (podľamesiacov) - teraz je natvrdo zadaný názov mesiaca.
Nemôžem zab..a prísť na zápis aby názov ťahalo z iného listu konr.: "inedata!M1" (hodnota podľa výberu comboboxu)
Prešiel som veľa tu uverejnených návodov ale žiadny u mňa nefunguje. Vďaka (office2007)
. Ešte Vás zneužijem: Dá sa tam pridať výmaz viacerých listov? (v reálnom zošite je zápis z viacerých formulárov) lebo export je pre celý zošit, po skončení zadania dát, a ostanú tam údaje ktoré už další mesiac nevyužijem len zbytočne zaberajú miesto.