Makro pro export dat-excel Vyřešeno

[Dieesels]

Ciao,
Mám poslední dotaz, potřebuju makro, které mi exportuje data. To znamená, že mám např. dva listy, na Listu1 mám určité hodnoty, které jsem si upravil podle svých potřeb a vložil tyto hodnoty do Listu2. Následně pomocí tlačítka exportuju tyto data (List2), kde ještě před uložením zvolím název. Tedy do něco.csv
Děkuji za pomoc

[Reklama]

[mike007]

Tak prosím:

Sub export_dat()
Dim cesta As String
Application.ScreenUpdating = False
'box pro zadání názvu CSV dokumentu pro export
nazev = InputBox("Zadej název souboru", "N Á Z E V")
'pokud nezadáme název, makro skončí
If nazev = "" Then Exit Sub
'vybereme záložku k exportu - List2
Sheets("List2").Copy
'pokud soubor s takovým názvem již existuje, smažeme ho
If FileExists(nazev) Then
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile (nazev)
End If
'soubor se uloží vedle dokumentu ze kterého exportujeme
cesta = ThisWorkbook.Path & "\" & nazev & ".csv"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=nazev, FileFormat:=xlCSV, _
CreateBackup:=False
ActiveWindow.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
' jen potvrzení, že vše proběhlo v pořádku
MsgBox "Export do CSV byl úspěšně proveden", vbOKOnly, "H O T O V O"
End Sub

[X]

mike007: Když přece ve 3. řádku zakážeš vykreslování, tak ani v 5. řádku nic nezadáš ... abych nekecal, tak jsem to i otestoval v Excelu 2003 ...

[Dieesels]

Zkoušel jsem to, bohužel se mi ukazuje chybové hlášení: http://img24.imageshack.us/gal.php?g=errort.png

[mike007]

X: Myslím si, že je to celkem jedno. Inputbox ti vyskočí i ve vypnutém updatingu.

Dieesels: V Příloze máš dokument s upraveným makrem.

[Dieesels]

Ještě jednou děkuju.