MS Excel

Ahoj, chtěl bych se zeptat, zda je možné skrze makro importovat data z textového souboru do excelu.

Abych to upřesnil..

V příloze je .xlsm soubor, do kterého se makrem importují data ze souboru parametry.txt. Vše běží v pohodě za předpokladu, že soubor parametry.txt obsahuje 3 sloupce.
No a já bych potřeboval, aby import proběhl v pořádku pro libovolný počet sloupců ( maximálně 18 ).

Je možné makro upravit tak, aby to fungovalo?

Předem díky
Míra

Zaslat odpověď >

eLCHa(10.4.2015 9:03)#024465

Ono to je vše pouze o správném nastavení importu textového souboru...Sub subImportTextFile()
Const QT_DEST As String = "A1"

Dim sFileName
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.FilterIndex = 6
.InitialFileName = ThisWorkbook.Path
If .Show Then
sFileName = .SelectedItems(1)
End If
End With 'Application.FileDialog(msoFileDialogOpen)

If Not sFileName = vbNullString Then
Range(QT_DEST).CurrentRegion.EntireColumn.Delete

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & sFileName, Destination:=Range(QT_DEST))
.TextFileParseType = xlDelimited
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = ","
.Refresh BackgroundQuery:=False
.Delete
End With 'ActiveSheet.QueryTables.Add(Connection:="TEXT;" & sFileName, Destination:=Range(QT_DEST))

Range(QT_DEST).EntireColumn.Delete
End If
End Subcitovat

Dejavu(14.4.2015 22:04)#024516

Děkuju, hned vyzkouším.citovat

Dejavu(14.4.2015 22:20)#024517

Tak bohužel, kód jsem překopíroval a vše funguje stejně jako to běželo mě..

Tedy například pokud vyberu data ze souboru:
"parametry-L2+H-Guyer1+Guyer2"

Ve sloupci "C" se mi zobrazí 5 posledních hodnot (5sloupců v jednom).

Btw.. omlouvám se, že jsem se neozval dříve, byl jsem mimo domov.

Míracitovat

eLCHa(15.4.2015 6:40)#024518

Tak bohužel, kód jsem překopíroval a vše funguje stejně jako to běželo mě..

Mno samozřejmě, že to funguje stejně. Protože jste sice makro nakopíroval, ale spustil jste import, který máte nastavený v Query ;)
Musíte se rozhodnout, kterou variantu chcete používat. Na začátku jste psal "zda je možné skrze makro importovat data z textového souboru". Tak jsem Vám dal makro, není ale samospustitelné, musíte ho spustit ručně ;).
Pokud chcete používat dál query - což je lepší varianta (nebudete potřebovat kód) - tak si musíte upravit nastavení vašeho připojení.

1. Otevřete soubor Parametry - nechte ho naimportovat data - budete mít zas více dat ve sloupci C - to nám teď nevadí
2. Klepněte na Data - Připojení, označte parametry a klepněte na Vlastnosti...
3. Definice - Procházet... a vyberte soubor, který chcete importovat
4. A teď to důležité - neklepejte na Dokončit, ale
- označte oddělovač a klepněte na Další >
- odznačte zaškrtnutí u Tabulátor, zaškrtněte Mezera a zaškrtněte Posloupnost oddělovačů jako jeden, klepněte na Další >
- zde byste mohl zrušit import prvního sloupce, ale já bych to klidně nechal tak, takže klepněte na Upřesnit...
- jako oddělovač desetinných míst nastavte tečku, oddělovač tisíců čárku a klepněte na OK
- teď klepněte na Dokončit.

Za tolik písmenek mám u Vás pivocitovat

Dejavu(15.4.2015 17:44)#024519

Děkuji za upřesnění, evidentně jsem prve nepochopil..
Tudíž je potřeba makro spouštět nějakým tlačítkem, nebo zkratkou, pokud již nyní chápu správně. A pokud budu používat Query, je třeba toto nastavení provádět pro každý soubor zvlášť, je to tak ?

Omlouvám se za svou tupost, ale s tímto se setkávám poprvé :)

Míracitovat

eLCHa(16.4.2015 6:57)#024520

Tudíž je potřeba makro spouštět nějakým tlačítkem, nebo zkratkou, pokud již nyní chápu správně. A pokud budu používat Query, je třeba toto nastavení provádět pro každý soubor zvlášť, je to tak ?
Makro - tlačítkem nebo událostí (třeba po spuštění).
Query - není třeba, podívejte se na nastavení připojení, jaké tam jsou volby.
Zapněte závity a zbytek už zvládnete - já Vám ukázal co je špatně a cestu jak to opravit.citovat

Dejavu(16.4.2015 19:21)#024524

Děkuji, už to téměř funguje jak má, jen ještě jedna zvláštnost.. alespoň pro mne.
Na dalším listě jsem vyhodnotil importovaná data pomocí funkcí, jenže vždy když naimportuji nová data, funkce mi začnou vyhazovat chyby..(funkce se přepíše) dalo by se to nějak upravit, aby mi to pokaždé nevyhazovalo chybu "Neplatný odkaz na buňku" ?
Ještě jednou děkuji.

Míra

Příloha: rar

24524_parametry.rar (23kB, staženo 26x)

citovat

Dejavu(18.4.2015 19:06)#024532

Tak už sem na to přišel :) Mé řešení je sice trochu neohrabané, ale funguje to, data jsem makrem zkopíroval do další karty a vše již funguje jak má.. bez náležitých úprav se tedy nedá pracovat s importovanými daty.

Míracitovat

elninoslov(21.4.2015 11:58)#024564

Ale vo "Výsledky" je veľká chyba. Odkaz na stĺpec Data!A má byť vo výsledkoch v stĺpci B, a nie až v stĺpci F.

Neplechu tam robí to vymazávanie stĺpcov. Takže nemazať stĺpce ale iba obsah, a stĺpec A, keď už musí byť v tých TXT, tak tento stĺpec ignorovať, určite nemazať. Mazaním stĺpca Excel automaticky prerobí všetky vzorce (aj relatívne aj absolútne) a potom to nesedí. Výpočty sa jednoducho začnú v stĺpci B.
Riešenie by mohlo byť takéto.

Příloha: rar

24564_parametry2.rar (27kB, staženo 28x)

citovat

Dejavu(21.4.2015 20:36)#024575

Děkuji za radu, tu chybu se sloupcem F právě dělá ono mazání sloupců, jak popisujete :)

S každým otevřením nových dat se to přepisovalo a posouvalo, každopádně díky za vaše řešení :)

Míracitovat

Téma: Import dat

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje