ম্যাকে। রূপান্তর .xls এবং .xlsx থেকে .txt (ট্যাব ডিলিমিট)

Question

আমার প্রায় 150 .xls এবং .xlsx ফাইল রয়েছে যা আমার ট্যাব-সীমান্তে রূপান্তর করতে হবে। আমি অটোমেটার ব্যবহার করার চেষ্টা করেছি, তবে আমি কেবল এটি একের পর এক করতে সক্ষম হয়েছি। যদিও স্বতন্ত্রভাবে প্রতিটি খোলার চেয়ে এটি অবশ্যই দ্রুত। স্ক্রিপ্টিংয়ের আমার জ্ঞান খুব কম, তাই এটি যতটা সম্ভব বেদাহীনভাবে করার একটি উপায়কে আমি প্রশংসা করব।

Comments

তারা সবাই কি একই জায়গায় আছে?

— রায়স্টাফেরিয়ান

হ্যাঁ, তারা সবাই একই ফোল্ডারে রয়েছে

— জারেট জি।

কোন অক্ষরের ট্যাবগুলিতে রূপান্তর করা দরকার?

— গ্যাব্রিয়েল রায়ান নাহমিয়াস

পুরো ফাইলটি রূপান্তর করা দরকার। এটি এখনই .xls বা .xlsx এ রয়েছে তবে আমার এটির কোনও ট্যাব সীমিত বিন্যাসে থাকা দরকার, যার অর্থ হ'ল কোষগুলি ট্যাব দ্বারা পৃথক করা হয়েছে

— জারেট জি।

Answer 1

_{(আমি জানি তুমি একটি ম্যাক, তাই আমার উত্তর যে আপনার জন্য দরকারী হতে পারে না। কিন্তু Windows ব্যবহারকারীদের জন্য হয়তো। Btw। সেখানে ম্যাক আন্ড লিনাক্সের জন্য একটি PowerShell ওপেন সোর্স reimplementation সেখানে বলা হয় PASH )}

কীভাবে সহজেই কোনও পছন্দসই বিন্যাসে একাধিক এক্সেল ফাইল রূপান্তর করা যায়

এই রূপান্তরকারী পাওয়ারশেল স্ক্রিপ্টটি ডাউনলোড করুন এবং এটি সম্পাদন করুন । এখানেই শেষ. :)

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

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

আপনার যদি অন্য কোনও ফর্ম্যাট প্রয়োজন -4158হয় তবে উত্স কোডটিতে আপনার মান হিসাবে পরিবর্তন করুন। নীচে এমএসডিএন থেকে নেওয়া কিছু সাধারণ ফর্ম্যাট রয়েছে ।

এক্সএমএল ওয়ার্কবুক এক্সএলএসএক্স 51 এক্সএলওপেনএক্সএমএল ওয়ার্কবুক খুলুন 
এক্সেল 2003 এক্সএলএস 56 এক্সএলএক্সেল 8
এক্সেল 12 এক্সএলএসবি 50 এক্সএলএক্সसेल 12 
বর্তমান প্ল্যাটফর্ম পাঠ্য সিএসভি -4158 এক্সএল কর্নারপ্ল্যাটফর্ম টেক্সট 
এইচটিএমএল ফর্ম্যাট এইচটিএমএল 44 xlHtml 
ইউনিকোড পাঠ্য TXT 42 xlUnicodeText 
ডিবিএফ 4 ডিবিএফ 11 এক্সএলডিবিএফ 4 

সোর্স কোড

    $object = New-Object -comObject Shell.Application  
    $folder = $object.BrowseForFolder(0, 'Select the folder', 0)    

    if (!$folder) {exit} 

    $excel = New-Object -comObject Excel.Application
    $excel.Visible = $false
    $excel.DisplayAlerts = $false

    foreach ($file in Get-ChildItem -literalPath $folder.self.Path*.xls? -recurse) {
        $workbook = $excel.Workbooks.Open($file.Fullname)    
        foreach ($worksheet in $workbook.Sheets) {                    
            $worksheet.activate()          
            $newpath = $File.DirectoryName +"\"+ $file.BaseName + " - " + $worksheet.name + ".csv"
            $workbook.SaveAs($newpath,-4158 ,$null,$null)
        }
        $workbook.Close()
    }
    $excel.quit()    

    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($workbook)
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel)
    [System.GC]::Collect() 
    [System.GC]::WaitForPendingFinalizers()

