Creare txt partendo da un file xls

[Arkanis]

Buongiorno a tutti,

ho excel 2010 in inglese, dovrei creare macro per creare file txt partendo da excel.

Per la precisione dovrei eseguire questi passaggi:

1st column del file txt (una scritta fissa) : Invoice 00000000000000000
2nd Column: Contenuto della colonna O (del file excel)
3rd Column: function Right(N7;10) fino alla fine del file (oppure, ad esempio, fino ad una riga molto in basso)
4th: Blank
5th: Colonna M
6th: Colonna D
7th Colonna E
8th,9th,10th: Colonne J-K-L
11th: blank
12th: Colonna L * 0.22 (22%)
13th: Colonna L
14th: BLANK
15th: BLANK
16th: BLANK
Le colonne, inoltre, dovrebbero essere intervallate da questo simbolo "|".
Qualcuno saprebbe indirizzarmi?

GRazie mille!!!!

[Flash30005]

Prova questa macro

Codice: Seleziona tutto

Sub CreaFileTesto()
URN = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
Perc = ThisWorkbook.Path & "\"
C01 = "Invoice 00000000000000000|"
Open Perc & "Output.Txt" For Append As #1
For R = 1 To URN
    C02 = Worksheets("Foglio1").Range("O" & R).Value & "|"
    C03 = Right(Worksheets("Foglio1").Range("N7"), 10).Value & "|"
    C04 = " |"
    C05 = Worksheets("Foglio1").Range("M" & R).Value & "|"
    C06 = Worksheets("Foglio1").Range("D" & R).Value & "|"
    C07 = Worksheets("Foglio1").Range("E" & R).Value & "|"
    C08 = Worksheets("Foglio1").Range("J" & R).Value & "|"
    C09 = Worksheets("Foglio1").Range("K" & R).Value & "|"
    C10 = Worksheets("Foglio1").Range("L" & R).Value & "|"
    C11 = " |"
    C12 = Worksheets("Foglio1").Range("L" & R).Value * 0.22 & "|"
    C13 = Worksheets("Foglio1").Range("L" & R).Value & "|"
    C14 = " |"
    C15 = " |"
    C16 = " |"
    Riga = C01 & C02 & C03 & C04 & C05 & C06 & C07 & C08 & C09 & C10 & C11 & C12 & C13 & C14 & C15 & C16
    Print #1, Riga
Next R
Close #1
End Sub

Sostituisci il nome del foglio se non è "Foglio1"
e arrotonda il campo C12 a n decimali se occorrono o a numero intero

ciao

N.B Macro non testata perché non ho un file strutturato come il tuo, semmai pubblica il file dati