| | Post: 13 | Registrato il: 26/10/2016
| Città: MILANO | Età: 61 | Utente Junior | excel 2013 | | OFFLINE | |
|
09/05/2019 00:05 | |
Ciao a tutti
in un file Excel che allego ho dei dati colonne A,B,C
tramite il pulsante crea un txt prova1.txt al quale ogni volta manualmente viene cambiata la formattazione per essere importato in un programma vedi Prova2.txt e possibile automatizzare la cosa
[Modificato da osmantus 09/05/2019 00:08] |
|
| | Post: 5.661 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
09/05/2019 15:44 | |
Trasferimento dati in Txt Ciao in che senso viene cambiata la formattazione?
ogni volta i dati contenuti nel file "Prova" devono cambiare formato?, ma un file txt "Blocco Note" non riporta la formattazione, ma solo eventuali testo a capo o righe vuote.
Ciao By Sal
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 13 | Registrato il: 26/10/2016
| Città: MILANO | Età: 61 | Utente Junior | excel 2013 | | OFFLINE | |
|
09/05/2019 22:02 | |
Trasferimento dati in Txt Ciao e grazie Sal
i dati del file xls ho portato un breve esempio cambiano oogni mese e sono riferiti a 6 dipendenti e per tutto il mese
codice società+matricola dipe 00FIA 0000001
anno mese gg preceduto sempre da 01 0120190301
assenza(O ore ordinarie FE ferie) e ore O070000
99+annomese =riepilogo del mese 99201903 ORD12600000
Vorrei crare il txt come Prova2.txt con quelle tabulazioni
00FIA 0000001
0120190306 O050000
0120190306 RL 020000
0120190307 O070000
0120190308 FE 070000
0120190311 FE 070000
99201903 RL H002000000
99201903 FE H014000000
99201903 ORD H012000000
|
| | Post: 4.142 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
10/05/2019 07:44 | |
Con queste spiegazioni sarà difficile ottenere aiuto
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 14 | Registrato il: 26/10/2016
| Città: MILANO | Età: 61 | Utente Junior | excel 2013 | | OFFLINE | |
|
10/05/2019 20:49 | |
Trasferimento dati in Txt ciao Patel
allego il file Excel che ricevo e il file txt che vorrei ottenere |
| | Post: 4.143 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
11/05/2019 10:48 | |
avevi già allegato i file, ma mancano le spiegazioni, il criterio da seguire, in particolare la quarta e sesta riga
Come hai potuto notare non ti risponde nessuno [Modificato da patel45 11/05/2019 10:49]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 15 | Registrato il: 26/10/2016
| Città: MILANO | Età: 61 | Utente Junior | excel 2013 | | OFFLINE | |
|
11/05/2019 21:59 | |
Ciao,
Spero di spiegarmi …..
in pratica il file txt deve essere cosi composto
la colonna B deve andare sotto la 1 riga(0120190301)
colonna C
tutte le stringhe che iniziano con una sola lettera(O07000)
devono andare ad un distanza di 22 spazi dalla stringa corrispondente
le stringhe che iniziano con 2 lettere (es RL020000)
le lettere devono andare ad una distanza di 12 spazi dalla stringa
corrispondente e la restante parte dopo 6 spazi dalle lettere
nelle ultime righe dove c'e' 9920103
le 2 lettere devono andare dopo 12 spazi e la stringa che inizia con l'H dopo 6 spazi dalle lettere
|
| | Post: 4.144 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
12/05/2019 08:57 | |
prova questa
Sub SaveToText()
Set Zona = ActiveSheet.UsedRange
Nr = Zona.Rows.Count
DestFile = "F:\Download\Testo.txt"
FileNum = FreeFile()
On Error Resume Next
Open DestFile For Output As #FileNum
For r = 1 To Nr
If r = 1 Then
s = Zona.Cells(r, 1).Text
Else
s = Zona.Cells(r, 2).Text
cellaC = Zona.Cells(r, 3).Text
s1 = Left(cellaC, 2)
s2 = Right(cellaC, Len(cellaC) - 2)
If IsNumeric(Mid(cellaC, 2, 1)) Then
s = s & Space(22) & Zona.Cells(r, 3).Text
Else
If Len(Zona.Cells(r, 2).Text) = 8 Then
s = s & Space(14) & s1 & Space(6) & s2
Else
s = s & Space(12) & s1 & Space(9) & s2
End If
End If
End If
Print #FileNum, s
Next
Close #FileNum
End Sub [Modificato da patel45 12/05/2019 08:58]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 16 | Registrato il: 26/10/2016
| Città: MILANO | Età: 61 | Utente Junior | excel 2013 | | OFFLINE | |
|
12/05/2019 15:13 | |
Trasferimento dati in Txt Grazieee..1000
ti chiedo 2 cose se possibile :
La prima e qui mi son dimenticato io...se invece di 2 lettere ci sono 3 lettere le 3 lettere devono andare sempre dopo 12 spazi e la stringa che inizia con l'H dopo 5 spazi dalle lettere
l'altra : se nel file Excel colonna B dove ci sono le date 01AAAMMGG e possibile inserire i sabati e domeniche del mese in questo caso marzo
0120190301
0120190302
0120190303 |
|
|