excel - FSO Writeblankline 无法正常工作

Question

有谁知道为什么

  .writeblanklines 3 

不工作？我尝试了很多不同的方法，但它似乎总是覆盖文本文件中的行。

    Private Sub CommandButton3_Click()

Dim fso As FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
Dim fsofolder As Folder
Set fsofolder = fso.GetFolder("U:\files")
Dim file1 As file
Dim a As Integer

Dim b As String
b = "U:\files\" & ListBox1.Value

fso.OpenTextFile(b, ForWriting).WriteBlankLines 3
fso.OpenTextFile(b, ForWriting).WriteLine (TextBox3.Value)

Answer 1

请参阅：http: //msdn.microsoft.com/en-us/library/aa265347 (v=vs.60).aspx

如果要附加内容，请ForAppending在打开文件时使用。