Condividi:        

Excel ho un problema

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

Excel ho un problema

Postdi Francesco53 » 06/07/13 21:41

Un saluto a tutti, in base a questa vecchia richiesta,
viewtopic.php?f=26&t=99366&p=572506#p572506
ho il seguente problema:
Il foglio che esporta e dati utilizza le seguenti macro, come da indicazioni di Ricky e Flash:
Codice: Seleziona tutto
Option Explicit

    Sub DatiOrizzontali()
    'Orizzontale
    'Corretta posizione come indicato da Flash
    'scarica ultime 100 estrazioni in Orizzontale
    Application.ScreenUpdating = False
    Sheets("Foglio7").Select
        Dim WS As Worksheet, Fin As Long, Ini As Long, I As Long, J As Integer, myFileName As String
        Dim stringOfText As String
        myFileName = "C:\pcfacile\datiExcel.txt"
       
        Set WS = Sheets("Foglio7")
        Fin = Cells(1, 1) + 1  'WS.Cells(Rows.Count, "C").End(xlUp).Row
        Ini = Fin - 100 + 1
    '   Qui metti la  "Open"  in output del file "datiExcel.txt" da scrivere
        Open myFileName For Output As 1
        stringOfText = ""
        For I = Ini To Fin
            'stringOfText = ""
            For J = 1 To 57 ' <<====== 26 è la colonna "Z"
                stringOfText = stringOfText & WS.Cells(I, J).Value & " " '";" ' <<=== Ho scelto come separatore della colonne il ";"
            Next J
            stringOfText = stringOfText & vbNewLine
    ' qui scrivi la riga con la stringa compilata
            'Print #1, stringOfText
        Next I
        Print #1, stringOfText
    ' qui chiudi il file txt
        Close 1
        Set WS = Nothing
        Sheets("Foglio1").Select
        Range("A1").Select
        Application.ScreenUpdating = True
        MsgBox "Elaborazione effettuata"
    End Sub

Il problema che riscontro è quello che chiudendo il foglio mi succede quanto riportato dalle immagini che allego:
Immagine
Non mi da la possibilità di uscire dall'applicativo,
Immagine
se clicco sulla X in alto a destra, mi da il seguente errore:
Immagine
Pur avendo utilizzato in altre circostanze la macro, non avevo dato peso al problema,
ora che però utilizzo più spesso il tutto, la cosa incomincia ad essere fastidiosa.
Spero che qualcuno possa aiutarmi.
Grazie
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Sponsor
 

Re: Excel ho un problema

Postdi ricky53 » 06/07/13 22:52

Ciao,
non ho il 2007 ma ho provato con il 2010 e il 2013: Il file è stato salvato senza problemi ed è stato scritto bene.

Hai provato con un nuovo file?



solo per precisione e correttezza formale ho fatto due modifiche al codice
Codice: Seleziona tutto
Option Explicit

Sub DatiOrizzontali()
    'Orizzontale
    'Corretta posizione come indicato da Flash
    'scarica ultime 100 estrazioni in Orizzontale
    Application.ScreenUpdating = False
   
'........................................................
'    Sheets("Foglio7").Select ' Puoi eliminarla !!!
'........................................................
       
        Dim WS As Worksheet, Fin As Long, Ini As Long, I As Long, J As Integer, myFileName As String
        Dim stringOfText As String
        myFileName = "C:\pcfacile\datiExcel.txt"
       
        Set WS = Sheets("Foglio7")
       
'........................................................
' Va aggiunto Ws. davanti a Cells(1, 1) + 1
' come nell'istruzione che avevo scritto io
        Fin = Cells(1, 1) + 1  'WS.Cells(Rows.Count, "C").End(xlUp).Row
'........................................................
       
        Ini = Fin - 100 + 1
    '   Qui metti la  "Open"  in output del file "datiExcel.txt" da scrivere
        Open myFileName For Output As 1
        stringOfText = ""
        For I = Ini To Fin
            'stringOfText = ""
            For J = 1 To 57 ' <<====== 26 è la colonna "Z"
                stringOfText = stringOfText & WS.Cells(I, J).Value & " " '";" ' <<=== Ho scelto come separatore della colonne il ";"
            Next J
            stringOfText = stringOfText & vbNewLine
    ' qui scrivi la riga con la stringa compilata
            'Print #1, stringOfText
        Next I
        Print #1, stringOfText
    ' qui chiudi il file txt
        Close 1
        Set WS = Nothing
        Sheets("Foglio1").Select
        Range("A1").Select
        Application.ScreenUpdating = True
        MsgBox "Elaborazione effettuata"
End Sub
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Excel ho un problema

Postdi Francesco53 » 07/07/13 09:33

