Přeskočit navigaci | Přeskočit na novinky
     

Jste zde: Úvodní stránka » excel » vba-tahak » Tahak-Excel-VBA-soubory-sesit
Microsoft Excel logo

Tahák Excel VBA - Soubory a Sešit

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Tahák jak na práce se soubory (složkou) a sešitem.

Úvodem k taháku Excel VBA

Rozpracovaná verze podkladů pro vytvoření taháku pomahajícímu při práci s VBA Excel týkající se souboru, složek, sešitů. Budu rád za tipy na vylepšení. Další díly taháku postupně zveřejním jen co je dostanu do mírně publikovatelné podoby:

Pdf ke stažení

Soubor Tahák Excel VBA - soubory složky ke stažení zdarma.

Obrázek

Jak vypadá první verze taháku.

Excel VBA - tahák - soubory, složky

Související odkazy

Další související díly taháku

  • Formuláře ....

Surová data

Pokud si bude někdo chtít vytvořit tahák vlastní:

Sešit Workbook Workbooks("MujSesit.xls") konkretní ThisWorkbook tento ActiveWorkbook aktivní Kde se soubor nachází >> JmenoSouboru = ThisWorkbook.Name CestaAdresare = ThisWorkbook.Path CelaCesta = ThisWorkbook.FullName Rozděl název >> NazevSoubor = ThisWorkbook.Name pomucka = Split(NazevSoubor, ".") SouborJmeno = pomucka(0) SouborTyp = pomucka(1) Existuje soubor >> Praktická ukázka Kontroluji = "D:/Sešit1.xlsm" If Dir(Kontroluji) <> "" Then MsgBox ("Existuje.") Else MsgBox "Nexistuje." End If Vypsat soubory z adresáře >> ChDrive "C:\" ChDir "C:\data\" SouboryKtere = Dir("*.*") i = 1 Do While SouboryKtere <> "" Cells(i + 5, 5).Value = SouboryKtere SouboryKtere = Dir i = i + 1 Loop

Práce s diskem / složkou

ChDrive "C:\" změna disku ChDir "C:\A" změna složky adresáře MkDir tvorba adresáře RmDir odstranění adresáře CurDir aktuální adresář Otvírat xlsx Open File Workbooks.Open Filename:=”File_Name Workbooks.Open “File_Name” Workbooks.Open "C:\WorkbookName.xls" Dim wkb As Workbook Set wkb = Workbooks.Open("C:\Name.xls") Dim Filename As String Filename = "C:\Abc.xslx" Dim wb As Workbook Set wb = Workbooks.Open(Filename:=Filename, _ Password:="123") Otvírat csv Open csv Adresar = ThisWorkbook.Path Workbooks.Open _ Filename:=Adresar & "\csv.csv" Workbooks.Open _ Filename:=Adresar & "\csv.csv", _ Local:=True Dialogové okno a načtení soubor FileToOpen = Application.GetOpenFilename _ (Title:="Vyberte soubor pro otevření", _ FileFilter:="Excel Files *.xls* (*.xls*),") If FileToOpen = False Then MsgBox "Nevybráno." Exit Sub Else Workbooks.Open Filename:=strFileToOpen End If Ukládání sešitů ActiveWorkbook.Close SaveChanges:=True ActiveWorkbook.SaveAs Filename:="D:\test\test.xlsm", Password:= "aaa" ActiveWorkbook.SaveCopyAs Filename:="D:\smaz\muj2.xlsm" Workbooks("Book2").Worksheets("Sheet1").Range("A1").Value = 100 Uložit do pdfka Save as pdf ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="D:\smaz\test.pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True Zavírat soubor - Close File ActiveWorkbook.Close ActiveWorkbook.Close _ SaveChanges:=True Delete file - Smazat soubor Kill "d:\smaz\muj.pdf" Přejmenovat Name "C:\A\File 1.xlsx" As "C:\A\File 2.xlsx" Přesunout Velikost souboru FileLen("C:\A\file.xls") FileSystemObject ' Viz více FileSystemObject Note - Poznámky Application.DisplayAlerts = False Application.EnableEvents = False Application.ScreenUpdating = False Uložit časové razítko - Save TimeStamp Dim timestamp As String timestamp = Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hh-ss") ThisWorkbook.SaveAs "C:UsersUsernameDesktopWorkbookName" & timestamp

Článek byl aktualizován: 19.09.2020 11:07

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák - autor webu

Pavel Lasák

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil


Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.







Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Reklama


TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2021 |