Kas eelistaksite kontrolli failide importijate üle selle asemel, et lasta neil kasutada Exceli funktsioone? Kas vajate impordi kontrollimisel või kontrollimisel rohkem kontrolli? Selleks on mitmeid viise ja sama palju nõudeid, kuid siin on mõned alustalad, millest alustada.
1. Pange järgmine kood moodulisse ja käivitage see
'Määrake muutujad "Avage tavaline dialoog ja hankige failinimi „Tšeki tühistamist ei klõpsatud 'Impordi fail End SubAvalik alamkohandatud import ()
Dim ImportFile stringina
Tuhme ImportTitle stringina
Dim vahekaart Nimi kui string
Dim ControlFile stringina
ImportFile = Application.GetOpenFilename (_
"Exceli failid, *.xls, kõik failid, *. *")
ImportTitle = _
Keskmine (ImportFile, InStrRev (ImportFile, "\") + 1)
Kui ImportFile = "Vale" Siis
Välju sub
Lõpp Kui
TabName = "MyCustomImport"
ControlFile = ActiveWorkbook.Name
Töövihikud. Avage Filename: = ImportFile
ActiveSheet.Name = Vahekaardi nimi
Arvutustabelid (TabName). Kopeeri _
Enne: = Töövihikud (ControlFile). Lehed (1)
Windows (ImportTitle). Aktiveerige
ActiveWorkbook.Close SaveChanges: = Vale
Windows (ControlFile). Aktiveerige
Lisateave: see töötab hästi *.xls, *.xlsx, *.xlsm, *.csv ja *.txt failide puhul. Saate lisada või helistada koodi enne lõpuosa, et muuta imporditud andmeid enne, kui kasutaja saab neid puudutada.
