Stránka 1 z 1

Excel - export vybraných hodnot do txt

Napsal: 23 říj 2009 14:58
od cave67
Zdravim na fóru,
velmi by mi pomohlo makro v excelu pro export vybraných hodnot do txt. Tabulka začíná buňkou A26 a může mít libovolný počet řádků. Do sloupce "I" zapisuji data, ne do všech řádků. Po skončení zápisu bych rád vyexportoval, buď stiskem tlačítka nebo klávesovou zkratkou, data pouze z vyplněných řádků sloupce "I" do txt souboru v tomto tvaru:
Hodnota ze sloupce B^hodnota ze sloupce I ,000 .
Tedy např. 405^12,000
407^10,000
Jméno souboru pro uložení vzít z buňky G5 a uložit např. přímo na disk C: .Koncovka souboru by byla OBO ne txt. Tedy např. makro.obo.
Viz přiložený soubor. Jsem v makrech a VB zelenáč.
Prosím pomůžete? Díky

Re: Excel - export vybraných hodnot do txt  Vyřešeno

Napsal: 23 říj 2009 18:08
od navstevnik
V priloze je soubor do nejz je vlozena procedura v tom nejjednodussim tvaru (bez osetreni chyb) pro zapis dat do souboru *.obo jako zaklad pro dalsi rozvinuti.

Re: Excel - export vybraných hodnot do txt

Napsal: 23 říj 2009 19:10
od cave67
Díky za rychlou odpověď. Všechno běhá jak má. Jenom výsledný textový soubor obsahuje uvozovky. Při následném importu program tyto hodnoty nepřečte. Může být textový soubor bez uvozovek?
Ještě jednou díky za pomoc.

Re: Excel - export vybraných hodnot do txt

Napsal: 23 říj 2009 22:05
od navstevnik
V procedure VBA Sub ExportToObo() nahrad v radku zapisu do souboru *.obo prikaz Write prikazem Print:

Kód: Vybrat vše

....
      If SCll.Offset(0, 7).Value <> vbNullString Then
        Print #1, SCll.Value & "^" & SCll.Offset(0, 7).Value
      End If
....

Re: Excel - export vybraných hodnot do txt

Napsal: 23 říj 2009 23:34
od cave67
Všechno v pořádku. Díky moc.