求VB.6存取文档（excel或txt格式的文档）的代码！谢谢！

Answer 1

Dim A, S As String

Dim FreeNum As Integer
FreeNum = FreeFile
'Freenum表示一个空闲的文件号
open "D:\date.txt" for input as #FreeNum
'这步是打开“date.txt”，for input表示以输入方式（即读取文件）打开。如果要写入文件则应该用output或append。

Do Until eof(FreeNum)   '循环，直到文件结尾。Eof函数用来判断文件是否读完
 Line Input #FreeNum, A
 S = S + vbNewLine + A   'S用来保存整个文件
 If A满足某个条件 And Not Eof(FreeNum) Then
  Line Input #FreeNum, A    '读取下一行的内容
  Exit do    '退出循环
 End if
Loop
Close FreeNum

至于将一个新值写进第N行，则可以
Dim A, S, S1 As String

Dim FreeNum As Integer
FreeNum = FreeFile
'Freenum表示一个空闲的文件号
open "D:\date.txt" for input as #FreeNum
'这步是打开“date.txt”，for input表示以输入方式（即读取文件）打开。如果要写入文件则应该用output或append。

Do Until eof(FreeNum)   '循环，直到文件结尾。Eof函数用来判断文件是否读完
 Line Input #FreeNum, A
 S1 = S1 + vbNewLine + A   'S用来保存1到n-1行的内容，S1用来表示n行以后的内容
 If A满足新写一行的条件 Then
  S = S1
  S1 = ""
 End if
Loop

Close FreeNum
Open "D:\date.txt" For Output As FreeNum
'关闭文件之后重新以Output的模式打开。
Print #FreeNum, S
Print #FreeNum, 新插入一行的内容
Print #FreeNum, S1
Close FreeNum
即可

Answer 2

(1) txt文档读写：

Private Sub Command1_Click()
Dim file1,file2 As String
Dim strin, strout As String

Dim strinput As String
strinput = InputBox("请输入文件名", "", "temp")

file1 = App.Path + "\" + strinput + ".txt"
If (Dir(file1) = "") Then MsgBox "文件不存在！": Exit Sub
file2 = App.Path + "\" + strinput + "2" + ".txt"
Open file1 For Input As #1
Open file2 For Output As #2
While (Not EOF(1))
Line Input #1, strin
strout=strin
Print #2, strout

Wend

Close 2
Close 1
End Sub
(2)Excel文档读写：
Dim Xl As Object
Dim Xlbook,Xlbook2 As Object
Dim Xlsheet,Xlsheet2 As Object
Dim Excelfilepath as string
Excelfilepath="D:\1.xls"
Set Xl = New Excel.Application
Set Xlbook = Xl.Workbooks.Open(Excelfilepath)'打开Excel文档
Set Xlsheet = Xlbook.Worksheets(1) ‘指向某一sheet
Set Xlbook2 = Xl.Workbooks.Add()'创建Excel文档
Set Xlsheet2 = Xlbook2.Worksheets(1)
Xlsheet2.Cells(1, 1) = Xlsheet.Cells(1, 1)‘读写
Xlbook2.SaveAs "D:\2.xls"’保存Excel文档