আপনার অ্যাক্সেস সারণিতে কোনও ফোল্ডারের মধ্যে সমস্ত ফাইল কীভাবে আমদানি করবেন

ডেটা, ডেটা, ডেটা – এটি ছাড়া একটি ডেটাবেস প্রায় অকেজো। তাই এতে অবাক হওয়ার কিছু নেই যে, আপনার Access টেবিলে সেই ডেটা আনার ক্ষেত্রে সবচেয়ে বেশি জিজ্ঞাসিত প্রশ্নগুলোর মধ্যে একটি হলো – যখন আমাকে নিয়মিত প্রচুর (এবং প্রচুর!) ফাইল ইম্পোর্ট করতে হয়, তখন আমি কীভাবে আমার কাজটা সহজ করতে পারি? যেহেতু এটি একটি খুব সাধারণ কাজ, তাই স্বাভাবিকভাবেই এই বিশেষ কাজটি করার একাধিক উপায় আছে, কিন্তু এখানে আমরা কেবল একটি উপায় দেখব – যা আমার মতে সবচেয়ে সহজ – বিশেষ করে যদি আপনি এটি নিয়মিত বা একটি নির্দিষ্ট সময়সূচী অনুযায়ী করে থাকেন। সামান্য পরিকল্পনা (এবং আমি সত্যিই সামান্যই বলছি!) এবং সামান্য VBA ম্যাজিকই যথেষ্ট, তাহলেই আপনি কাজটি শুরু করতে পারবেন – কীভাবে শুরু করবেন তা জানতে পড়তে থাকুন…

ফোল্ডারে সমস্ত এক্সেল ফাইল আমদানি করা হচ্ছে

এই নিবন্ধটির জন্য, আমরা একটি নির্দিষ্ট ফোল্ডারের মধ্যে বেশ কয়েকটি এক্সেল ফাইল আমদানি করতে দেখব, তবে আপনি কেবল সহজেই সিএসভি ফাইল ইত্যাদি আমদানি করতে পারেন - আমরা শিগগিরই কীভাবে সিএসভি ফাইলগুলি হ্যান্ডেল করার জন্য কোডটি পরিবর্তন করতে হবে তা নিয়ে আলোচনা করব।

প্রথমত, আসুন আমরা কোডটি কী করতে চাই তা নির্ধারণ করি:

"আমরা একটি বিদ্যমান ফোল্ডার থেকে একটি বিদ্যমান টেবিলের মধ্যে সমস্ত ফাইল আমদানি করতে চাই - আমরা ফাইলগুলি একটি শিরোনাম লাইন আছে কিনা তাও নির্দিষ্ট করতে চাই"

যথেষ্ট সহজ বলে মনে হচ্ছে, সুতরাং এটি করার কোডটি দেখুন:

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

সমস্যার জন্য অনুসন্ধান করা হচ্ছে ...

এই কোডটি কীভাবে কাজ করে সে সম্পর্কে আমাদের বিশদে যাওয়ার আগে, এটি লক্ষ্য করা গুরুত্বপূর্ণ যে উপরের কোডে কোনও ত্রুটি পরীক্ষা করা অন্তর্ভুক্ত নেই - এটি ইচ্ছাকৃত তাই যাতে কোডটি সহজেই পাঠযোগ্য হয় তবে আমি আপনাকে দৃ strongly়ভাবে পরামর্শ দিচ্ছি যে আপনি ত্রুটি পরিচালনা করতে কোডটি যুক্ত করবেন আপনার ডাটাবেসে যাতে আপনার সম্ভাবনা থাকে অ্যাক্সেস ডাটাবেস দুর্নীতি সর্বনিম্ন!

ঠিক আছে - প্রথম জিনিস। কোডটিকে বিভিন্ন পরিস্থিতিতে যতটা সম্ভব ব্যবহারযোগ্য রাখার জন্য আমরা পাথের নামটি (যেখানে ফাইলগুলি সংরক্ষণ করা হয়), আপনি যে টেবিলের মধ্যে এই ফাইলগুলি আমদানি করতে চান তা চাইছেন এবং এই ফোল্ডারে থাকা ফাইলগুলির সকলের একটি আছে কিনা শিরোনাম বা না (অর্থাত স্প্রেডশিটের প্রথম সারিতে ফিল্ডের নামগুলি প্রদর্শিত হবে)।

আপনি লক্ষ্য করবেন যে কোডগুলির যে অংশগুলি ফাইলগুলি অনুসন্ধান করে - দির (পাথ এবং "\ *। Xls") - সরবরাহকৃত পথে একটি ওয়াইল্ডকার্ড এবং ফাইল এক্সটেনশান যুক্ত করে। কোডটি পরিবর্তন করা খুব সহজ হবে বলে আমি এটি উল্লেখ করেছি, উদাহরণস্বরূপ, আপনি কেবলমাত্র একটি নির্দিষ্ট নামকরণের সম্মেলনের সাথে মেলে এমন ফাইলগুলি আমদানি করতে চেয়েছিলেন (উদাহরণস্বরূপ, ফাইলের নামের অংশ হিসাবে "জানুয়ারী" বা "2017" রয়েছে এমন সমস্ত ফাইল) )। আপনি চাইলে, এমনকি ফিল্টারটিকে সাব্রুটাইন কলটিতে প্যারামিটার হিসাবে যুক্ত করতে পারেন।

যাইহোক, যদি কোনও ফাইল প্রদত্ত মানদণ্ডের সাথে মেলে (কোনও ক্ষেত্রে ".xls" ফাইলটি ফোল্ডারে এই ক্ষেত্রে ব্যবহার করে), এটি অবিলম্বে ট্রান্সফারস্প্রেডশিট কমান্ডটি ব্যবহার করে সেই ফাইলটি আমদানির চেষ্টা করে।

আপনার প্রয়োজন অনুসারে কোডটি কোথায় পরিবর্তন করবেন ...

এই মুহুর্তে আপনি কোডটি পরিবর্তন করতে পারেন যাতে স্প্রেডশিট আমদানির পরিবর্তে এটি সিএসভি ফাইল আমদানি করে ("ট্রান্সফার টেক্সট" কমান্ড ব্যবহার করে) ইত্যাদি etc

সেই ফোল্ডারে আমদানির জন্য আর কোনও ফাইল না পাওয়া পর্যন্ত কোডটি তখন লুপ হয়।

এটি কোডের একটি ছোট অংশ, তবে আপনি নিজেকে বার বার ব্যবহার করতে পারবেন তা নিশ্চিত!

লেখকের ভূমিকা:

মিচেল পন্ড একটি তথ্য পুনরুদ্ধার বিশেষজ্ঞ is DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় মেরামত এসকিউএল দুর্নীতি এবং এক্সেল পুনরুদ্ধার সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com