Preferiresti avere il controllo sugli utenti che importano i file, invece di far loro utilizzare le funzionalità di Excel per farlo? Hai bisogno di un maggiore controllo sulle tue importazioni per la convalida o la modifica all'importazione? Esistono diversi modi per farlo e altrettante variazioni dei requisiti, ma ecco alcuni degli elementi costitutivi da cui iniziare.
1. Inserisci il seguente codice in un modulo, quindi eseguilo
"Definisci variabili" 'Apri la finestra di dialogo comune e ottieni il nome del file 'Non è stato selezionato l'annullamento dell'assegno 'Importare file Fine sottotitoloPublic Sub CustomImport()
Dim ImportFile As String
Dim ImportTitle As String
Dim TabName As String
Dim ControlFile As String
ImportFile = Application.GetOpenFilename( _
"File Excel, *.xls, Tutti i file, *.*")
ImportTitle = _
Mid(ImportFile, InStrRev(ImportFile, "\") + 1)
Se ImportFile = "False" Then
Esci Sotto
Finisci se
TabName = "MyCustomImport"
ControlFile = ActiveWorkbook.Name
Cartelle di lavoro.Open Filename:=ImportFile
ActiveSheet.Name = TabName
Fogli (Nome scheda). Copia _
Prima: = Cartelle di lavoro (ControlFile). Fogli (1)
Windows(ImportTitle).Attiva
ActiveWorkbook.Close SaveChanges:=False
Windows(ControlFile).Attiva
Nota a margine: funziona bene per i file *.xls, *.xlsx, *.xlsm, *.csv e *.txt. È possibile aggiungere o chiamare il codice prima dell'End Sub per modificare i dati importati prima che l'utente possa toccarli.
