| | Post: 130 | Registrato il: 04/11/2016
| Città: SASSARI | Età: 48 | Utente Junior | 2010 | | OFFLINE | |
|
  12/03/2017 10:57 | |
SALVE A TUTTI,
volevo sapere se esiste un modo (con macro) per copiare ed incollare appunto il contenuto di un range di celle ess:("A1:F1000000"), su un file di txt.
ho guardato in giro ma non ho trovato quello che fa al caso mio .
grazie [Modificato da ema.cab 12/03/2017 10:59] |
|
| | Post: 3.759 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
| 12/03/2017 11:49 | |
copiare ed incollare su un file oppure creare un txt con quel contenuto ? nel secondo caso
Sub toText()
sn = Range("A1:F100")
For j = 1 To UBound(sn)
c00 = c00 & Join(Application.Index(sn, j, 0), vbTab) & vbCrLf
Next
CreateObject("scripting.filesystemobject").createtextfile("F:\Download\file.txt").write c00
End Sub[Modificato da patel45 12/03/2017 12:00]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 130 | Registrato il: 04/11/2016
| Città: SASSARI | Età: 48 | Utente Junior | 2010 | | OFFLINE | |
|
| 12/03/2017 12:35 | |
ciao PATEL, GRAZIE
ma... stavo pensando piu' per un copia incolla su un file txt,
ora provo se puo' andar bene anche cosi'.
ps:
questo pezzo di codice ("F:\Download\file.txt") e' la directory?
[Modificato da ema.cab 12/03/2017 12:37] |
| | Post: 131 | Registrato il: 04/11/2016
| Città: SASSARI | Età: 48 | Utente Junior | 2010 | | OFFLINE | |
|
| 12/03/2017 12:48 | |
SEMBA che vada bene.
si potrebbe rinominare il file?, visto che ogni volta che eseguo la macro mi sovrascrive sul file precedente...
PS: INVECE REALIZZANDO UNA MACRO COPIA ED INCOLLA ?
come sarebbe il risultato?
[Modificato da ema.cab 12/03/2017 13:08] |
| | Post: 3.761 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
| 12/03/2017 18:32 | |
non mi sembra sensato fare COPIA ED INCOLLA, dovresti spiegare meglio cosa intendi
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 132 | Registrato il: 04/11/2016
| Città: SASSARI | Età: 48 | Utente Junior | 2010 | | OFFLINE | |
|
| 12/03/2017 19:32 | |
CAPISCO...
con questa macro va bene....
ps:
si potrebbe rinominare il file?, visto che ogni volta che eseguo la macro mi sovrascrive sul file precedente......
[Modificato da ema.cab 13/03/2017 14:36] |
| | Post: 133 | Registrato il: 04/11/2016
| Città: SASSARI | Età: 48 | Utente Junior | 2010 | | OFFLINE | |
|
| 13/03/2017 14:38 | |
Qualche soluzione? |
| | Post: 134 | Registrato il: 04/11/2016
| Città: SASSARI | Età: 48 | Utente Junior | 2010 | | OFFLINE | |
|
| 14/03/2017 07:53 | |
qualcuno sa come
si potrebbe rinominare il file?, visto che ogni volta che eseguo la macro mi sovrascrive sul file precedente...... |
| | Post: 3.763 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
| 14/03/2017 08:19 | |
riserva una cella per il numero della copia, ad esempio Z1 e scrivici 1
Sub toText()
fname = "F:\Download\file" & Range("Z1") & ".txt"
sn = Range("A1:F100")
For j = 1 To UBound(sn)
c00 = c00 & Join(Application.Index(sn, j, 0), vbTab) & vbCrLf
Next
CreateObject("scripting.filesystemobject").createtextfile(fname).write c00
Range("Z1").value = Range("Z1").value + 1
End Sub
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 135 | Registrato il: 04/11/2016
| Città: SASSARI | Età: 48 | Utente Junior | 2010 | | OFFLINE | |
|
| 14/03/2017 14:45 | |
OTTIMO
ti ringrazio patel45 |
|
|
|
|