এক্সেল - সরাসরি কোনও ফোল্ডারে ফাইলগুলি সংরক্ষণ করার জন্য কি ড্রাগ এবং ড্রপ ফাংশন তৈরি করা সম্ভব?

Question

আমি একটি ইডিএমএস সিস্টেমে কাজ করছি যা এক্সেলে তৈরি করা দরকার। এক্সেলের মাধ্যমে সরাসরি ফোল্ডারের পথে ফাইলগুলি টানা এবং ফেলে দেওয়া সম্ভব কিনা তা কি কেউ স্পষ্ট করতে পারেন? সর্বদা ফোল্ডার অ্যাক্সেস না করে, আমার প্রকল্প পরিচালকগণ এই জাতীয় কোনও ফাংশনটি সত্যই উপকৃত করতে পারেন।

শুভেচ্ছা, সেবাস্তিয়ান

Comments

হ্যাঁ এক্সেল ভিবিএ ফোল্ডারে ফাইল ফর্ম ট্রি ভিউ টেনে আনতে আপনাকে সহায়তা করতে পারে !!

— রাজেশ এস

এটি কীভাবে করবেন তা সম্পর্কে আপনার কোনও জ্ঞান আছে? এটি অনেক প্রশংসিত হবে! এখনই আমার একটি ভাগ করা নেটওয়ার্ক ড্রাইভে অবস্থিত ফোল্ডার থেকে একটি কোয়েরি তৈরি হয়েছে যা সেখানে উপস্থিত সমস্ত ফাইল দেখায়। ম্যানুয়ালি অ্যাক্সেস না করেই যদি সরাসরি এই বিভিন্ন ফোল্ডার ট্রল এক্সেলের মধ্যে ফাইলগুলি টেনে আনা সম্ভব হয় তবে এটি সত্যিই দুর্দান্ত হতে পারে।

— সেবাস্তিয়ান

উপলব্ধ ভিবিএ কোডটি পরীক্ষা করার জন্য আমাকে কিছু সময় দিন, শীঘ্রই আমি পোস্টটিতে ফিরে আসব। ☺

— রাজেশ এস

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

— রাজেশ এস

অবশ্যই, আমাকে চেষ্টা করে দেখুন! :-)

— সেবাস্তিয়ান

Answer 1

Sub MoveFiles()

    Dim xFd As FileDialog
    Dim xTFile As String
    Dim xExtArr As Variant
    Dim xExt As Variant
    Dim xSPath As String
    Dim xDPath As String
    Dim xSFile As String
    Dim xCount As Long

    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Please Select Original Folder:"

    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If

    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xFd.Title = "Please Select Destination folder:"

    If xFd.Show = -1 Then
        xDPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If

    If Right(xDPath, 1) <> "\" Then xDPath = xDPath + "\"
    xExtArr = Array("*.xlsm*", "*.Docx")

    For Each xExt In xExtArr
        xTFile = Dir(xSPath & xExt)

        Do While xTFile <> ""
            xSFile = xSPath & xTFile
            FileCopy xSFile, xDPath & xTFile
            Kill xSFile
            xTFile = Dir
            xCount = xCount + 1
        Loop
    Next
    MsgBox "Total number of moved files is: " & xCount, vbInformation, "Move File(S)"
End Sub

কিভাবে এটা কাজ করে:

• এই কোডটিকে স্ট্যান্ডার্ড মডিউল হিসাবে অনুলিপি করুন এবং আটকান।
• ম্যাক্রো চালানো।
• এটি এক্সপ্লোরার খুলবে এবং আপনাকে মূল (উত্স) ফোল্ডার নির্বাচন করার অনুরোধ জানাবে।
• ফোল্ডারটি নির্বাচন করুন এবং ঠিক আছে চাপুন।
• আবার এটি আপনাকে গন্তব্য ফোল্ডারটি নির্বাচন করতে অনুরোধ করে।
• ঠিক আছে চাপুন, শীঘ্রই আপনি বার্তা বাক্স পাবেন যে কতগুলি ফাইল অনুলিপি করা হয়েছে।

বিঃদ্রঃ:

• এই রেখাটি সম্পাদনযোগ্য Array("*.xlsm*", "*.Docx"), File extensionsআপনার প্রয়োজন অনুসারে আপনি অন্যের সাথে প্রতিস্থাপন করতে পারেন ।