Szívesebben irányítaná a fájlokat importáló felhasználók felett, ahelyett, hogy az Excel szolgáltatásait használná ehhez? Több ellenőrzésre van szüksége az importálás felett az importálás ellenőrzéséhez vagy módosításához? Ennek több módja is van, és ugyanannyi követelményváltozat, de itt van néhány építőelem, amiből kiindulhat.
1. Tegye a következő kódot egy modulba, majd futtassa
'Definiálja a változókat "Nyissa meg a közös párbeszédpanelt, és szerezze be a fájlnevet - A csekk visszavonására nem kattintottak 'Fájl importálása End SubNyilvános al -egyéni importálás ()
Dim ImportFile karakterláncként
Dim ImportTitle karakterláncként
Dim lapName As String
Dim ControlFile karakterláncként
ImportFile = Application.GetOpenFilename (_
"Excel fájlok, *.xls, minden fájl, *. *")
ImportTitle = _
Közép (ImportFile, InStrRev (ImportFile, "\") + 1)
Ha ImportFile = "False" Akkor
Kilépés a Subból
Vége Ha
TabName = "Saját egyéni import"
ControlFile = ActiveWorkbook.Name
Munkafüzetek. Nyissa meg a Fájlnév: = ImportFile fájlt
ActiveSheet.Name = Lapnév
Táblázatok (TabName). Másolat _
Előtte: = Munkafüzetek (ControlFile). Táblázatok (1)
Windows (ImportTitle). Aktiválja
ActiveWorkbook.Close SaveChanges: = Hamis
Windows (ControlFile). Aktiválja
Második megjegyzés: Ez jól működik a *.xls, *.xlsx, *.xlsm, *.csv és *.txt fájloknál. Hozzáadhat vagy hívhat kódot az End Sub előtt, hogy módosítsa az importált adatokat, mielőtt a felhasználó megérintheti azokat.