• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Zkusil jsem přidat MsgBox - ten se otevře, potvrdím ho, naběhne "UserForm" - a problém přetrvává...

Private Sub auto_open()
MsgBox ("Moje okno.")
UserForm1.Show 0
End Sub

Když je problém s formulářem...vytvořit "UserForm" znovu a kód překopírovat?

Dobrý den,
na Office 2010 jsem měl vytvořený funkční kód. Z důvodu změny operačního systému jsem musel přejít na Office 365 (32 bit verzi). Po pár dnech se mi nastroj přestal fungovat, při spuštění se objevuje hláška "Out of memory" (nespustí se a nejde vyvolat "Visual Basic" (Alt+F11).
Částečně pomůže pustit nový čisty Excel sešit (nechat puštěný), až pak můj *.xlsm (nefunguje vždy).
Pokud se "Visual Basic" spustí, vše už jede podle zvyklostí.
Domnívám se, že můj nouzový postup by, mohl částečně čistit mezipaměť.
Rád bych zkusil, při spuštění *.xlsm jako první provést proceduru na vyčištění paměti.
Je tento postup vůbec možný?
A bylo by možné požádat o radu jak toho docílit?

P.S. Při startu Excelu automaticky spouštím "UserForm"
Private Sub auto_open()
UserForm1.Show 0
End Sub

Ten se rozběhne (zobrazí), ale VB nejde spustit.

Předem děkuji za pomoc.

Velice děkuji. Funguje to naprosto přesně tak, jak jsem si představoval.

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

Velice děkuji. Funguje perfektně!

Dobrý den,
neuvědomil jsem si nejednoznačnost svého dotazu.
Přikládám Excel.
Ve zdrojových buňkách se žádné uvozovky nevyskytují. Vznikají až při exportu do TXT.
Buňky ve zdrojovém listu (GPP) není prostý text, ale jedná se vzorec odkazující se na jiný list (spojení více buněk).

Popis Excelu:
Export spouštím tlačítkem z „Listu1“
Do pracovní složky, ve které je právě XLSM uložen by se měl vytvořit TXT soubor, který obsahuje data z listu GPP (bez uvozovek) pod názvem „NahradTexty.txt“.
Export do TXT je pouze mezikrok, veškerá další práce probíhá v původním Excelu (pod původním názvem a s původními daty).

Děkuji
Petr

Dobrý den,
jsem naprostý začátečník. Potřeboval bych poradit. Potřebuji uložit obsah listu do formátu TXT.
Zatím mám tohle:

Sub UlozitTXT()

Sheets("GPP").Select
CestaAdresare = ThisWorkbook.Path
soubor = CestaAdresare & "\" & "NahradTexty" & ".txt"
ActiveSheet.SaveAs soubor, FileFormat:= _
xlUnicodeText, CreateBackup:=False

Dim MojeCesta As String
Dim MujSoubor As String

MojeCesta = ThisWorkbook.Path
MujSoubor = "Pok1.xlsm"

Workbooks.Open MojeCesta & "\" & MujSoubor
Workbooks("Pok1.xlsm").Activate
Workbooks("NahradTexty.txt").Close SaveChanges:=True

End Sub

Export proběhne, ale mám problém s formátem textu, který obsahuje uvozovky (“). TXT potřebuji načítat do dalšího programu a ten má problém s uvozovkami.
Příklad:
"NAZ,pokus o export1"

Předem děkuji.
Petr.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse