Un saluto a tutto il Forum,
scusate se torno sull'argomento, volevo solo chiedere una informazione a chi può aiutarmi ulteriormente,
il mio problema è questo: La macro è perfetta, l'unica cosa che vorrei poter modificare è quella che la stessa
ricerchi il file CVS, direttamente nella SubDirectory \Temp. allego parte del files dove potete vedere come la
macro cerchi un riferimento preciso, per cui se sposto il file in altra Directory o Computer non rileva e si ferma.
- Codice: Seleziona tutto
Sub CopiaDati()
Application.GoTo Reference:="DatiArchivio"
Application.ScreenUpdating = False
Range("C2:AZ1000").Select
Selection.ClearContents
With ActiveSheet.QueryTables.Add(Connection:="TEXT;D:\Francesco\Temp\archivio.csv", _
Destination:=Range("C2:BF7000"))
.Name = "archivio"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
Questo è il passaggio che vorrei correggere:
With ActiveSheet.QueryTables.Add(Connection:="TEXT;
D:\Francesco\Temp\archivio.csv",
D:\Francesco\Temp\archivio.csvse fosse possibile che ricerchi direttamente il file su \Temp\ visto che la si crea la subdirectory
quando sompatto il file. Grazie a chi può aiutarmi.
Francesco
S.O. Windows 10 e Office 2007