magari può essere utile:
- Codice: Seleziona tutto
Nome_File_in_Uso = ActiveWorkbook.Name
Ciao da Ricky53
Moderatori: Anthony47, Flash30005
Nome_File_in_Uso = ActiveWorkbook.Name
Sub CopiaDati()
Perc = ActiveWorkbook.Path
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Perc & "archivio.csv", _
Destination:=Range("C2:AZ1000"))
.Name = "archivio"
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Perc & "\" & "archivio.csv", _
Destination:=Range("C2:AZ1000"))
.Name = "archivio"
... la macro si blocca ...
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Importare anche gli url con selenium Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 5 |
Modifica visualizzazione file di una cartella Autore: mastino46 |
Forum: Sistemi Operativi Windows Risposte: 2 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 35 ospiti