VBA基础知识整理（文本文件操作）

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