• নির্ভরতা: এক্সেল 2003 বা উচ্চতর এবং পাওয়ারশেল (উইন্ডোজ 7 এর অধীনে পূর্বেই ইনস্টলড)

Answer 2

একটি ওয়ার্কবুক developerখুলুন, ট্যাবে যান, ভিজ্যুয়াল বেসিকটি ক্লিক করুন এবং এই কোডটি এ হিসাবে প্রবেশ করুনmodule

PATHসমস্ত ওয়ার্কবুক যেখানে রয়েছে সেই ফোল্ডারে পরিবর্তন করুন । দ্বিতীয়টি PATHযেখানেই আপনি পাঠ্য ফাইলগুলি সংরক্ষণ করতে চান।

নোট করুন যে আপনি worksheetপ্রতিটি ফাইলের মধ্যে প্রথমটি সংরক্ষণ করতে পারবেন কারণ ট্যাব সীমিত পাঠ্য একাধিক ওয়ার্কশিট সমর্থন করে না।

Sub openandsave()
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook


Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

On Error Resume Next
    Set wbCodeBook = ThisWorkbook
        With Application.FileSearch
            .NewSearch
            .LookIn = "PATH"
            .FileType = msoFileTypeExcelWorkbooks
                If .Execute > 0 Then
                    For lCount = 1 To .FoundFiles.Count
                        Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount), UpdateLinks:=0)
                            ActiveWorkbook.SaveAs Filename:="PATH" AND .Foundfiles(lcount) AND ".txt", FileFormat _
                            :=xlText, CreateBackup:=False
                    Next lCount
                End If
        End With
On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub

যদি এটি কাজ না করে তবে আমি সম্ভবত এতে বিভ্রান্ত হয়েছি SaveAs Filename

এখান থেকে রিসোর্স করা হয়েছে

Comments

আমি "প্লে" বোতাম

— টিপছি

Answer 3

আপনি কিছু এক্সেল লাইব্রেরির মাধ্যমে এগুলির মধ্য দিয়ে পুনরাবৃত্তি করতে কোনও স্ক্রিপ্টিং ভাষা ব্যবহার করতে পারেন এবং নির্দিষ্ট অক্ষরগুলিকে ট্যাবগুলিতে রূপান্তর করতে কিছু ধরণের RegEx করতে পারেন। আমি এটি খসড়া করে পরে পোস্ট করতে পারি।

Answer 4

এখানে একটি অ্যাপলসক্রিপটি লক্ষ্য করা যাচ্ছে যা একটি ফোঁটা হিসাবে প্রয়োগ করা হবে (অর্থাত, এমন একটি অ্যাপ্লিকেশন যা আপনি এতে একটি গুচ্ছ ফাইল টেনে আনতে পারেন)।

পোলিশ করার জন্য জায়গা রয়েছে তবে আমি আশা করি এটি আপনার প্রয়োজনীয় কাজটি হয়ে গেছে।

property type_list : {"XLS6", "XLS7", "XLS8", "XLSX"}
property extension_list : {"xls", "xlsx"}


on open these_workbooks
    repeat with k from 1 to the count of these_workbooks
        set this_item to item k of these_workbooks
        set the item_info to info for this_item

        --this if statement tests to make sure the items you're converting are Excel spreadsheets and not folders or aliases
        if (folder of the item_info is false) and (alias of the item_info is false) and ((the file type of the item_info is in the type_list) or the name extension of the item_info is in the extension_list) then

            tell application "Finder" to open this_item

            tell application "Microsoft Excel 2011"
                --this just tacks on ".txt" to your file name
                set workbookName to (name of active workbook & ".txt")
                --save the current open workbook as a tab-delimited text file
                tell active workbook to save workbook as filename workbookName file format text Mac file format
                close active workbook saving no
            end tell
        end if
    end repeat
end open

on run
    display dialog "Drop Excel files onto this icon."
end run

Comments

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

— জারেট জি।

অ্যাপলস্ক্রিপ্ট এডিটরে নতুন উইন্ডোতে স্ক্রিপ্টটি কেটে পেস্ট করুন। আপনি যখন এটি সংরক্ষণ করেন, উইন্ডোর নীচে যেখানে এটি ফাইল ফর্ম্যাট বলে, সেখানে "অ্যাপ্লিকেশন" নির্বাচন করুন। এটি ড্র্যাগ এবং ড্রপ বৈশিষ্ট্য সক্ষম করবে enable

— বব ক্যাসেরেস