excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: excel -> text
MS Excel
Téma: excel -> text 
Zaslal/a 14.4.2012 13:37
zdarvim :) , potřeboval bych pomoct, vytvořil sem si v exelu algoritmus kódu, a potřeboval bych ten výslednej kód (v jedné bunce) uložit do textového souboru ale když dám "uložit jako" tak mně to uloží i ty ostatní bunky a to já nechci, prosím pomožte 
(15.4.2012 0:58)#008056
no tak to mně taky došlo :D , jenže já potřebuju automaticky např. když ten excel otevřucitovat
No takto by to išlo
Sub Makro1()
Dim f, subor As String
f = FreeFile
subor = "text.tex"
Open subor For Output As f
data = Range("A1").Value
Print #f, data
Close #f
End Sub
Ale neviem načo takto vymýšľať, keď v editore VBA je možnosť exportu.
citovat
Sub Makro1()
Dim f, subor As String
f = FreeFile
subor = "text.tex"
Open subor For Output As f
data = Range("A1").Value
Print #f, data
Close #f
End Sub
Ale neviem načo takto vymýšľať, keď v editore VBA je možnosť exportu.
citovatTen kód máš predsa v module makier. A ak dáš exportovať modul, tak ti to vyexportuje čistý kód do súboru *.bas
ALT+F11
nastav sa do makra
File > exportcitovat
ALT+F11
nastav sa do makra
File > exportcitovat
marjankaj: vies on anonymous NIKDE nepise ze sa jedna o VBA kod, ma skratka len nejaku postupnost vzorcov v jednej bunke a tu chce niekam exportovat
vies ak v tom clovek nevie plavat tak nevie ze nepouziva "pofi" slovnik a moze nastat problem (pozri tu: http://wall.cz/index.php?m=topic&id=8010#post-8083 - dobre ne?, preto im ja pisem ze chcem subor , a niektory furt niccitovat
vies ak v tom clovek nevie plavat tak nevie ze nepouziva "pofi" slovnik a moze nastat problem (pozri tu: http://wall.cz/index.php?m=topic&id=8010#post-8083 - dobre ne?, preto im ja pisem ze chcem subor , a niektory furt niccitovat
@misocko:
Jasné, bez súboru môžem iba tipovať, o čo ide.
Ale aspoň mu dám aj iné možnosti. Možno sa mu to hodí niekde inde.
Niekedy je ťažké vydolovať súbor, a niekedy ani ten veľa neobjasní.citovat
Jasné, bez súboru môžem iba tipovať, o čo ide.
Ale aspoň mu dám aj iné možnosti. Možno sa mu to hodí niekde inde.
Niekedy je ťažké vydolovať súbor, a niekedy ani ten veľa neobjasní.
citovat(4.5.2012 23:30)#008371
http://leteckaposta.cz/280175452 tady je ten sešit počítám s tim že se nikdy k mej wifi nedostanete :D a pokud jo tak si udělám novej heslo je 4321 a v 03 vám to nepujde , no co potřebuju : P34 kdyby to šlo tak v VBA udělat program kterej mně bude vypisovat po stistknutí tlačítka tuhle bunku do txtcitovat
No 
,
chceš tedy exportovat hodnotu buňky nebo vzorec co je v buňce?
Odpověď už tady máš! (Kód od marjankaj...) Navol tam:
subor = ThisWorkbook.Path & "\text.txt"Pro vzorec toto:
Data = Range("P34").FormulaPro hodnotu toto:
Data = Range("P34").ValueOk?
P.citovat
, chceš tedy exportovat hodnotu buňky nebo vzorec co je v buňce?
Odpověď už tady máš! (Kód od marjankaj...) Navol tam:
subor = ThisWorkbook.Path & "\text.txt"Pro vzorec toto:
Data = Range("P34").FormulaPro hodnotu toto:
Data = Range("P34").ValueOk?
P.citovat
jj skusim si s tim nějak pohrát ale jelikož sem ve vba moc neprogramoval spíš v c++ tak se musim podívat jak ses to dělácitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\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