Өгөгдөл, өгөгдөл, өгөгдөл - энэ нь байхгүй бол мэдээллийн бааз нь ашиггүй болно. Тиймээс м-ийн нэг нь гайхах зүйлгүй юмost Эдгээр мэдээллийг таны Access хүснэгт (үүд) -д оруулах талаар байнга асуудаг асуултууд бол маш олон (болон маш олон!) файлуудыг тогтмол импортлох шаардлагатай үед би амьдралаа хэрхэн хялбар болгох вэ? Энэ бол нийтлэг ажил тул тэр муурыг арьсаар арчлах хэд хэдэн арга байдаг нь тодорхой боловч энд зөвхөн ганцыг нь авч үзэх болно, миний бодлоор хамгийн хялбар нь, ялангуяа та үүнийг тогтмол, бүр тэр ч байтугай хийдэг байсан бол хуваарьт хугацаа. Бага зэрэг төлөвлөлт (мөн би жаахан гэсэн үг!) Ба бага зэрэг VBA-гийн ид шидийг хийснээр та үргэлжлүүлэн ажиллах боломжтой болно.tarТед ...
Бүх Excel файлуудыг фолдерт импортлох
Энэ нийтлэлийн хувьд бид өгөгдсөн фолдер доторх хэд хэдэн Excel файлыг импортлох талаар авч үзэх болно, гэхдээ та csv файлуудыг хялбархан импортлох боломжтой. Энэ нь удахгүй CSV файлуудтай ажиллах кодыг хэрхэн өөрчлөх талаар авч үзэх болно.
Нэгдүгээрт, кодыг юу хийхийг хүсч байгаагаа тодорхойлъё.
"Бид өгөгдсөн фолдероос байгаа бүх файлыг одоо байгаа хүснэгтэд импортлохыг хүсч байна. Мөн файлууд толгой мөртэй эсэхээ зааж өгөхийг хүсч байна"
Энэ нь хангалттай энгийн харагдаж байгаа тул үүнийг хийх кодыг авч үзье.
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
Асуудлыг шалгаж байна ...
Энэ код хэрхэн ажилладаг талаар нарийвчлан авч үзэхээс өмнө дээр дурдсан кодонд алдааны шалгалт ороогүй гэдгийг анхаарах хэрэгтэй бөгөөд энэ нь кодыг хялбархан унших боломжтой байлгах үүднээс зориудаар хийгдсэн боловч алдаа засах код нэмж оруулахыг танд зөвлөж байна. мэдээллийн сан руу оруулах тул та боломжийг хадгалах болно Мэдээллийн сангийн авлигад хандах хамгийн багадаа!
За, эхний зүйлүүд. Кодыг аль болох өөр өөр нөхцөлд ашиглах боломжтой байлгахын тулд замын нэр (файл хадгалагдаж байгаа газар), эдгээр файлуудыг оруулах хүснэгтийн нэр, энэ хавтсанд байгаа файлууд бүгд байгаа эсэхийг асууж байна. толгой эсвэл үгүй (өөрөөр хэлбэл талбайн нэрс хүснэгтийн эхний мөрөнд гарч ирнэ).
Файлуудыг хайх кодын хэсэг болох Dir (path & “\ *. Xls”) хэсэг нь өгөгдсөн зам дээр орлуулах тэмдэг болон файлын өргөтгөлийг хавсаргаж байгааг та анзаарах болно. Жишээлбэл, та зөвхөн тодорхой нэршилд тохирсон файлуудыг импортлохыг хүсч байвал кодыг өөрчлөх нь маш хялбар байдаг тул би үүнийг дурдаж байна (жишээлбэл, "2017-р сар" эсвэл "XNUMX" файлын бүх файлыг файлын нэр болгон оруулсан бүх файлууд) ). Хэрэв та хүсвэл тэр шүүлтүүрийг дэд програмын дуудлагад параметр болгон нэмж болно.
Хэрэв ямар нэгэн тохиолдолд өгөгдсөн шалгуурт нийцсэн файл байвал (энэ тохиолдолд хавтсанд байгаа ".xls" файл байвал) тэр даруй TransferS spreadsheet командыг ашиглан тухайн файлыг импортлохыг оролддог.
Таны хэрэгцээнд нийцүүлэн кодыг хаана өөрчлөх вэ ...
Энэ үед та кодыг өөрчилж болох бөгөөд ингэснээр хүснэгтийг импортлохын оронд csv файлуудыг импортлох боломжтой ("TransferText" командыг ашиглан) гэх мэт.
Дараа нь код нь тухайн хавтсанд импортлох файл байхгүй болтол гогцоо болно.
Энэ бол жижиг код юм, гэхдээ та дахин дахин ашиглах болно гэдэгт би итгэлтэй байна!
Зохиогчийн танилцуулга:
Митчелл Цөөрөм бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. SQL авлигыг засах болон excel сэргээх програм хангамжийн бүтээгдэхүүнүүд. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com