Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel] Trasferire dati in file txt con VBA

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

Re: [Excel] Trasferire dati in file txt con VBA

Postdi Anthony47 » 01/05/12 14:39

Il comando Print gia' inserisce tra ogni record la sequenza "0d 0a", cioe' CR/LF.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea

Sponsor
 

Re: [Excel] Trasferire dati in file txt con VBA

Postdi marpar » 01/05/12 15:00

Grazie Antony....

Quello che sto cercando di fare è importare un file xml editarlo con l'ausilio di Excel e ricrearlo per darlo in pasto al software di turno (nel caso specifico EyeTV della Elgato)

Ho ancora qualche problemino con i fine riga, aprendo il file xml con un software che lo visualizza in esadecimale (prima che venga editato) mi sono accorto che usa fine riga diversi, cerco di mi spiegarmi meglio.

Nelle prime righe dove viene identificato che si tratta di un file xml:

Codice: Seleziona tutto
<?xml version="1.0" encoding="UTF-8"?> <-- qui usa LF "0a"


piu avanti nel corpo dell'xml usa invece:

Codice: Seleziona tutto
<dict>
         <key>channel number</key> <-- qui usa "0a 09 09 09"
         <integer>0</integer> <-- qui usa "0a 09 09 09"


come posso ovviare al problema?
Purtroppo se non formattato in maniera consona non viene riconosciuto dal software e quindi è inutilizzabile.
Spero di essermi spiegato.
Grazie
Ciao
marpar
Newbie
 
Post: 8
Iscritto il: 30/04/12 11:07

Re: [Excel] Trasferire dati in file txt con VBA

Postdi Flash30005 » 01/05/12 20:25

marpar ha scritto:Quello che sto cercando di fare è importare un file xml ,,,,


E allora perché questo titolo al topic?
[Excel] Trasferire dati in file txt con VBA :aaah
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-

Re: [Excel] Trasferire dati in file txt con VBA

Postdi marpar » 01/05/12 20:34

Un file xml è simile ad un file di testo e quindi non mi è sembrato sbagliato "accodarmi" ad una discussione con questo titolo...
Se ritieni sia un errore grave faccio un passo indietro e chiedo scusa...
Ciao
marpar
Newbie
 
Post: 8
Iscritto il: 30/04/12 11:07

Re: [Excel] Trasferire dati in file txt con VBA

Postdi Flash30005 » 01/05/12 20:40

Simile non significa uguale
anche perché se lo fosse non avresti avuto i problemi indicati da te nel post delle ore 16:00
ma non voglio far polemica
vorrei solo cercare di risolvere il problema nel minor tempo possibile 8)

e con i dati forniti non ci riesco :-?
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-

Re: [Excel] Trasferire dati in file txt con VBA

Postdi Anthony47 » 02/05/12 02:02

<key>channel number</key> <-- qui usa "0a 09 09 09"

La codifica corrisponde a 3 Tab inseriti dopo LF, che potrebbe essere coerente con la struttura dati del file.
Direi di tornare daccapo: quali sono i tuoi effettivi dati di partenza e quali vorresti ottenere?

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel] Trasferire dati in file txt con VBA

Postdi marpar » 02/05/12 06:47

Grazie Antony47... preciso come al solito... c'ero arrivato da solo qualche istante prima che mi rispondessi (mi ero già dato dello stupido per non averlo capito prima) ma dopo aver eliminato i tab il problema persiste.
L'originale, come era lecito aspettarsi, funziona anche senza tab il mio file no.
Cercherò di capire da solo dove sbaglio..
Grazie ancora.
Buona giornata
marpar
Newbie
 
Post: 8
Iscritto il: 30/04/12 11:07

Re: [Excel] Trasferire dati in file txt con VBA

Postdi Anthony47 » 02/05/12 14:38

Grazie Antony47... [. . . ] ma dopo aver eliminato i tab il problema persiste.
L'originale, come era lecito aspettarsi, funziona anche senza tab il mio file no.
Cercherò di capire da solo dove sbaglio..

Se vuoi una chance di aiuto dovresti spiegare "quali sono i tuoi effettivi dati di partenza e quali quelli che vorresti ottenere", perche' al momento io non capisco nemmeno di quale problema parli.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel] Trasferire dati in file txt con VBA

Postdi marpar » 02/05/12 14:54

Tutto risolto!!!
Non era un problema di VBA e fine e riga ma un un semplice errore di digitazione... una string che per errore era srting... :oops:
Grazie per l'aiuto.
Ciao a tutti
marpar
Newbie
 
Post: 8
Iscritto il: 30/04/12 11:07

