আমি নিম্নলিখিত কোড আছে। এটা আমার অনুমান শীট জন্য। আমি নিয়মিত সূত্র পাশাপাশি কাস্টম সূত্র যা আমি কাজের ভিত্তিতে তৈরি করি। যখন আমি .mrt এক্সটেনশন সহ ফাইলটিতে ডেটা সংরক্ষণ করি, সূত্র সহ সমস্ত তথ্য কোন সমস্যা ছাড়াই জরিমানা লেখা হয়। যাইহোক, যখন আমি আমার অনুমান শীটটিতে তথ্যটি পড়তে পাঠ্য ফাইলটি খুলি, তখন সবকিছুই পাঠ্য ফাইল থেকে পড়ে এবং আমার অনুমান পত্রকে জরিমানা করে তবে রান-টাইম ত্রুটিটি পান। আমি যদি ওপেনফিল সাব-এ 79 এর পরিবর্তে আমার মূল্য 48 তে সীমাবদ্ধ করি, তাহলে আমি ত্রুটি বার্তা পাই না। স্পষ্টতই ত্রুটির বার্তাটিতে এমন কিছু কোষের সংখ্যা রয়েছে যা আমি তথ্য প্রবেশ করার চেষ্টা করছি। এখানে আরেকটি আকর্ষণীয় জিনিস; যদি আমি এফেক্টটি খুঁজে বের করি, SaveFile সাব-এ ফরমুলা, আমার এক্সেল শীটে পাঠ্য ফাইল থেকে ডেটা পড়ার সময় কোন ত্রুটি নেই। আপনি কি এই সমস্যা সঙ্গে আমাকে সাহায্য করতে পারেন?
Private Sub CommandButton6_Click() 'OPEN button
OpenFile
End Sub
Private Sub CommandButton7_Click() 'SAVE button
SaveFile
End Sub
Sub OpenFile()
Dim FileName As Variant
FileName = Application.GetOpenFilename(",*.mrt")
If TypeName(FileName) = "Boolean" Then Exit Sub
Open FileName For Input As #2
For i = 1 To 79 'est sheet
For j = 1 To 49
Input #2, data
Sheet1.Cells(i, j) = data
Next j
Next i
Close #2
End Sub
Sub SaveFile()
Dim FileName As Variant
FileName = Application.GetSaveAsFilename("*.mrt", ",*.mrt")
If TypeName(FileName) = "Boolean" Then Exit Sub
Open FileName For Output As #1
For i = 1 To 79
For j = 1 To 49
data = Sheet1.Cells(i, j).Formula
Write #1, data
Next j
Next i
Close #1
End Sub