MS Excel

Dobrý deň,

chcel by som Vás poprosiť o radu/riešenie. Moje programovacie schopnosti sú veľmi na nízkej úrovni. Ak by niekto mal čas a chuť pomôcť veľmi pekne Vám ďakujem.Trápim sa s tým už/ešte len 4 hodiny výsledok nikde :/

príloha:
Excel file: http://uloz.to/x7YqYiYX/dashboard-2-xlsm
TXT file: http://uloz.to/xy9Wx5xF/commandfile-txt

Potreboval by som pomôcť s VBAčkom. Ako by VBA malo pracovať:

- podmienka: Ak bunka "A2=3" tak:

- exportuj obsah "C2:N2" do TXT súboru (TXT súbor by mal vyzerať ako uviedol v prílohe), dôležité sú tie čiarky "," v TXT súbore čo oddelujú jednotlivé bunky v Exceli

- exportuj daný TXT súbor do C:\txtfiles\

ďakujem, ak sa niekto do toho pustí

prajem pekný večer

jojofx

Zaslat odpověď >

Strana: « předchozí 1 2

jojofx(28.9.2015 13:29)#027088

timer slúži iba na prekopírovanie dát z F25:F52 do G25:G52 iba v "sheet1" nič iné. S vytváraním txt súbormi to nemá nič spoločné.

Presné využitie TXT súborov: Druhý program scanuje folder a hľadá commandfile.txt každú sekundu. Keď program prečíta txt(commandfile) súbor, tak ho hneď vymaže. Nemyslím si, že tam bude nejaký problém s prepisovaním. Musím najprv vedieť ako sa to bude správať. Priemer vytvorených txt súborov bude zhruba 4 za deň takže nebude to žiadna tlačenica txt súborov

excel ťahá dáta cez DDE server viac Vám k tomu neviem povedať

ďakujem Vám za strávený čas a ochotucitovat

elninoslov(28.9.2015 13:42)#027089

V udalosti Workbook_SheetCalculate vymažte podmienku
If Sh.Name <> "sheet1" And Sh.Name <> "Indices" Then
End If

Nechajte tam iba 2x Call

@:S vytváraním txt súbormi to nemá nič spoločné.
Ale môže mať. Ešte raz skúsim preformulovať otázku. Vidíte sám, že je volanie/nevolanie, udalosti/neudalosti, vyvolané/nevyvolané, nieje je úplne jasné čo z aktualizáce dát vyvolá akú udalosť (alebo nevyvolá), tak sa pýtam:
Tú kontrolu, či sa má zapísať TXT, potrebujete robiť v takých intervaloch ako kopírujete tie dáta ? Ak áno, tak potom jednoznačne urobiť všetko práve v tomto časovači, pretože, ten sa spustí s istotou každých 30 min. A nemusíte sa spoliehať, či nejaká aktualizácia vyvolá prepočet vzorca pri zmenenej alebo nezmenenej novej hodnote, alebo zmenu v inom naviazanom, ale nezobrazenom liste...

EDIT:
Ešte poznámka, procedúru Recalc je potrebné zmeniť na
Sub Recalc()
With ThisWorkbook.Worksheets("sheet1")
.Range("G25:G52").Value = .Range("F25:F52").Value
End With
Call StartTime
End Sub
Inak skolabuje, ak budete prepnutý náhodou v inom zošite práve v momente "Ticku".citovat

jojofx(28.9.2015 17:00)#027090

fuu beží to ako má, vytvára to txt súbory, proste TOP práca.

ďakujem Vám za trpezlivosť, ochotu pomôcť, istá provízia pôjde aj Vám(najprv ešte musím niečo zarobiť :)), ešte mierne doladiť nejaké chybičky a malo by to fungovať ako hodinky :)citovat

Strana: « předchozí 1 2

Téma: VBA - vytvorenie TXT súboru

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje