亲，试一下这个，会在当前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列从第一行到最后一行的所有内容。
VBA:如何读取指定excel中的指定sheet中的A列 和 C列数据并写入文本文件...
亲，试一下这个，会在当前Excel所在的文件夹下建立一个ac.txt文件，里面存放A\/C列的数据，中间用TAB空白隔开。Sub ac()Dim rcA, i As LongDim s As StringrcA = Range("A" & Rows.Count).End(xlUp).RowFor i = 1 To rcA s = s & Range("A" & i) & vbTab & Range("B" &...
如何用vba把excel数据写入到wordvbaexcel数据写入word文档
方法一：在excel里编写一个程序段，打开本数据表，循环开始：步骤1，打开或新建一个word文档，把你说的指定位置找到，步骤2，把此位置内容改写为excel内想应的数据，步骤3，保存word文档退出;然后重复下一个数据，按上述步骤循环至结束。也可以方法二：在word里编写程序，打开excel这个数据表，循环开始：...
vba excel怎么获取指定工作表的行数、列数
1.首先，打开Excel软件 2.打开源数据文件，假如需要根据证券代码显示出行业名称。现在，在I1单元格输入”证券代码“，在J1单元格输入”Nnindnme"。3.如图，选中J2单元格，单击工具栏中的"插入函数“4.弹出”插入函数“对话框，选择插入IF函数 5.在弹出的”函数参数“对话框中，设置Logical_test参数为...
VBA查找某excel中sheet1里面名为abc的列,并且将该列下所有行的数据存入...
参考 sub aaa()dim arr,c&,brrarr=sheets(1).usedrange.valuefor c=1 to ubound(arr,2) if arr(1,c)="abc" then '这里假设字段在第一行 brr=application.transpose(application.index(arr,,c)) brr(1)="" '这里的得的数组brr是一个包含字段abc的一维数组，这里是把字段简单的...
vb怎样读取excel中指定单元格内容并显示vb怎样读取excel中指定单元格...
1.打开一个Excel的文件,在表格中输入简单的表格,比如学生成绩表格。2.接着,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,...3.然后,在表格中绘制出按钮控件,并修改控件名称。4.接着,鼠标左键单击【查看代码】按钮 5然后，在代码窗口中输入VBA语句，比如输入定义变量语句，...
vba如何读取excel中某单元格的行数或列数
1、将单元格所选单元格的行号和列号，分别用VBA显示在下面的两个单元格中，如下图所示：2、按下Alt+F11，打开VBA编辑界面，选择当前工作表编写代码，如下图所示：3、下面代码是得到当前单元格的行号并放到当前单元格下一个单元格中：4、下面代码是得到当前单元格的列号并放到当前单元格下面第二个...
怎样用VBA读取一个excel表格中的某一列,然后提取出来放到另一个sheet的...
Sheets("sheet1").Range("a1:a30").Copy Sheets("Sheet2").Select [a5].Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=True
VBA读取指定工作簿里的一个sheet到我的excel file
用getobject方法可以隐藏打开的工作簿对象，实现看上去没有打开的过程 sub test()dim wb as workbook dim sht as worksheet set wb=getobject("C:\\A.xls")set sht=wb.worksheets(1)sht.Cells.Copy ThisWorkbook.Worksheets(1).[A1]wb.close set wb=getobject("C:\\B.xls")set sht=wb.worksheets...
如何用Excel VBA读取某一文件夹下批量TXT文本内的某行某列?
如下代码代表4行4列，如果其余行或列数则可更改相应的数字。具体步骤如下：打开office excel；Alt+F11打开VBA编辑器；复制如下代码到模块中；F5运行该模块；按照提示进行如下步骤即可。Sub xxx()Dim myFile As StringDim myText As StringDim myString As StringDim i As SingleWith Application....
VBA中,各个sheet的读取和写入这么个引用呢。Sheet!A?
由于你是整列读取的，应该用for循环语句，见下面代码：Sub 写入()Sheets("sheet1").Select 'sheet1A列写入sheet2的C列 For i = 1 To [a65536].End(xlUp).Row Sheets("sheet2").Range("c" & i) = Format(Range("a" & i), "MMDDYY")Next 'sheet1B列写入sheet2的D列 For i = 1...
