將文件設置爲VBA中的文件對象

Question

我想檢查一下.txt文件是否退出。

如果是這樣，我想寫入它。

如果不是，我想創建它並寫入它。

我的問題是如果文件存在我不知道如何設置fso對象到文件，以便我可以寫入它。你能幫我嗎？

Sub WriteToTxtFile() 
Dim fso As Object 
Set fso = CreateObject("Scripting.FileSystemObject") 
Dim oFile As Object 
Dim FilePath As String 
FilePath = "C:\Users\me\Desktop\file1.txt" 

If Len(Dir(DirFile)) = 0 Then 'if the file does not exist create it 
    Set oFile = fso.CreateTextFile(FilePath) 
    oFile.WriteLine "# , Date, Open, High, Low, Close, Volume, VWAP" 
    oFile.WriteLine "1/1/2015, 10,10,10,10,10,10" 
Else 
    Set oFile = ???.(FilePath) 'i know the file exists but what do I put here to access it? 
    oFile.WriteLine "# , Date, Open, High, Low, Close, Volume, VWAP" 
    oFile.WriteLine "1/1/2015, 10,10,10,10,10,10" 
End If 

oFile.Close 
Set fso = Nothing 
Set oFile = Nothing 

End Sub 

Answer 1

使用下面的子例程將文本追加到現有的文件，而不是

Sub AppendTxt(sFile As String, sText As String) 
    Dim FileNumber As Integer 
    FileNumber = FreeFile     
    Open sFile For Append As #FileNumber 
    Print #FileNumber, sText     
    Close #FileNumber      
End Sub