Tworzenie i zapisywanie do pliku txt za pomocą VBA

Question

Mam plik, który jest ręcznie dodawany lub modyfikowany na podstawie danych wejściowych. Ponieważ większość zawartości jest powtarzalna w tym pliku, zmieniają się tylko wartości szesnastkowe, chcę uczynić z niego plik wygenerowany przez narzędzie.

Chcę napisać kody c, które zostaną wydrukowane w tym pliku .txt.

Co to jest polecenie, aby utworzyć plik .txt przy użyciu VBA i jak mogę napisać to

Answer 1

Zastosowanie FSO, aby utworzyć plik i napisać do niego.

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  

Zobacz dokumentację tutaj:

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

Answer 2

łatwy sposób z redundancją się znacznie.

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