macro per aprire file txt

[zuzzumaja]

Salve, avrei necessità di una macro per aprire il file "pres.txt" salvato sul desktop e di copiarne il contenuto in A1 del file "verifica.xls", compatibile per excel 2003/2007/2010, ringrazio anticipatamente

[patel]

Codice: Seleziona tutto

Sub textToCell()
fname = "C:\utente\Desktop\pres.txt"
Range("A1") = CreateObject("scripting.filesystemobject").opentextfile(fname).readall
End Sub