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:
Non mi da la possibilità di uscire dall'applicativo,
se clicco sulla X in alto a destra, mi da il seguente errore:
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
