Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

file cvs

Ultimo Aggiornamento: 02/04/2017 23:04
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, [SM=g27811]
adesso mi spieghi come hai fatto, a me continuava con un'unica riga [SM=g27826] [SM=g27826] [SM=g27826]
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! [SM=g27811] è o.k. [SM=g27811]
Un saluto e grazie. [SM=g27823]
igor


excel 2007
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 10:02. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com