Jak načíst importovat csv soubor - VBA Excel

Úvodem

Jak otevřít / načíst *.csv soubor pomocí VBA makra v Excel? Jak na různé oddělovače (středník, čárka)? Proč někdy nefunguje středník? Jak zajistit ať se načítané csv neotvírá v samostatném sešitu, ale přímo v sešitu s makrem?

Přehled kapitol:

• Trocha teorie
• Načtení csv souboru - oddělovač čárka
• Otevření csv souboru - oddělovač středník
• Načtení csv do aktuálního sešitu
• Načtení csv pomocí QueryTables
• Ke stažení
• Další možnosti - aneb související články

Trocha teorie

Na první pohled se zdá import *.csv souborů jednoduchý, na ten druhý už to tak jednoduché není. Existuje několik verzí jak mohou být *.csv soubory zapsány (uloženy), když se k tomu připočte několik druhů kodování a navíc dvě možnosti jak v Excelu lze tato data načíst začíná v tom být zmatek.

Ve svém důsledku import / načítání není složité, stačí jen použít správnou metodu, Excel nabízí dva druhy importu:

• 1) otevřít jako textový soubor
• 2) importovat jako oblast externích dat

Obě možnosti jsou popsány v tomto článku.

Načtení csv souboru

Oddělovač čárka

CestaAdresare = ThisWorkbook.Path Workbooks.Open Filename:=CestaAdresare & "\csv-oddelovac-carka.csv"

Načtení csv souboru

Oddělovač středník

CestaAdresare = ThisWorkbook.Path Workbooks.Open Filename:=CestaAdresare & "\csv-oddelovac-strednik.csv", Local:=True

do Excel 2003

Řešením je kód:

Workbooks.Open C:\dokument.csv

Načtení csv do aktuálního sešitu

Načítat se bude do listu csv. Csv soubor se sice načte do samostatného listu, tento soubor zkopírujeme a vložíme do požadovaného listu. Nově otevřený soubor pak pomocí VBA kódu zavřeme - Close. Abychom nemuseli odpovídat na zobrazené dialogové hlášení, zobrazování těchto hlášek dočasně vypneme (DisplayAlerts).

CestaAdresare = ThisWorkbook.Path Workbooks.Open Filename:=CestaAdresare & "\csv-oddelovac-strednik.csv", Local:=True Windows("csv-oddelovac-strednik.csv").Activate Selection.CurrentRegion.Select Selection.Copy Workbooks("nacteni-csv-excel.xlsm").Worksheets("csv").Cells Application.DisplayAlerts = False 'vypnutí dialogového okna na zachování dat ve schránce ActiveWindow.Close ' zavře dočasné csv Application.DisplayAlerts = True

Načtení csv pomocí QueryTables

Pokud ručně načítáte přes kartu Data - Načíst externí data - Z textu, využíva Excel vkládaní přes QueryTables. Toto můžete využít a nastavit si požadované oddělovače, kódování, upřesnit umístění na požadovaném listu, atd.

Importovat jako oblast externích dat

CestaAdresare = ThisWorkbook.Path & "\csv-oddelovac-strednik.csv" Set query_table = Sheets("csv").QueryTables.Add( _ Connection:="TEXT;" & CestaAdresare, _ Destination:=Sheets("csv").Range("A1")) With query_table .Name = "strednik" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 1250 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = True .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .Refresh BackgroundQuery:=False End With

Ke stažení

K dispozici soubory ke stažení zdarma:

• využití QueryTables pro načítaní csv v Excel
• načtení cvs pomocí VBA v Excel

csv pro testy

• *.csv oddělovačem - středník
• *.csv oddělovačem - čárka

Soubory s příponou *.xlsm využívají VBA makra. Pro správnou funkci je třeba tyto makra povolit.

Související články

Související články pro práci se soubory pomocí VBA v Excel:

• Existuje soubor
• Otevřít / načíst xls(x) soubor - včetně zaheslovaných (pokud znáte heslo)
• Uložit do *.pds
• Uložit jako... - opět využitím VBA

Závěrem

Máte nějaký oblíbený kód pro načítání csv? Můžete zmínit v komentářích.

Č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