MS Excel

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

Zaslal/a Petr20 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: zip