वीबीए

Question

का उपयोग कर एक txt फ़ाइल को कैसे बनाएं और लिखें, मेरे पास एक फ़ाइल है जिसे मैन्युअल रूप से इनपुट के आधार पर जोड़ा या संशोधित किया गया है। चूंकि अधिकांश सामग्री उस फ़ाइल में दोहराई जाती है, केवल हेक्स मान बदल रहे हैं, मैं इसे एक उपकरण जेनरेट फ़ाइल बनाना चाहता हूं।

मैं उन कोडों को लिखना चाहता हूं जो .txt फ़ाइल में मुद्रित होने जा रहे हैं।

क्या आदेश एक .txt VBA का उपयोग कर फ़ाइल बनाने के लिए है, और कैसे मैं लिखने यह

Answer 1

उपयोग एफएसओ फ़ाइल बनाने और इसे करने के लिए लिखने के लिए करते हैं।

• http://technet.microsoft.com/en-us/library/ee198742.aspx
• http://technet.microsoft.com/en-us/library/ee198716.aspx

Answer 2

बाहर ज्यादा अतिरेक के साथ एक आसान तरीका:

Dim fso as Object 
Set fso = CreateObject("Scripting.FileSystemObject") 
Dim oFile as Object 
Set oFile = FSO.CreateTextFile(strPath) 
oFile.WriteLine "test" 
oFile.Close 
Set fso = Nothing 
Set oFile = Nothing  

दस्तावेज़ यहां देखें।

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

    Dim Fileout As Object 
    Set Fileout = fso.CreateTextFile("C:\your_path\vba.txt", True, True) 
    Fileout.Write "your string goes here" 
    Fileout.Close 

Answer 3

Dim SaveVar As Object 

Sub Main() 

    Console.WriteLine("Enter Text") 

    Console.WriteLine("") 

    SaveVar = Console.ReadLine 

    My.Computer.FileSystem.WriteAllText("N:\A-Level Computing\2017!\PPE\SaveFile\SaveData.txt", "Text: " & SaveVar & ", ", True) 

    Console.WriteLine("") 

    Console.WriteLine("File Saved") 

    Console.WriteLine("") 

    Console.WriteLine(My.Computer.FileSystem.ReadAllText("N:\A-Level Computing\2017!\PPE\SaveFile\SaveData.txt")) 
    Console.ReadLine() 

End Sub() 

Answer 4

Open ThisWorkbook.Path & "\template.txt" For Output As #1 
Print #1, strContent 
Close #1