Tahák Excel VBA - Soubory a Sešit

Ú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.

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

Pavel Lasák - autor webu

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ů.

           

Komentáře zatím nejsou

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