Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

macro per importare dati file txt in excel

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: macro per importare dati file txt in excel

Postdi biancocandido55 » 16/04/09 07:51

Ciao Flash30005,
ti ringrazio come sempre della tua disponibilità, mentre stavo scrivendo deve esserci stato qualche accavallamento di post e non ha salvato nel topic il mio thread precedente delle 07:32, comunque stavo scrivendo che ho caricato anche gli altri giorni, e ho notato che, come già detto la macro funziona, ma se una persona esce + volte durante la giornata, segnala solo la 1 entrata e la 1 uscita, delle altre eventuali uscite ed entrate non ne tiene conto.
Fiducioso come sempre, rimando in attesa
un abbraccio
ciao
biancocandido55
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Sponsor
 

Re: macro per importare dati file txt in excel

Postdi Flash30005 » 16/04/09 14:05

Per Biancocandido
La macro controlla matricola e giorno in caso di questi due campi identici non scrive altri record per evitare duplicazione di dati, del resto i file testo inviati non prevedevano altre entrate o uscite nella stessa giornata, comunque si può rimediare inserendo un ulteriore controllo: quello dell'ora a questo punte registrerà il record anche se dovesse essere nella stessa giornata.

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: macro per importare dati file txt in excel

Postdi biancocandido55 » 16/04/09 15:51

Ciao Flash30005,
in effetti sia negli esempi che nei primi 4 file originali degli orari non c'erano scritte ulteriori uscite od entrate nella stessa giornata fino a che 2 colleghi nei giorni successivi sono usciti ed entrati più volte per lavoro.
Rimango in attesa per ulteriori migliorie agli orari e l'archiviazione dati come ai suggerito nel post precedente,
di nuovo grazie e e a prè
ciao biancocandidoImmagine
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: macro per importare dati file txt in excel

Postdi Flash30005 » 17/04/09 11:04

Per Biancocandido
Sostituisci tutta le macro con questo codice
Codice: Seleziona tutto
Private FullNome
Sub ScegliFile()
With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .Filters.Clear
        .Filters.Add "All files", "*.*"
        .Filters.Add "Text", "*.txt", 1
        .Show
     If .SelectedItems.Count = 0 Then
     MsgBox ("Nessuna voce selezionata, procedura annullata")
     GoTo Esci
     End If
For I = 1 To .SelectedItems.Count
     FullNome = .SelectedItems(I)
    Call Caricamento
Next I
    End With
