Question

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

在文本文件中记录为
A1 C1
A2 C2
A3 C3
..........

Answer 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

追问

去试一下先

定义rcA为最大列数，i为计数器，
s为输出集合，
然后遍历1~rcA列

“s = s & Range("A" & i) & vbTab & Range("B" & i) & vbCrLf”是什么意思？

追答

RCA是A列有数据的最大行……
S是一个字符变量，存放A/C列从第一行到最后一行的所有内容。

Answer 2

A与C之间不用分隔符？