Salve , un nuovo questito..! , ho abbinato ad un pulsante, una macro che mi permette di aprire da una directory ben precisa ,un file txo (generico) , una volta cliccato fa un copia incolla di tutto il file sulla prima cella in un'altro foglio excel . il problema e che non riesco alla fine di questa operazione di chiudere tutte le finestre che sono rimaste aperte..! la macro è questa:
Sub macro1()
'
' macro1 Macro
'
'
ChDir "C:\Users\Massimo\Desktop\koala"
myFILE = Application.GetOpenFilename("Test Files,*.Tx0")
Workbooks.OpenText Filename:=myFILE, _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True
Cells.Select
Range("B1").Activate
Selection.Copy
Windows("AAA3.xlsm").Activate
Sheets("Foglio2").Select
ActiveSheet.Paste
Sheets("Foglio1").Select
Windows("miofoglio.txo").Activate
End Sub
Grazie in anticipo