Vil du foretrække at have kontrol over brugere, der importerer filer, i stedet for at få dem til at bruge Excel -funktionerne til at gøre det? Har du brug for mere kontrol over din import til validering eller ændring ved import? Der er flere måder at gøre dette på og lige så mange kravvariationer, men her er nogle af byggestenene at starte fra.
1. Indsæt følgende kode i et modul, og kør den derefter
'Definer variabler 'Åbn fælles dialog og få filnavn 'Check annuller blev ikke klikket på 'Importer fil Afslut SubPublic Sub CustomImport ()
Dim ImportFile som streng
Dim ImportTitle som streng
Dim fanenavn som streng
Dim ControlFile som streng
ImportFile = Application.GetOpenFilename (_
"Excel -filer, *.xls, Alle filer, *. *")
ImportTitle = _
Midt (ImportFile, InStrRev (ImportFile, "\") + 1)
Hvis ImportFile = "Falsk" Så
Afslut Sub
Afslut Hvis
TabName = "MyCustomImport"
ControlFile = ActiveWorkbook.Name
Workbooks.Open Filename: = ImportFile
ActiveSheet.Name = Fanenavn
Ark (fanenavn). Kopi _
Før: = Workbooks (ControlFile). Ark (1)
Windows (ImportTitle) .Aktiver
ActiveWorkbook.Close SaveChanges: = Falsk
Windows (ControlFile) .Aktiver
Sidenote: Dette fungerer godt for *.xls, *.xlsx, *.xlsm, *.csv og *.txt -filer. Du kan tilføje eller kalde kode før End Sub for at ændre de importerede data, før brugeren kan røre dem.
