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
Makro pro export dat-excel Vyřešeno
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Makro pro export dat-excel
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
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
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
Re: Makro pro export dat-excel
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 ...
Re: Makro pro export dat-excel
Zkoušel jsem to, bohužel se mi ukazuje chybové hlášení: http://img24.imageshack.us/gal.php?g=errort.png
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Makro pro export dat-excel
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: V Příloze máš dokument s upraveným makrem.
- Přílohy
-
- pc-help_2799.xls
- (23.5 KiB) Staženo 209 x
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
Re: Makro pro export dat-excel
Ještě jednou děkuju.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Excel - automatický export listů xls do pdf včetně pojmenování Příloha(y)
od kalosek » 28 čer 2023 20:31 » v Kancelářské balíky - 2
- 2124
-
od kalosek
Zobrazit poslední příspěvek
29 čer 2023 19:39
-
-
- 5
- 1215
-
od rhsCZ
Zobrazit poslední příspěvek
03 úno 2024 00:55
-
- 9
- 1177
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
- 16
- 6472
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 11
- 3415
-
od teichmann.ondrej
Zobrazit poslední příspěvek
22 dub 2024 15:45
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 30 hostů