Excel里怎样读.txt文件？

Question

Excel的vba里我想读.txt文件，把第一行的东西付到一个变量里，再把它写入一个.dat文件的第一行里，怎么实现？先谢了

Answer 1

Dim filenumber As Integer
  filenumber = FreeFile
  Open "c:\aa.txt" For Append Access Write As #filenumber
  Print #filenumber, "myh"
  Close #filenumber

Answer 2

楼上的方法也行，我个人比较喜欢Filesystemobject。
拷贝阿，判断文件是否存在，删除文件阿都非常方便
  Set Pw_Fso = CreateObject("Scripting.FileSystemObject")
  Set Pw_Stream = Pw_Fso.OpenTextFile(FILE_DEN)
  Pw_Loop = 0
  Pw_Msg = ""
  call Gf_Begin
  Do While Not Pw_Stream.AtEndOfStream
    Pw_Line = Pw_Stream.ReadLine
    Pw_Loop = Pw_Loop + 1
    Pw_Data = split(Pw_Line,",")
    Pw_Msg = Pf_Check(Pw_Data)
    call Pf_Insert(Pw_Project,Pw_Data)  
  Loop
  call Gf_Commit
  Pw_Msg = Pw_Loop & msgI0007
  Pw_Stream.Close
  set Pw_Stream = nothing
  set Pw_Fso = nothing