Məlumat, məlumat, məlumat – onsuz verilənlər bazası olduqca faydasız olardı. Buna görə də, Access cədvəlinizə həmin məlumatları daxil etməklə bağlı ən çox verilən suallardan birinin – müntəzəm olaraq çoxlu (və çoxlu!) fayl idxal etməli olduğum zaman həyatımı necə asanlaşdıra bilərəm? Bu, çox yaygın bir iş olduğundan, əlbəttə ki, həmin pişiyin dərisini soymağın bir sıra yolları var, amma burada yalnız birinə – mənim fikrimcə, ən asanına – baxacağıq, xüsusən də bunu müntəzəm və ya hətta planlaşdırılmış bir müddət ərzində edirsinizsə. Bir az planlaşdırma (və mən bir az nəzərdə tuturam!) və bir az VBA sehrbazlığı və başlamağa hazırsınız – başlamaq üçün oxumağa davam edin...
Qovluqdakı bütün Excel fayllarının idxalı
Bu məqalə üçün biz verilmiş qovluq daxilində bir sıra Excel fayllarının idxalına baxacağıq, lakin siz csv fayllarını və s. asanlıqla idxal edə bilərsiniz – biz qısa müddətdə csv fayllarını idarə etmək üçün kodu necə dəyişdirməyi müzakirə edəcəyik.
Əvvəlcə kodun nə etmək istədiyini müəyyən edək:
“Biz verilmiş qovluqdakı bütün faylları mövcud cədvələ idxal etmək istəyirik – biz həmçinin faylların başlıq xəttinin olub-olmadığını müəyyən etmək istəyirik”
Kifayət qədər sadə görünür, buna görə də bunu etmək üçün koda baxaq:
Sub ImportfromPath(path As String, intoTable As String, hasHeader As Boolean) Dim fileName As String 'Loop through the folder & import each file fileName = Dir(path & "\*.xls") While fileName <> "" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, intoTable, path & fileName, hasHeader 'check whether there are any more files to import fileName = Dir() Wend End Sub
Problemlər yoxlanılır...
Bu kodun necə işlədiyinə dair təfərrüata keçməzdən əvvəl qeyd etmək lazımdır ki, yuxarıdakı kodda heç bir səhv yoxlanışı yoxdur – bu, kodun asanlıqla oxunaqlı olması üçün məqsədyönlüdür, lakin səhvlərin idarə edilməsi kodu əlavə etməyinizi şiddətlə təklif edirəm. şansınızı saxlamaq üçün verilənlər bazanıza Verilənlər bazası korrupsiyasına giriş minimuma!
OK - ilk şeylər. Kodu mümkün qədər müxtəlif şəraitlərdə istifadə edilə bilən saxlamaq üçün biz yolun adını (faylların saxlandığı yer), bu faylları idxal etmək istədiyiniz cədvəlin adını və bu qovluqdakı faylların hamısının başlıq və ya yox (yəni sahə adları cədvəlin birinci sətirində görünür).
Siz görəcəksiniz ki, kodun faylları axtaran hissəsi – Dir(yol və “\*.xls”) – verilən yola joker simvol və fayl uzantısı əlavə edir. Mən bunu qeyd edirəm, çünki, məsələn, yalnız müəyyən adlandırma konvensiyasına uyğun gələn faylları (məsələn, fayl adının bir hissəsi kimi “Yanvar” və ya “2017” olan bütün fayllar) idxal etmək istəsəniz, kodu dəyişdirmək çox asan olardı. ). İstəsəniz, hətta bu filtri alt proqram çağırışına parametr kimi əlavə edə bilərsiniz.
Hər halda, verilmiş meyarlara uyğun gələn fayl (bu halda qovluqdakı hər hansı “.xls” faylı) TransferSpreadsheet əmrindən istifadə edərək dərhal həmin faylı idxal etməyə çalışır.
Ehtiyaclarınıza uyğun kodu harada dəyişmək olar...
Məhz bu nöqtədə siz kodu dəyişdirə bilərsiniz ki, cədvəli idxal etmək əvəzinə o csv fayllarını idxal etsin (“TransferText” əmrindən istifadə etməklə) və s.
Kod daha sonra həmin qovluğa idxal ediləcək başqa fayl qalmayana qədər dövr edir.
Bu kiçik bir kod parçasıdır, amma əminəm ki, təkrar-təkrar istifadə edərkən özünüzü tapacaqsınız!
Müəllif Giriş:
Mitchell Pond məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc SQL korrupsiyasını təmir edin və excel bərpa proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com