txt文件的读写
'Open 文件名 for 打开方式 as 文件编号
'打开方式:
'Input :只能读,不能写
'Append:允许读也允许写,如果存在文件就追加记录,如果没有就新建文件
'Output:可以读,也可以写。但总会把原来的同名文件删除,再新建一个
'读取txt文件内容方法
'input:从文件中读取指定数量的字符。
'Input #:把数据读出放在变量里,变量用逗号分隔
'Line Input #:取出完整的一行
'向文件中写入数据
'write #:向文件中写入值,值用引号引起来。如果想在同一行中继续写入,可以在前一次写时结尾添加“;”号
'Print #:向文件中写入值,如果想在同一行中继续写入,可以在前一次写时结尾添加“;”
'字符的间隔符
'Spc(n)表示输入n个空字符
写入实例
'将sheet2表中的数据写入到文本文本中
Sub 转换成txt文件()
Dim f, arr, x, y, k
f = ThisWorkbook.path & "\ruku.txt"
arr = Sheets("sheet2").Range("a1:e6")
Open f For Output As #1
For x = 1 To UBound(arr)
For y = 1 To UBound(arr, 2)
If y = UBound(arr, 2) Then
Print #1, arr(x, y)
Else
If VBA.IsNumeric(arr(x, y)) Then
k = 12 - Len(arr(x, y)) - 2
ElseIf arr(x, y) Like "[A-Z]" Or VBA.IsDate(arr(x, y)) Then
k = 12 - Len(arr(x, y)) - 1
Else
k = 12 - Len(arr(x, y)) * 2
End If
Print #1, arr(x, y); Spc(k);
End If
Next y
k = 0
Next x