Příspěvky uživatele
< návrat zpět
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
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články