Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Creare txt partendo da un file xls

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Creare txt partendo da un file xls

Postdi Arkanis » 11/12/14 09:03

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!!!!
Arkanis
Newbie
 
Post: 9
Iscritto il: 05/10/10 08:13

Sponsor
 

Re: Creare txt partendo da un file xls

Postdi Flash30005 » 11/12/14 12:42

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Creare txt partendo da un file xls":


Chi c’è in linea

Visitano il forum: Nessuno e 4 ospiti