Buongiorno Ricky e grazie per l'interessamento,
ho già provato a creare un nuovo file, ma purtroppo il problema persiste,
ho anche provato la tua nuova macro, e mi da il seguente errore di Runtime 1004
su questa riga, che per assurdo è uguale a quella preesistente e non dava errore:
Codice: Seleziona tutto
stringOfText = stringOfText & WS.Cells(I, J).Value & " "

La sensazione che ricavo dal problema che ho esposto, è che una volta esportato
il testo, rimanga appeso qualcosa che poi impedisce a excel di chiudere normalmente,
tanto è vero che se apro e chiudo il foglio senza esportare i dati, chiude regolarmente
il programma, pertanto è qualcosa legato alla macro che rimane appesa e non consente
il regolare chiudersi di Excel.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: Excel ho un problema

Postdi Flash30005 » 07/07/13 14:44

Prova a leggere questa discussione per ripristinare excel
http://www.pc-facile.com/forum/viewtopic.php?f=26&t=98539&p=566994&hilit=xlstart#p566994

La cartella XlStart può trovarsi in un altro percorso
dipende dal SO

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel ho un problema

Postdi Francesco53 » 07/07/13 22:14

Ciao Flash, la Cartella XLStart è l'unica presente nella cartella Excel ed è vuota.
Purtroppo non deve essere quella la difficoltà.
Grazie per l'interessamento, speriamo di trovare il problema con tutti i vostri aiuti.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: Excel ho un problema

Postdi ricky53 » 07/07/13 23:03

Ciao,
hai provato su un altro PC?

quanto valgono I e J ?
cosa contiene la cella WS.Cells(I, J)

che versione di Office utilizzi?


Leggi quanto riportato in questo LINK di Microsoft forse potrebbe esserti utile


E' il massimo che posso fare.
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Excel ho un problema

Postdi Flash30005 » 08/07/13 07:17

Non hai letto attentamente la discussione
oltre ad essere vuota la cartella XlStart
dovresti eliminare* il file che si trova nella cartella Excel (root di xlstart)
file denominato
Excel11.xlb (nel caso di excel 2003)
Excel12.xlb (nel caso di excel 2007)
o
Excel14.xlb (nel caso di excel 2010)
ed eliminare* altri eventuali file contenuti nella stessa cartella (Excel)

(*) potresti spostarlo/li in altra cartella invece di eliminarlo/i
Il file Excelxx.xlb verrà ricreato all'apertura di excel

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel ho un problema

Postdi Francesco53 » 08/07/13 10:22

Buongiorno Flash,
la cartella "C:\Users\NomeUtente\AppData\Roaming\Microsoft\Excel"
è vuota, come è vuota la cartella XLStart unica presente all'interno
della cartella "C:\Users\NomeUtente\AppData\Roaming\Microsoft\Excel".
Naturalmente ho nelle opzioni abilitato la visualizzazione dei file di sistema
o nascosti, con Cerca ho cercato il file che mi hai indicato, Excel12.xlb
(nel caso di excel 2007) e non lo trova, non sò il perchè ma è così.
Grazie per l'interessamento,
per Richy sistema operativo windows vista con office 2007,
provato file su altro pc con stesse caratteristiche funziona senza il problema.
Pertanto è qualche configurazione nel mio che non và, purtroppo non riesco
a risolvere neppure cercando i file suggeriti da Flash causa non ritrovati nel pc.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: Excel ho un problema

Postdi ricky53 » 08/07/13 10:52

Ciao,
quindi abbiamo appurato che dipende da qualcosa che c'è nella tua installazione dei excel.

Strano con tu non riesca a trovare il file che ti ha indicato Flash:
prova a posizionarti su questa cartella

C:\Users\TUO-NOME-Utente\AppData
e cerca
excel12.xlb
oppure
excel*.xl*
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Excel ho un problema

Postdi Francesco53 » 08/07/13 11:41

Ciao Ricky, purtroppo è come ho scritto, non c'è il file che mi dite di cercare.
Le cartelle sono entrambe completamente vuote.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: Excel ho un problema

Postdi ricky53 » 08/07/13 11:43

Ciao,
il file, se non esiste, viene creato all'apertura di excel.
Comunque viene aggiornato ogni volta che excel viene aperto.

Strano che tu non lo riesca a trovare.


Prova a scaricare un software che cerca i file nel PC per esempio FileSeek (è free) e cerca con questo software il famoso file.

Aggiornaci.
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Excel ho un problema

Postdi Francesco53 » 08/07/13 14:26

CIao Ricky, ho provato con il programma che mi hai consigliato e questo è il risultato:
Immagine
ho provato anche con excel*.xl*, ma purtroppo non trova il file.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: Excel ho un problema

