আমি কীভাবে ভিবিএতে ফাইলসিস্টেমবজেক্ট ব্যবহার করব?

Question

আমার কিছু উল্লেখ করার দরকার আছে? আমি এটি কীভাবে ব্যবহার করব:

Dim fso As New FileSystemObject
Dim fld As Folder
Dim ts As TextStream

আমি একটি ত্রুটি পাচ্ছি কারণ এটি এই বিষয়গুলি স্বীকৃতি দেয় না।

Answer 1

এক্সেলের মধ্যে আপনাকে ভিবি স্ক্রিপ্ট রান-টাইম লাইব্রেরির জন্য একটি রেফারেন্স সেট করতে হবে। সম্পর্কিত ফাইলটি সাধারণত অবস্থিত usually\Windows\System32\scrrun.dll

• এই ফাইলটি উল্লেখ করতে, ভিজ্যুয়াল বেসিক সম্পাদক ( ALT+ F11) লোড করুন
• ড্রপ-ডাউন মেনু থেকে সরঞ্জাম> রেফারেন্স নির্বাচন করুন
• উপলব্ধ রেফারেন্সগুলির একটি তালিকাবক্স প্রদর্শিত হবে
• ' Microsoft Scripting Runtime' এর পাশের চেক-বাক্সটিতে টিক দিন
• scrrun.dllফাইলটির পুরো নাম এবং পথ তালিকার বাক্সের নীচে প্রদর্শিত হবে
• বাটনে ক্লিক করুন OK।

ভিবিএ অবজেক্ট মডেলটিতে অ্যাক্সেস সক্ষম করা থাকলে কোডে এটি সরাসরি করা যায়।

ফাইল> বিকল্পগুলি> ট্রাস্ট কেন্দ্র> ট্রাস্ট কেন্দ্র সেটিংস> ম্যাক্রো সেটিংসেTrust access to the VBA project object model পাওয়া চেক-বাক্সটিতে টিক দিয়ে অ্যাক্সেস সক্ষম করা যেতে পারে

একটি রেফারেন্স যোগ করতে:

Sub Add_Reference()

    Application.VBE.ActiveVBProject.References.AddFromFile "C:\Windows\System32\scrrun.dll"
'Add a reference

End Sub

একটি রেফারেন্স অপসারণ করতে:

Sub Remove_Reference()

Dim oReference As Object

    Set oReference = Application.VBE.ActiveVBProject.References.Item("Scripting")

    Application.VBE.ActiveVBProject.References.Remove oReference
'Remove a reference

End Sub

Comments

আপনি একটি ম্যাক উপর কি করবেন?

— থমাস ফানখাউজার

কমান্ড লাইনের মাধ্যমে কোনও পাঠাগার বা অন্য কিছু অন্তর্ভুক্ত করার মতো উপায় নেই?

— LuizAngioletti

'মাইক্রোসফ্ট স্ক্রিপ্টিং রানটাইম' চেক-বাক্সটিতে টিকটিক করার কী উপায় আছে? সব এক্সেল ফাইলের জন্য? আমি এক্সেল 2016 ব্যবহার করছি

— compski

এই প্রশ্নের গৃহীত উত্তরটি একবার দেখুন। stackoverflow.com/questions/9879825/…

— রবার্ট মের্নস

Answer 2

এক্সেল 2013 এ অবজেক্ট তৈরির স্ট্রিংটি হ'ল:

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

উপরের উত্তরে কোডের পরিবর্তে:

Dim fs,fname
Set fs=Server.CreateObject("Scripting.FileSystemObject")

Comments

কিছুটা স্পষ্ট করে বলার জন্য, আমি সাধারণত এটিকে দেখতে পাইDim fso As Object

— মার্কুকিবিয় 2

Answer 3

তারা কিভাবে ফাইলসিস্টেম অবজেক্ট ব্যবহার করার চমৎকার উদাহরণ আছে http://www.w3schools.com/asp/asp_ref_filesystem.asp

<%
dim fs,fname
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fname=fs.CreateTextFile("c:\test.txt",true)
fname.WriteLine("Hello World!")
fname.Close
set fname=nothing
set fs=nothing
%> 

Comments

এই কোড স্নিপেট এএসপি / আইআইএস এফএসও ব্যবহারের উপর

— ভিত্তি করে

Answer 4

রেফারেন্স যুক্ত করার পরে, আমাকে ব্যবহার করতে হয়েছিল

Dim fso As New Scripting.FileSystemObject

Answer 5

উপরে বর্ণিত হিসাবে স্ক্রিপ্টিং রানটাইম আমদানির পরে এটি এক্সেল ২০১০ (আমার সংস্করণ) এ কাজ করার জন্য আপনাকে কিছুটা পরিবর্তন করতে হবে। নিম্নলিখিত কোডটিতে আমি একটি ফাইল বাছাই করতে ব্যবহারকারীর সাথে ব্যবহৃত কোডটিও যুক্ত করেছি।

Dim intChoice As Integer
Dim strPath As String

' Select one file
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False

' Show the selection window
intChoice = Application.FileDialog(msoFileDialogOpen).Show

' Get back the user option
If intChoice <> 0 Then
    strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
Else
    Exit Sub
End If

Dim FSO As New Scripting.FileSystemObject
Dim fsoStream As Scripting.TextStream
Dim strLine As String

Set fsoStream = FSO.OpenTextFile(strPath)

Do Until fsoStream.AtEndOfStream = True
    strLine = fsoStream.ReadLine
    ' ... do your work ...
Loop

fsoStream.Close
Set FSO = Nothing

আশা করি এটি সাহায্য করবে!

শুভেচ্ছান্তে

ফ্যাবিও