আমি মনে করি শিরোনামটি এই প্রশ্নের জন্য সমস্ত কিছু বলেছে তবে কিছুটা আরও বিস্তৃত করার জন্য:
আমার কাছে একটি .xlsx ফাইল রয়েছে যাতে কয়েক ডজন শিট রয়েছে। আমি সেই সমস্ত শীটকে আলাদা .xlsx ফাইল হিসাবে আউটপুট করতে চাই। এগুলির স্বয়ংক্রিয় নামকরণের প্রয়োজন নেই। এক্সেলের কোনও আলাদা ফাইলে শীট রফতানি করার কোনও ফাংশন রয়েছে?
উত্তর:
এটি অন্তর্নির্মিত বৈশিষ্ট্য নয়।
তবে আপনি যদি এই কোডটি চালান তবে এটি কাজটি করা উচিত।
Sub SaveSheets()
Dim strPath As String
Dim ws As Worksheet
Application.ScreenUpdating = False
strPath = ActiveWorkbook.Path & "\"
For Each ws In ThisWorkbook.Sheets
ws.Copy
'Use this line if you want to break any links:
BreakLinks Workbooks(Workbooks.Count)
Workbooks(Workbooks.Count).Close True, strPath & ws.Name & ".xlsx"
Next
Application.ScreenUpdating = True
End Sub
Sub BreakLinks(wb As Workbook)
Dim lnk As Variant
For Each lnk In wb.LinkSources(xlExcelLinks)
wb.BreakLink lnk, xlLinkTypeExcelLinks
Next
End Sub
কোডটি চালাতে, নিম্নলিখিতটি করুন:
SaveSheetsঅথবা দেখুন এমএস অফিসে আমি কীভাবে ভিবিএ যুক্ত করব?
Workbooks(Workbooks.Count).BreakLinksপরে সন্নিবেশ করে মানগুলির সাথে প্রতিস্থাপন করতে পারেন ws.Copy...
Workbooks(Workbooks.Count).BreakLink- ছাড়া sশেষে
আপনি যখন কোনও এক্সেল শীটের ট্যাবটিতে ডান ক্লিক করেন, আপনি সরান বা অনুলিপি নির্বাচন করতে পারেন ...
ফলস্বরূপ কথোপকথনে, আপনি একটি লক্ষ্য কাজের বই নির্বাচন করতে পারেন। (নতুন বই) নির্বাচন করুন ।
ঠিক আছে ক্লিক করুন । আপনার শীটটি এখন একটি নতুন দস্তাবেজের অভ্যন্তরে।
আমি পিটার অ্যালবার্টের সমাধানটি চেষ্টা করেছিলাম এবং এটি আমার পক্ষে কার্যকর হয়নি, তাই আমি এই পোস্টটিতে একটি সমাধান পেয়েছি ("এক্সেল - পৃথক ফাইল হিসাবে ওয়ার্কশিটগুলি সংরক্ষণ করুন") কম্পিউটারের গীকের ডায়েরিতে ।
এটি দুর্দান্ত কাজ করে। .xlsএক্সটেনশন সহ সঠিকভাবে নামকরণ করা ফাইলগুলি পেতে আপনার শীটগুলির নাম পরিবর্তন করতে হবে যাতে ডট থাকে contain
Sub CreateNewWBS()
Dim wbThis As Workbook
Dim wbNew As Workbook
Dim ws As Worksheet
Dim strFilename As String
Set wbThis = ThisWorkbook
For Each ws In wbThis.Worksheets
strFilename = wbThis.Path & "/" & ws.Name
ws.Copy
Set wbNew = ActiveWorkbook
wbNew.SaveAs strFilename
wbNew.Close
Next ws
End Sub
পিটার অ্যালবার্টের পোস্ট থেকে বা এমএস অফিসে আমি কীভাবে ভিবিএ যুক্ত করব?