Postdi ricky53 » 08/07/13 15:20

Caio,
come percorso devi inserire "C:\" e poi mettere il check su "Search SubFolder"
prova con "excel*.xl*"

Tu hai la versione successiva alla mia e non so in quale "cartella" si deve impostare il check !!!
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Excel ho un problema

Postdi Francesco53 » 08/07/13 17:39

Un saluto a tutti, ho trovato il file, lo cancellato ed ho aperto nuovamente Excel,
è stato ricreato il file, allego immagine:
Immagine
purtroppo il problema persiste.
Penso che ormai abbiate fatto tutto il possibile e vi ringrazio.
Ho trovato tramite google un esempio che ho poi modificato
per il mio utilizzo e funziona senza problemi, unico neo è che
la macro di ricky, con le variazioni suggerite da Flash, impiegava
0.16 sec., questa impiega 2.99 sec.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: Excel ho un problema

Postdi ricky53 » 08/07/13 17:53

Ciao,
invia il codice e ...
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Excel ho un problema

Postdi Francesco53 » 08/07/13 18:37

Ciao Ricky, il codice che utilizzo è il seguente:
Codice: Seleziona tutto
Sub EsportaDati()
    'Orizzontale
Application.ScreenUpdating = False
Sheets("Archivio").Visible = True
Sheets("Archivio").Activate
Set Zona = Worksheets("Archivio").UsedRange
Fin = Cells(1, 1) + 1
Ini = Fin - 100 + 1
Set Zona = Worksheets("Archivio").Range(Cells(Ini, 1), Cells(Fin, 57))
Dim DestFile As String
Dim FileNum As Integer
Dim ColumnCount As Integer
Dim RowCount As Integer
DestFile = "C:\pcfacile\DatiOrizz.txt"
FileNum = FreeFile()
On Error Resume Next
Open DestFile For Output As #FileNum
If Err <> 0 Then
MsgBox "Impossibile aprire il file " & DestFile
End
End If
On Error GoTo 0
For RowCount = 1 To Zona.Rows.Count
For ColumnCount = 1 To Zona.Columns.Count
Print #FileNum, "" & Zona.Cells(RowCount, ColumnCount).Text & "";
If ColumnCount = Zona.Columns.Count Then
Print #FileNum,
Else
Print #FileNum, " ";
End If
Next ColumnCount
Next RowCount
        Sheets("Foglio1").Select
        Range("A1").Select
        Application.ScreenUpdating = True
        MsgBox "Elaborazione effettuata"
End Sub

Rispetto alla macro che mi hai inviato tu è più lenta come scritto sopra, però non mi da il problema esposto.
Grazie
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: Excel ho un problema

Postdi ricky53 » 08/07/13 23:51

Ciao,
con la macro hai risolto ma non è stato scoperto e poi rimosso il problema.
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Excel ho un problema

Postdi Flash30005 » 09/07/13 01:12

Non mi puoi dire che
1) la cartella "C:\Users\NomeUtente\AppData\Roaming\Microsoft\Excel" è vuota
2) Naturalmente ho nelle opzioni abilitato la visualizzazione dei file di sistema o nascosti

Perché se è vero il punto 2)
dovresti avere il file Excel12.xlb nella cartella Excel (e contemporaneamente, in questo percorso, la cartella XlStart)
senza il file Excel non potrebbe funzionare infatti se lo ricrea ogni volta
Nel tuo caso dovresti cancellare il file preesistente cosa che non fai perché non lo "vedi"

In Windows devi mettere anche l'opzione di visualizzazione file e cartelle di sistema
perché il file deve essere visibile per poterlo cancellare non trovare

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel ho un problema

Postdi Francesco53 » 09/07/13 08:29

Buongiorno Flash,
ho ricontrollato e nella cartella "C:\Users\NomeUtente\AppData\Roaming\Microsoft\Excel"
c'è solo la cartella XlStart, tolta questa, non c'è altro. Come da immagine postata, il
file Excel12 è presente nella cartella Office, e se guardi la data di creazione, come giustamente
asserisci, dopo averla cancellata, il sistema la ricreata in data 08/07/2013 ore 18.23
Nelle opzioni di esplora risorse, ho abilitato la visualizzazione dei file e cartelle nascosti,
ma purtroppo nel percorso da te indicato non è presente il file, e l'unico posto dove l'ho
trovato è il percorso descritto.
Immagine
Immagine
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: Excel ho un problema

Postdi Francesco53 » 09/07/13 08:45

Immagine
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "Excel ho un problema":


Chi c’è in linea

Visitano il forum: Nessuno e 43 ospiti