< návrat zpět

MS Excel


Téma: Excel VBA načtení souboru výběr uživatelem rss

Zaslal/a 21.12.2020 10:49

Dobrý den,
bylo by možné požádat o radu?
Potřeboval bych načíst soubor TXT do Excelu. Problém, se kterým si nevím rady, je že makro potřebuji přerušit, aby uživatel vybral, který soubor se má načíst. Název souboru je proměnlivý a v příslušném adresáři se bude nacházet více souborů TXT.

Moje představa po spuštění makra:
1. Vyvolat okno pro načtení souboru TXT
2. nasměrovat uživatele do konkrétní složky (pro zjednodušení příkladu „C:\Temp\“) kde se nachází více souboru TXT
3. přerušit makro, aby uživatel vybral soubor TXT pro import (název souboru se bude vždy lišit)
4. po potvrzení výběru souboru TXT uživatelem pokračovat v makru (nastavení parametrů pro import).

Zatím mám tohle, ale předpokládám, že je to k ničemu.

Sub Import_txt()
Dim MojeCesta As String
MojeCesta = Range("O1").Text
CestaAdresare = MojeCesta & "\nazev_SS.txt"
Set query_table = Sheets("List1").QueryTables.Add( _
Connection:="TEXT;" & CestaAdresare, _
Destination:=Sheets("List1").Range("A1"))
With query_table
.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
End Sub

Přikládám soubor TXT pro import a Excel s makrem viz výše.

Za případnou pomoc předem děkuji.
P.S. jsem naprostý začátečník

Příloha: zip49250_import_txt.zip (23kB, staženo 15x)
Zaslat odpověď >

#049251
Stalker
Přidal sem jen "okno" pro výběr souboru.
Příloha: zip49251_import_txt.zip (17kB, staženo 49x)
citovat
#049252
avatar
Velice děkuji. Funguje to naprosto přesně tak, jak jsem si představoval.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Současné rozplánování více projektů v Excelu.

exceleda • 3.3. 17:46

Současné rozplánování více projektů v Excelu.

eLCHa • 2.3. 22:03

Oddělovač polí

Milan-158 • 1.3. 16:01

Oddělovač polí

Whooocak • 1.3. 15:14

Vkládání dat z formuláře na zamknutém listu.

Milan-158 • 1.3. 15:12

Vlastne planovanie zmien

Anonym • 1.3. 7:56

Vkládání dat z formuláře na zamknutém listu.

Začátečník • 28.2. 19:34