阿Q吧 > VBA:如何读取指定excel中的指定sheet中的A列和 C列数据并写入文本文件

VBA:如何读取指定excel中的指定sheet中的A列和 C列数据并写入文本文件

在文本文件中记录为A1 C1A2 C2A3 C3..........

2024-10-29 16:58:21

推荐回答（2个）

回答1：

亲，试一下这个，会在当前Excel所在的文件夹谈李竖下建立一个ac.txt文件，里面存放A/C列的数据，中间用TAB空白隔开。

Sub ac()
Dim rcA, i As Long
Dim s As String
rcA = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To rcA
   扰缓 s = s & Range("A" & i) & vbTab & Range("B" & i) & vbCrLf
Next
Open 含大ThisWorkbook.Path & "\ac.txt" For Output As #1
Print #1, s
Close #1
End Sub

回答2：

A与C之间不用分隔符？

VBA:如何读取指定excel中的指定sheet中的A列 和 C列数据并写入文本文件

VBA:如何读取指定excel中的指定sheet中的A列和 C列数据并写入文本文件