Ați prefera să dețineți controlul asupra utilizatorilor care importă fișiere, în loc să le faceți să utilizeze caracteristicile Excel pentru ao face? Aveți nevoie de mai mult control asupra importurilor pentru validare sau modificare la import? Există mai multe modalități de a face acest lucru și la fel de multe variații de cerințe, dar iată câteva dintre blocurile de pornire.
1. Puneți următorul cod într-un modul, apoi rulați-l
„Definiți variabile 'Deschideți dialogul comun și obțineți numele fișierului „Verificarea anulării nu a fost făcută clic 'Fișier de import Sfârșitul SubPublic Sub CustomImport ()
Dim ImportFile ca șir
Dim ImportTitle Ca șir
Dim TabName Ca șir
Dim ControlFile Ca șir
ImportFile = Application.GetOpenFilename (_
„Fișiere Excel, * .xls, Toate fișierele, *. *”)
ImportTitle = _
Mid (ImportFile, InStrRev (ImportFile, "\") + 1)
Dacă ImportFile = "False" Atunci
Ieșiți din Sub
End If
TabName = "MyCustomImport"
ControlFile = ActiveWorkbook.Name
Workbooks.Open FileName: = ImportFile
ActiveSheet.Name = TabName
Foi de calcul (TabName). Copiați _
Înainte: = Cărți de lucru (ControlFile). Foi (1)
Windows (ImportTitle). Activați
ActiveWorkbook.Close SaveChanges: = False
Windows (ControlFile). Activați
Sidenote: Acest lucru funcționează bine pentru fișierele * .xls, * .xlsx, * .xlsm, * .csv și * .txt. Puteți adăuga sau apela cod înainte de End Sub pentru a modifica datele importate înainte ca utilizatorul să le poată atinge.