Excel - export vybraných hodnot do txt

[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

[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.

[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.

[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
....

[cave67]

Všechno v pořádku. Díky moc.