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

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

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

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

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

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

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

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