VBA打開TXT類文件讀寫相關操作代碼

Open 文件名 for 打開方式 as 文件編號

打開方式:
Input ：只能讀，不能寫
Append：允許讀也允許寫，如果存在文件就追加記錄，如果沒有就新建文件
Output：可以讀，也可以寫。但總會把原來的同名文件刪除，再新建一個

讀取txt文件內容方法
input：從文件中讀取指定數量的字符。
Input #：把數據讀出放在變量裏，變量用逗號分隔
Line Input #：取出完整的一行

向文件中寫入數據
 write #：向文件中寫入值，值用引號引起來。如果想在同一行中繼續寫入，可以在前一次寫時結尾添加“;”號
 Print #：向文件中寫入值，如果想在同一行中繼續寫入，可以在前一次寫時結尾添加“;”
字符的間隔符
 Spc(n)表示輸入n個空字符

範例：用Print寫入
1、分行輸入
Sub t1()
Dim f As String
f = ThisWorkbook.path & "\a.txt"
Open f For Output As #1
Print #1, "產品名稱"
Print #1, Date
Close #1
End Sub
2、在同一行輸入
Sub t2()
Dim f As String
f = ThisWorkbook.path & "\a.txt"
Open f For Output As #1
Print #1, "產品名稱";
Print #1, "A產品"
Close #1
End Sub
3、輸入時添加空格符
Sub t3()
Dim f As String
f = ThisWorkbook.path & "\a.txt"
Open f For Output As #1
Print #1, "產品名稱"; Spc(5);
Print #1, "A產品"
Close #1
End Sub

4、在指定的列數輸入
Sub t4()
Dim f As String
f = ThisWorkbook.path & "\a.txt"
Open f For Output As #1
Print #1, "產品名稱"; Tab(8); '在第10列輸入下面的，如果爲空則插入到下一個打印的位置
Print #1, "A產品"
Close #1
End Sub

範例：用Write寫入
Sub t5()
Dim f As String
f = ThisWorkbook.path & "\a.txt"
Open f For Output As #1
Write #1, "產品名稱"
Write #1, 5
Close #1
End Sub

Sub t6()
Dim f As String
f = ThisWorkbook.path & "\a.txt"
Open f For Output As #1
Write #1, "產品名稱";
Write #1, 5
Close #1
End Sub

Sub t7()
Dim f As String
f = ThisWorkbook.path & "\a.txt"
Open f For Output As #1
Write #1, "產品名稱"; 5 '這裏逗號等同於"; "(分號)"
Close #1
End Sub