Re: [Excel] Trasferire dati in file txt con VBA

Postdi escounpo » 26/03/13 17:06

Sub ScriveTxt()
UR = Range("A" & Rows.Count).End(xlUp).Row
Perc = "C:\Temp\" '<<<<<<<<<<<<<<<<<<<<<<<<<< inserisci il percorso effettivo
Open Perc & "Pippo.txt" For Output As #1 '<<<<<<<<<<<< cambia il nome al file secondo l'esigenza
For RR = 1 To UR
Print #1, Range("A" & RR).Value
Next RR
Close #1
End Sub


Riprendo questa macro perchè mi sembra la più congeniale ai miei bisogni (onore e gloria anche all'altra cmq!!:)
avrei 2 domande in merito:
- se io volessi aggiungere non solo la colonna A ma anche altre colonne come dovrei modificare la macro?
- devo trasferire i dati da un foglio excel ad un txt che poi va importato su un altro programma, questo programma però è molto rigido ed il mio file txt deve essere tabulato in maniera fissa (es. 2 spazi per la colonna A (pieni o vuoti è indifferente), 4 spazi per la colonna B, 8 spazi per la colonna C, 3 spazi per colonna D ecc ecc), come posso ovviare a questo problema? grazie!!:)
escounpo
Newbie
 
Post: 5
Iscritto il: 26/03/13 17:02

Re: [Excel] Trasferire dati in file txt con VBA

Postdi ricky53 » 26/03/13 17:35

Ciao,
con la parola "spazi" intendevi dire "caratteri" ?

Riporto quanto ho capito:
ogni riga del tuo file TXT è così costituita
2 caratteri presi dalla colonna "A"
tabulazione
4 caratteri presi dalla colonna "B"
tabulazione
8 caratteri presi dalla colonna "C"
tabulazione
3 caratteri presi dalla colonna "D"

con il tuo "ecc ecc" intendi dire che nella riga TXT ci devono essere altre altre colonne?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: [Excel] Trasferire dati in file txt con VBA

Postdi escounpo » 26/03/13 19:24

