Biste li radije imali kontrolu nad korisnicima koji uvoze datoteke, umjesto da im za to koriste značajke programa Excel? Trebate li veću kontrolu nad svojim uvozom za provjeru valjanosti ili izmjenu pri uvozu? Postoji više načina za to i isto toliko varijacija zahtjeva, ali evo nekoliko gradivnih elemenata za početak.
1. Stavite sljedeći kôd u modul, a zatim ga pokrenite
'Definirajte varijable 'Otvorite zajednički dijalog i dobijte naziv datoteke 'Otkaz čeka nije kliknut 'Uvezi datoteku Kraj podmJavni pod prilagođeni uvoz ()
Zatamni uvoznu datoteku kao niz
Dim ImportTitle As String
Dim TabName As String
Dim ControlFile As String
ImportFile = Application.GetOpenFilename (_
"Excel datoteke, *.xls, sve datoteke, *. *")
Naslov uvoza = _
Srednji (ImportFile, InStrRev (ImportFile, "\") + 1)
Ako je ImportFile = "False" Tada
Izlaz iz podv
Završi ako
TabName = "MyCustomImport"
ControlFile = ActiveWorkbook.Name
Radne knjige.Otvorite naziv datoteke: = ImportFile
ActiveSheet.Name = Naziv kartice
Tablice (TabName). Kopiraj _
Prije: = Radne knjige (ControlFile). Tablice (1)
Windows (ImportTitle) .Aktivirajte
ActiveWorkbook.Close SaveChanges: = False
Windows (ControlFile) .Aktivirajte
Sporedna napomena: Ovo dobro funkcionira za datoteke *.xls, *.xlsx, *.xlsm, *.csv i *.txt. Možete dodati ili nazvati kôd prije End Sub da biste promijenili uvezene podatke prije nego što ih korisnik dodirne.