修改一段代码。。。。。谢谢老师"cfood"提点。

IF_8_THEN_OK

执行这段代码后 输出的TXT却在上一级,还在本目录生成一个0KB的txt
本想输出的TXT在本目录，而且不生成0KB的TXT

是那里出错码？
Next
[S1].Resize(C.Count, 1) = Application.Transpose(C.keys)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.createtextfile(ThisWorkbook.Path & "\" & Cells(2, 26).Value & ".TXT")
   f.Close
     Set f = Nothing
     Set fso = Nothing
Open ThisWorkbook.Path & Cells(2, 26).Value & ".TXT" For Output As #1
   r = Range("S65536").End(xlUp).Row
    For i = 1 To r
       x = Cells(i, 19)
       Print #1, x
    Next i
    Close #1
End Sub

[ 本帖最后由 IF_8_THEN_OK 于 2010-3-5 18:28 编辑 ]

cflood

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.createtextfile(ThisWorkbook.Path & "\" & Cells(2, 26).Value & ".TXT")  '在本目录生成0字节文件
   f.Close
     Set f = Nothing
     Set fso = Nothing
Open ThisWorkbook.Path & Cells(2, 26).Value & ".TXT" For Output As #1  ‘在上级目录生成文件
   r = Range("S65536").End(xlUp).Row
    For i = 1 To r
       x = Cells(i, 19)
       Print #1, x
    Next i
    Close #1
End Sub
open for output 和fso.createtextfile只用1个就行了，filesystemobject你没有加输出内容的代码，open语句ThisWorkbook.Path少了“&"\" ”

IF_8_THEN_OK

原帖由 cflood 于 2010-3-5 17:23 发表
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.createtextfile(ThisWorkbook.Path & "\" & Cells(2, 26).Value & ".TXT")  '在本目录生成0字节文件
   f.Close
     Set f = Nothing
      ...

谢谢

IF_8_THEN_OK

这样，是正确的，在本目录生成文件不会是0KB了：
Open ThisWorkbook.Path & "\" & Cells(2, 26).Value & ".TXT" For Output As #1  
   r = Range("S65536").End(xlUp).Row
    For i = 1 To r
       x = Cells(i, 19)
       Print #1, x
    Next i
    Close #1
End Sub