na..mi sono spiegato male vero?!:(
allego un esempio e provo comunque a spiegarmi meglio eheh
http://goo.gl/PVuU3
ho un file excel (Di svariate righe) dove dentro ci sono date, nomi, importi, valute.
il file txt che devo andare a creare deve essere tabulato uguale per tutte le colonne, mi spiago con un esempio, la colonna nomi deve essere 10 caratteri (così facendo, nel caso uno si chiamasse "gianfilippo" diventerebbe "gianfilipp" e nel caso avessi "marco" diventerebbe "marco "), nella colonna b potrei avere un le valute e dovrebbero occupare massimo 3 caratteri quindi euro diventerebbe "EUR" mentre lo yen resterebbe "yen"..

così è un po più chiaro? grazie!!
escounpo
Newbie
 
Post: 5
Iscritto il: 26/03/13 17:02

Re: [Excel] Trasferire dati in file txt con VBA

Postdi ricky53 » 26/03/13 23:46

Ciao,
l'immagine che hai inviato riporta proprio quello che ti ho scritto io con la sola differenza che tra un dato e l'altro tu non hai messo il "tabulatore".

Se invii un file di esempio con alcune righe del file excel di partenza che corrisponderà a come sono i dati ed un altro file di come vorresti che fosse prodotto il file TXT utilizzando i dati del file excel.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: [Excel] Trasferire dati in file txt con VBA

Postdi Flash30005 » 27/03/13 00:18

Ciao Escounpo e benvenuto nel Forum

Prova a vedere se va bene questa macro
Codice: Seleziona tutto
Sub ScriveTxt()
UR = Range("A" & Rows.Count).End(xlUp).Row
Perc = "C:\Temp\" '<<<<<<<<<<<<<<<<<<<<<<<<<< inserisci il percorso effettivo
Open Perc & "Pippo.txt" For Output As #1 '<<<<<<<<<<<< cambia il nome al file secondo l'esigenza
For RR = 1 To UR
StrA = Mid(Range("A" & RR).Value, 1, 2)
If StrA = "" Then StrA = StrA & "  "
If Len(StrA) = 1 Then StrA = StrA & " "
StrB = Mid(Range("B" & RR).Value, 1, 4)
If StrB = "" Then StrB = StrB & "    "
If Len(StrB) < 4 Then
StrBS = ""
For SS = Len(StrB) To 3
StrBS = StrBS & " "
Next SS
StrB = StrB & StrBS
End If
StrC = Mid(Range("C" & RR).Value, 1, 8)
If StrC = "" Then StrB = StrB & "        "
If Len(StrC) < 8 Then
StrCS = ""
For SS = Len(StrC) To 7
StrCS = StrCS & " "
Next SS
StrC = StrC & StrCS
End If
StrD = Mid(Range("D" & RR).Value, 1, 3)
If StrD = "" Then StrD = StrD & "   "
If Len(StrD) = 1 Then StrD = StrD & "  "
If Len(StrD) = 2 Then StrD = StrD & " "
Print #1, StrA & StrB & StrC & StrD
Next RR
Close #1
End Sub


Ciao
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-

Re: [Excel] Trasferire dati in file txt con VBA

Postdi escounpo » 27/03/13 14:45

Codice: Seleziona tutto
    Sub ScriveTxt()
    UR = Range("A" & Rows.Count).End(xlUp).Row
    Perc = "C:\Temp\" '<<<<<<<<<<<<<<<<<<<<<<<<<< inserisci il percorso effettivo
    Open Perc & "Pippo.txt" For Output As #1 '<<<<<<<<<<<< cambia il nome al file secondo l'esigenza
    For RR = 1 To UR
    StrA = Mid(Range("A" & RR).Value, 1, 2)
    If StrA = "" Then StrA = StrA & "  "
    If Len(StrA) = 1 Then StrA = StrA & " "
    StrB = Mid(Range("B" & RR).Value, 1, 4)
    If StrB = "" Then StrB = StrB & "    "
    If Len(StrB) < 4 Then
    StrBS = ""
    For SS = Len(StrB) To 3
    StrBS = StrBS & " "
    Next SS
    StrB = StrB & StrBS
    End If
    StrC = Mid(Range("C" & RR).Value, 1, 8)
    If StrC = "" Then StrB = StrB & "        "
    If Len(StrC) < 8 Then
    StrCS = ""
    For SS = Len(StrC) To 7
    StrCS = StrCS & " "
    Next SS
    StrC = StrC & StrCS
    End If
    StrD = Mid(Range("D" & RR).Value, 1, 3)
    If StrD = "" Then StrD = StrD & "   "
    If Len(StrD) = 1 Then StrD = StrD & "  "
    If Len(StrD) = 2 Then StrD = StrD & " "
    Print #1, StrA & StrB & StrC & StrD
    Next RR
    Close #1
    End Sub


grazie e ciao a tutti!:)
potrebbe andare bene ma:
- nel campo valuta gli spazi vuoti dovrebbero essere occupati dagli 0 (caratteristica non sottolineata mio nel precendente post :() e questi 0 dovrebbero essere prima dell'importo (es. 134,50 dovrebber diventare 00000134.50)
- il campo data dovrebbe essere recepito senza / quindi da 27/03/2013 dovrebbe diventare 27032013

è molto difficile?:(
allego 2 file, il primo è come dovrebbe risultare il mio file txt dopo l'estrazione, il 2° è invece il file excel (ma non è il file excel con cui è stato creato il file txt) da cui dovrei estrarre i record.
file txt (http://goo.gl/cykLP)
file excel (http://goo.gl/zbivs)
escounpo
Newbie
 
Post: 5
Iscritto il: 26/03/13 17:02

Re: [Excel] Trasferire dati in file txt con VBA

Postdi escounpo » 02/04/13 15:58

ok ci sono riuscito!
ho fatto tutto!
Codice: Seleziona tutto
Sub ScriveTxt()
    UR = Range("A" & Rows.Count).End(xlUp).Row
    Perc = "d:\" '<<<<<<<<<<<<<<<<<<<<<<<<<< inserisci il percorso effettivo
    Open Perc & "prova.txt" For Output As #1 '<<<<<<<<<<<< cambia il nome al file secondo l'esigenza
    For RR = 6 To UR
    colC = Mid(Range("C" & RR).Value, 1, 1)
    If colC <> "" Then
            colC = Format(colC, "!@@")
        Else
            colE = " "
    End If
    cold = Mid(Range("D" & RR).Value, 1, 16)
        If Mid(Range("D" & RR).Value, 1, 16) > 0 Then
            cold = "+" & Format(Mid(Range("D" & RR).Value, 1, 16), "00000000000.000")
            ElseIf Mid(Range("D" & RR).Value, 1, 16) < 0 And Mid(Range("D" & RR).Value, 1, 1) = "-" Then
            cold = Format(Mid(Range("D" & RR).Value, 1, 16), "00000000000.000")
        End If
    colE = Mid(Range("E" & RR).Value, 1, 5)
    If colE <> "" Then
            colE = Format(colE, "!@@@@@")
        Else
            colE = "    "
    End If
    colf = Mid(Range("F" & RR).Value, 1, 9)
    If colf <> "" Then
        colf = Format(Mid(Range("F" & RR).Value, 1, 9), "00000.000")
        Else: colf = "         "
    End If
    colg = Mid(Range("g" & RR).Value, 1, 16)
    If colg <> "" Then
        If Mid(Range("g" & RR).Value, 1, 16) > 0 Then
            colg = "+" & Format(Mid(Range("g" & RR).Value, 1, 16), "000000000000.00")
            ElseIf Mid(Range("g" & RR).Value, 1, 16) < 0 And Mid(Range("g" & RR).Value, 1, 1) = "-" Then
            colg = Format(Mid(Range("g" & RR).Value, 1, 16), "000000000000.00")
        End If
    Else
        colg = "                "
    End If
    colh = Mid(Range("h" & RR).Value, 1, 2)
    If colh <> "" Then
            colh = Format(colh, "!@@")
        Else
            colh = "  "
    End If
    coli = Mid(Range("i" & RR).Value, 1, 5)
    If coli <> "" Then
            coli = Format(coli, "00000")
        Else
            coli = "     "
    End If
    colj = Mid(Range("J" & RR).Value, 1, 2)
    If colj <> "" Then
            colj = Format(colj, "!@@")
        Else
            colj = "  "
    End If
    colk = Mid(Range("K" & RR).Value, 1, 10)
        If colk <> "" Then
            colk = Format(colk, "ddmmyyyy")
        Else
            colk = "        "
    End If
    coll = Mid(Range("l" & RR).Value, 1, 10)
        If coll <> "" Then
            coll = Format(coll, "ddmmyyyy")
        Else
            coll = "        "
    End If
    colm = Mid(Range("m" & RR).Value, 1, 8)
        If colm <> "" Then
            colm = Format(colm, "!@@@@@@@@")
        Else
            colm = "        "
    End If
    coln = Mid(Range("n" & RR).Value, 1, 4)
        If coln <> "" Then
            coln = Format(coln, "!@@@@")
        Else
            coln = "    "
    End If
    colo = Mid(Range("o" & RR).Value, 1, 1)
        If colo <> "" Then
            colo = Format(colo, "!@")
        Else
            colo = " "
    End If
    colp = Mid(Range("p" & RR).Value, 1, 6)
        If colp <> "" Then
            colp = Format(colp, "000000")
        Else
            colp = "      "
    End If
    colq = Mid(Range("q" & RR).Value, 1, 16)
        If colq <> "" Then
            colq = Format(colq, "0000000000000000")
        Else
            colq = "                "
    End If
    colr = Mid(Range("r" & RR).Value, 1, 40)
        If colr <> "" Then
            colr = Format(colr, "!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@")
        Else
            colr = "                                        "
        End If
    cols = Mid(Range("s" & RR).Value, 1, 5)
        If cols <> "" Then
            cols = Format(cols, "00000")
        Else
            cols = "     "
        End If
    colt = Mid(Range("t" & RR).Value, 1, 5)
        If colt <> "" Then
            colt = Format(colt, "00000")
        Else
            colt = "     "
        End If
    colu = Mid(Range("u" & RR).Value, 1, 10)
        If colu <> "" Then
            colu = Format(colt, "0000000000")
        Else
            colu = "          "
        End If
    colv = Mid(Range("v" & RR).Value, 1, 2)
        If colv <> "" Then
            colv = Format(colv, "!@@")
        Else
            colv = "  "
        End If
    colw = Mid(Range("w" & RR).Value, 1, 6)
        If colw <> "" Then
            colw = Format(colw, "!@@@@@@")
        Else
            colw = "      "
        End If
    colX = Mid(Range("x" & RR).Value, 1, 9)
        If colX <> "" Then
            colX = Format(colX, "00000,000")
        Else
            colX = "00000,000"
        End If
    coly = Mid(Range("y" & RR).Value, 1, 12)
        If coly <> "" Then
            coly = Format(coly, "000000000000")
        Else
            coly = "            "
        End If
    colz = Mid(Range("z" & RR).Value, 1, 26)
        If colz <> "" Then
            colz = Format(colz, "!@@@@@@@@@@@@@@@@@@@@@@@@@@")
        Else
            colz = "                          "
        End If
    colaa = Mid(Range("aa" & RR).Value, 1, 10)
        If colaa <> "" Then
            colaa = Format(colaa, "!@@@@@@@@@@")
        Else
            colaa = "          "
        End If
    colab = Mid(Range("ab" & RR).Value, 1, 1)
        If colab <> "" Then
            colab = Format(colab, "!@")
        Else
            colab = " "
        End If
    colac = Mid(Range("ac" & RR).Value, 1, 12)
        If colac <> "" Then
            colac = Format(colac, "000000000000")
        Else
            colac = "            "
        End If
    colad = Mid(Range("ad" & RR).Value, 1, 1)
        If colad <> "" Then
            colad = Format(colad, "!@")
        Else
            colad = " "
        End If
    colae = Mid(Range("ae" & RR).Value, 1, 16)
        If colae <> "" Then
            colae = Format(colae, "!@@@@@@@@@@@@@@@@")
        Else
            colae = "                "
        End If
    colaf = Mid(Range("af" & RR).Value, 1, 2)
        If colaf <> "" Then
            colaf = Format(colaf, "!@@")
        Else
            colaf = "  "
        End If
    colag = Mid(Range("ag" & RR).Value, 1, 2)
        If colag <> "" Then
            colag = Format(colag, "!@@")
        Else
            colag = "  "
        End If
    colah = Mid(Range("ah" & RR).Value, 1, 10)
        If colah <> "" Then
            colah = Format(colah, "ddmmyyyy")
        Else
            colah = "    "
    End If
    colai = Mid(Range("ai" & RR).Value, 1, 80)
        If colai <> "" Then
            colai = Format(colai, "!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@")
        Else
            colai = "                                                                                "
    End If
    colaj = Mid(Range("aj" & RR).Value, 1, 11)
        If colaj <> "" Then
            colaj = Format(colah, "!@@@@@@@@@@@")
        Else
            colaj = "           "
        End If
    colak = Mid(Range("ak" & RR).Value, 1, 34)
        If colak <> "" Then
            colak = Format(colak, "!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@")
        Else
            colak = "                                  "
    End If
    colal = Mid(Range("al" & RR).Value, 1, 1)
        If colal <> "" Then
            colal = Format(colal, "!@")
        Else
            colal = " "
        End If
    colam = Mid(Range("am" & RR).Value, 1, 16)
        If colam <> "" Then
            colam = Format(colal, "!@@@@@@@@@@@@@@@@")
        Else
            colam = "                "
        End If
    colan = Mid(Range("an" & RR).Value, 1, 1)
        If colan <> "" Then
            colan = Format(colan, "!@")
        Else
            colan = " "
        End If
    colao = Mid(Range("ao" & RR).Value, 1, 8)
        If colao <> "" Then
            colao = Format(colao, "!@@@@@@@@")
        Else
            colao = "        "
        End If
    colap = Mid(Range("ap" & RR).Value, 1, 4)
        If colap <> "" Then
            colap = Format(colap, "!@@@@")
        Else
            colap = "    "
        End If
    colaq = Mid(Range("aq" & RR).Value, 1, 35)
        If colaq <> "" Then
            colaq = Format(colaq, "!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@")
        Else
            colaq = "                                   "
        End If
    colar = Mid(Range("ar" & RR).Value, 1, 34)
        If colar <> "" Then
            colar = Format(colar, "!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@")
        Else
            colar = "                                  "
        End If
    Print #1, colC & cold & colE & colf & colg & colh & coli & colj & colk & coll & colm & coln & colo & colp & colq & colr & cols & colt & colu & colv & colw & colX & coly & colz & colaa & colab & colac & colad & colae & colaf & colag & colah & colai & colaj & colak & colal & colam & colan & colao & colap & colaq & colar
    Next RR
    Close #1
End Sub


Mi rimane solo una domanda, come faccio a salvare il file txt nella stessa posizione dove è salvato il file excel? grazie!!:)
escounpo
Newbie
 
Post: 5
Iscritto il: 26/03/13 17:02

Re: [Excel] Trasferire dati in file txt con VBA

Postdi ricky53 » 02/04/13 16:15

Ciao,
prova, nel tuo codice, a cambiare
Codice: Seleziona tutto
Perc = "d:\" '<<<<<<<<<<<<<<<<<<<<<<<<<< inserisci il percorso effettivo

con
Codice: Seleziona tutto
Perc = ActiveWorkbook.Path & "\"
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: [Excel] Trasferire dati in file txt con VBA

Postdi escounpo » 02/04/13 16:26

Grazie!!!:)
escounpo
Newbie
 
Post: 5
Iscritto il: 26/03/13 17:02

Re: [Excel] Trasferire dati in file txt con VBA

Postdi ricky53 » 02/04/13 16:28

Ciao,
di nulla.
Alla prossima.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "[Excel] Trasferire dati in file txt con VBA":


Chi c’è in linea

Visitano il forum: Nessuno e 12 ospiti