Haluaisitko mieluummin hallita tiedostoja tuovia käyttäjiä sen sijaan, että saisit käyttää niitä Excel -ominaisuuksien avulla? Tarvitsetko enemmän valvontaa tuonnistasi tuonnin validointia tai muokkaamista varten? Tähän on useita tapoja ja yhtä paljon vaatimusten muunnelmia, mutta tässä on joitain rakennuspalikoita, joista aloittaa.
1. Laita seuraava koodi moduuliin ja suorita se
'Määritä muuttujat 'Avaa yhteinen valintaikkuna ja hae tiedostonimi 'Sekin peruuttamista ei napsautettu 'Tuo tiedosto End SubJulkinen ali mukautettu tuonti ()
Dim ImportFile merkkijonona
Himmennä ImportTitle merkkijonona
Dim -välilehti Nimi kuin merkkijono
Himmennä ControlFile merkkijonona
ImportFile = Application.GetOpenFilename (_
"Excel -tiedostot, *.xls, kaikki tiedostot, *. *")
ImportTitle = _
Keski (ImportFile, InStrRev (ImportFile, "\") + 1)
Jos ImportFile = "False" Sitten
Lopeta Sub
Loppu Jos
TabName = "OmaCustomImport"
ControlFile = ActiveWorkbook.Name
Avaa Tiedostonimi: = ImportFile
ActiveSheet.Name = Välilehden nimi
Sheets (TabName) .Copy _
Ennen: = Työkirjat (ControlFile) .Sheets (1)
Windows (ImportTitle) Aktivoi
ActiveWorkbook.Close SaveChanges: = False
Windows (ControlFile) Aktivoi
Sidenote: Tämä toimii hyvin *.xls-, *.xlsx-, *.xlsm-, *.csv- ja *.txt -tiedostoille. Voit lisätä tai soittaa koodin ennen End Subia muokataksesi tuodut tiedot ennen kuin käyttäjä voi koskettaa niitä.