Esci:
End Sub
Sub Caricamento()
Contr = ""
    Open FullNome & riga0 For Input As #2
        Do Until EOF(2)

            Line Input #2, Riga
            Ev = Mid(Riga, 1, 1)
            CC = 3
            If Ev = "U" Then CC = 4
            Matr = Mid(Riga, 2, 9)
            Giorno = Mid(Riga, 11, 8)
            DataF = Mid(Giorno, 5, 4) & Mid(Giorno, 3, 2) & Mid(Giorno, 1, 2)
            Ora = Mid(Riga, 19, 8)
            Giorno = Format(Mid(Giorno, 1, 2) & "-" & Mid(Giorno, 3, 2) & "-" & Mid(Giorno, 5, 4), "mm-dd-yyyy")
            Ora = Mid(Ora, 1, 2) & ":" & Mid(Ora, 3, 2) & ":" & Mid(Ora, 5, 2)
            Esci = 0
            Sheets(Matr).Select
            Y = Range("D" & Rows.Count).End(xlUp).Row + 1
            Sheets(Matr).Cells(Y, 1).FormulaR1C1 = "=IF(RC[1]="""","""",VLOOKUP(RC[1],Elenco!R2C:R300C[1],2,FALSE))"
            Sheets(Matr).Cells(Y, 2).Value = Matr
            Sheets(Matr).Cells(Y, 3).Value = Giorno
            Sheets(Matr).Cells(Y, CC + 1).Value = Ora
            Sheets(Matr).Cells(Y, 7).FormulaR1C1 = "=RC[-2]-RC[-3]-R1C[1]"
            Y = Y + 1
    Loop
    Close #2
    File = Mid(FullNome, InStrRev(FullNome, "\") + 1, 50)
    Percorso = Mid(FullNome, InStrRev(FullNome, ":") - 1, InStrRev(FullNome, "\"))
    inpfile = FullNome
    outfile = Percorso & "ArchivioTxt\" & File

    On Error Resume Next
    FileCopy inpfile, outfile
    Kill FullNome
    On Error GoTo 0

End Sub


Inoltre l'Ora Uscita non è più nella colonna F ma nella colonne E (ho eliminato data Uscita) quindi formatta la colonna con hh:mm:ss comunque invio mio file test che, nel caso volessi usarlo dovrai mettere Nomi e Matricole corrette.

ciao
Allegati

[L’estensione zip è stata disattivata e non puó essere visualizzata.]

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: macro per importare dati file txt in excel

Postdi biancocandido55 » 21/04/09 18:11

ciao Flash30005,
questa mattina abbiamo collaudato la macro e sembra funzionare, dico sembra perchè non si sa mai, :D :D scherzetto, funziona abbastanza bene, l'ho fatta girare 3 volte con giorni diversi prima e poi tutti insieme,
non posso fare altro che ringraziare te ed Anthony, per l'aiuto che mi avete dato a risolvere questo problema,
un abbraccio e grazie di tutto.
ciao
biancocandidoImmagine

P.S. Mi farò risentire al più presto, con altri topic
biancocandido55
Utente Senior
 
Post: 305
Iscritto il: 03/03/06 10:15

Re: macro per importare dati file txt in excel

Postdi Gattuccio0 » 22/06/09 13:09

Ciao a tutti,
sono una new entry...di quelle very, very ignoranti in quanto utilizzo i programmi al 30% delle loro possibilità. Non per mancanza di voglia di imparare ma, purtroppo, non mi capitano operazioni particolari o compiti da poter assolvere. Ma forse questa è la volta buona. Vengo al dunque.
Ho una cartella sul computer -poniamo si chiami Pippo - che contiene qualche migliaio di documenti .doc relativi a ricette gastronomiche (per cui internamente i files hanno pressochè la stessa formattazione).
Il software aziendale di ricerca che usiamo ha la possibilità (anche se gira su Macintosh) di importare tabelle da Excel.
Al fine di avere un foglio di calcolo che abbia colonna A con titolo ricetta e una colonna B che abbia il contenuto della ricetta (titolo, ingredienti, preparazione) dovrei far si che possa creare un automatismo o una macro che mi vada a prendere i files nella cartella Pippo, che apra i singoli file, che ne copi i testi e che me li importi nella colonna B 8per cui in ordine crescente i files dovrebbero andare a riempire le celle B1, B2, B3, e così via.

E' possibile?
Vi ringrazio fin d'ora per le risposte che mi darete (e per la pazienza).
Miao
Gattuccio0
Utente Senior
 
Post: 176
Iscritto il: 22/06/09 12:46

Re: macro per importare dati file txt in excel

Postdi ricky53 » 22/06/09 15:22

Ciao,
dovresti aprire una nuova discussione.

Oppure un Moderatore potrebbe sostare qaunto da te scritto e cancellare il mio intervento.
Grazie.
Ciao da Ricky53
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: macro per importare dati file txt in excel

Postdi Gattuccio0 » 22/06/09 20:08

Grazie Ricky, ho creato un altro topic (vi avvevo avvisati che ero ignorante ;->)
Gattuccio0
Utente Senior
 
Post: 176
Iscritto il: 22/06/09 12:46

Re: macro per importare dati file txt in excel

Postdi socrat3 » 06/06/10 10:26

Prima di tutto salve a tutto il forum... sono un nuovo utente

Salve ho visto questo topic che importa un file txt dentro excel. E' un problema relativo alle timbrature...

Non trovo piu' gli allegati indicati potete mandarli come link su rapidshare.

Grazie
socrat3
Utente Junior
 
Post: 14
Iscritto il: 06/06/10 10:05

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "macro per importare dati file txt in excel":


Chi c’è in linea

Visitano il forum: Nessuno e 15 ospiti