| | Post: 142 | Registrato il: 17/07/2011
| Età: 27 | Utente Junior | excel 2000/2007 | | OFFLINE | |
|
02/04/2017 08:30 | |
Ciao a tutti.
Ho un file trovato in rete che è in formato CVS e lo devo importare in excel.
In allegato ora è in formato .txt.
Ho provato da excel > dati > importa da testo > importo il testo
si visualizza la maschera importazione guidata > delimitato
ma non si incolonna come dovrebbe essere.
Si dovrebbe incolonnare in 3 campi
giorno
mese
santi
il file cvs l'ho trovato qui:
http://www.senamion.it/2006/11/08/tabella-con-tutti-i-santi-in-csv-per-sviluppare-calendari/
un aiuto?
igor
excel 2007 |
|
| | Post: 142 | Registrato il: 17/07/2011
| Età: 27 | Utente Junior | excel 2000/2007 | | OFFLINE | |
|
02/04/2017 08:44 | |
Ho provato anche con:
notepad > incollato il testo > salva in tutti i file formato .cvs
aperto con excel ma all fine un sola lunga riga.
igor
excel 2007 |
| | Post: 3.796 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
02/04/2017 08:50 | |
il csv che hai trovato manca dei ritorni accapo quindi su excel rimane tutto sulla prima riga, usa il file allegato
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 143 | Registrato il: 17/07/2011
| Età: 27 | Utente Junior | excel 2000/2007 | | OFFLINE | |
|
02/04/2017 08:54 | |
Grazie patel,
adesso mi spieghi come hai fatto, a me continuava con un'unica riga
igor
excel 2007 |
| | Post: 144 | Registrato il: 17/07/2011
| Età: 27 | Utente Junior | excel 2000/2007 | | OFFLINE | |
|
02/04/2017 09:26 | |
Può essere, qui un esempio tra le 2 "" ""
"Genoveffa " "4";"1";
mancava il a capo?
C'è un simobolo?
igor
excel 2007 |
| | Post: 3.800 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
02/04/2017 12:30 | |
con notepad ho sostituito " " con ";"
poi ho aperto il file con excel ed ho incolonnato l'unica riga con una macro
Sub a()
LC = Range("A1").CurrentRegion.Columns.Count
dr = 2
For c = 1 To LC Step 3
Range(Cells(1, c), Cells(1, c + 2)).Copy Cells(dr, 1)
dr = dr + 1
Next
End Sub
magari con un editor più sofisticato si potrebbe sostituire " " con "accapo" ed fare a meno della macro [Modificato da patel45 02/04/2017 12:33]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 145 | Registrato il: 17/07/2011
| Età: 27 | Utente Junior | excel 2000/2007 | | OFFLINE | |
|
02/04/2017 19:18 | |
Grazie patel,
Ora ho aggiunto al foglio questa macro che all'avvio dovrebbe dirmi
il nome del santo pescando dalla tabella:
Option Explicit
Private Sub Workbook_Open()
'--------------------------------------------------------------------------
Dim AckTime As Integer, InfoBox As Object
'avviso avvio
Set InfoBox = CreateObject("WScript.Shell")
'Set the message box to close after 10 seconds
AckTime = 5
Select Case InfoBox.Popup("Buongiorno sign. " & Environ("UserName") & Chr(13) & _
"ricordati di aggiornare........." & Chr(13) & _
"Buon lavoro. " & Chr(13) & "" & Chr(13) & _
"oggi è " & Format(Date, "dddd - dd - mmmm - yyyy") & Chr(13) & _
"il santo/i di oggi è/sono:" & Chr(13) & _
"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", _
AckTime, "AVVISO", vbOKOnly + vbInformation)
Case 1, -1
Exit Sub
End Select
'--------------------------------------------------------------------------
End Sub
nel punto:
"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", _
un aiuto?.
Allego il file di esempio.
igor
excel 2007 |
| | Post: 3.803 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
02/04/2017 22:56 | |
Dim AckTime As Integer, InfoBox As Object, mese, giorno, r, santi
mese = Month(Date)
giorno = Day(Date)
santi = ""
For r = 2 To 367
If Cells(r, 1) = giorno And Cells(r, 2) = mese Then
santi = Cells(r, 3)
Exit For
End If
Next
Set InfoBox = CreateObject("WScript.Shell")
AckTime = 10
Select Case InfoBox.Popup("Buongiorno sign. " & Environ("UserName") & Chr(13) & _
"ricordati di aggiornare........." & Chr(13) & _
"Buon lavoro. " & Chr(13) & "" & Chr(13) & _
"oggi è " & Format(Date, "dddd - dd - mmmm - yyyy") & Chr(13) & _
"il santo/i di oggi è/sono:" & Chr(13) & santi, _
AckTime, "AVVISO", vbOKOnly + vbInformation)
Case 1, -1
Exit Sub
End Select
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 146 | Registrato il: 17/07/2011
| Età: 27 | Utente Junior | excel 2000/2007 | | OFFLINE | |
|
02/04/2017 23:04 | |
Eccezzionale patel! è o.k.
Un saluto e grazie.
igor
excel 2007 |
|
|