Excel中vba怎么获取一个TXT文件的固定行数据

刚才试了一下，你说的这种类型的txt好像可以直接用excel打开，所以我录了个宏，改了一下

你可以试试：

Sub 提取()

Set zsht = ActiveSheet

WorkbooksOpenText Filename:="d:\ABCtxt"

Set mytxt = ActiveWorkbook

zshtRange("a1:d10")Value = ActiveSheetRange("a1:d10")Value

mytxtClose

End Sub这个宏是要先打开一个空表格，然后运行这个宏，会把txt当成表格打开，并A1：D10数值赋值给刚才打开的空表格

因为你的x和y并不是读取行数 而是variant 是数组

所以必须要先activate那一页才对

给你举个例子

dim i%,j%

dim x,y

workbooksopen "d:\2xls"

workbooks("2xls")activate

i=Worksheets(1)[a65535]end(xlup)row 'i 和j是sheet1,2应用了行数 是整数，不用去激活那张sheet

j=Worksheets(2)[a65535]end(xlup)row

Worksheets(1)activate

x=Worksheets(1)range("a2:a" & range("a65535")end(xlup)row)

Worksheets(2)activate

y=worksheets(2)range("a2:a" & range("a65535")end(xlup)row)

实现的方法和详细的 *** 作步骤如下：

1、第一步，显示该单元格中所选单元格的行号和列号，并使用VBA在以下两个单元格中进行显示，见下图，转到下面的步骤。

2、第二步，完成上述步骤后，按“Alt +  F11”打开VBA编辑界面，选择当前工作表以编写代码，见下图，转到下面的步骤。

3、第三步，完成上述步骤后，以下代码是当前单元格的行号，并将其放在当前单元格的下一个单元格中，见下图，转到下面的步骤。

4、第四步，完成上述步骤后，以下代码用于获取当前单元格的列号，并将其放在当前单元格下面的第二个单元格中，见下图，转到下面的步骤。

5、第五步，完成上述步骤后，编写代码完成，单击“运行”按钮（或按F5键），见下图，转到下面的步骤。

6、第六步，完成上述步骤后，当返回Excel时，可以看到当前单元格的行号和列号，见下图。这样，就解决了这个问题了。

用Replace Pioneer按照第一列的内容对第二列累加，详细步骤： 1 ctrl-o打开文本文件atxt 2 ctrl-h打开replace窗口 replace unit选择Line 点击Advanced选项页 在insert begin text输入get_values_all() 在run following at the beginning of replace输入clear_values_all() 在run following for each matched unit输入set_value($match[1],get_value($match[1])+$match[2]); 3 点击Replace即可。 4 ctrl-s保存为btxt

的方法

11 方法1

循环方法，固定1行/1列，另外一维循环

for arr1(i,1)

12 方法2

applicationindex() 取一维

applicationindex(arr1,1,0)

applicationindex(arr1,0,1)

2 工作表函数的index都默认从1开始

21 工作表函数

index 的序号默认都是从1开始，而非从0开始

用index取出来的数组，index已经从1开始了

工作表函数index ,match都是index从1开始，EXCEL本身 row column 都得从1开始

22 数组别忘记了你的index从0还是从1开始

Sub test001()

Dim arr1()

ReDim arr1(3, 3)

DebugPrint "不完整数组展示"

'因为你第一种显示数组只取了数组44中 33部分

For I = 1 To 3

For J = 1 To 3

arr1(I, J) = 2 I + 3 J

DebugPrint arr1(I, J);

Next

DebugPrint

Next

DebugPrint

DebugPrint "完整数组展示"

'这才是数组的完整内容44

For I = LBound(arr1) To UBound(arr1)

For J = LBound(arr1, 2) To UBound(arr1, 2)

arr1(I, J) = 2 I + 3 J

DebugPrint arr1(I, J) & ",";

Next

DebugPrint

Next

DebugPrint

'arr2 = ApplicationTranspose(ApplicationIndex(arr1, , 1))

'arr2 = ApplicationTranspose(ApplicationTranspose(ApplicationIndex(arr1, 1, 0)))

'为啥第0行变成了第2行？--因为你第一种显示数组只取了数组44中 33部分

'index 的序号默认都是从1开始，而非从0开始

'用index取出来的数组，index已经从1开始了

'工作表函数index ,match都是index从1开始，EXCEL本身 row column 都得从1开始

人活一辈子，就活一颗心，心好了，一切就都好了，心强大了，一切问题，都不是问题。

人的心，虽然只有拳头般大小，当它强大的时候，其力量是无穷无尽的，可以战胜一切，当它脆弱的时候，特别容易受伤，容易多愁善感。

心，是我们的根，是我们的本，我们要努力修炼自己的心，让它变得越来越强大，因为只有内心强大，方可治愈一切。

没有强大的敌人，只有不够强大的自己

人生，是一场自己和自己的较量，说到底，是自己与心的较量。如果你能够打开自己的内心，积极乐观的去生活，你会发现，生活并没有想象的那么糟糕。

面对不容易的生活，我们要不断强大自己的内心，没人扶的时候，一定要靠自己站稳了，只要你站稳了，生活就无法将你撂倒。

人活着要明白，这个世界，没有强大的敌人，只有不够强大的自己，如果你对现在的生活不满意，千万别抱怨，努力强大自己的内心，才是我们唯一的出路。

只要你内心足够强大，人生就没有过不去的坎

人生路上，坎坎坷坷，磕磕绊绊，如果你内心不够强大，那这些坎坎坷坷，磕磕绊绊，都会成为你人生路上，一道道过不去的坎，你会走得异常艰难。

人生的坎，不好过，特别是心坎，最难过，过了这道坎，还有下道坎，过了这一关，还有下一关。面对这些关关坎坎，我们必须勇敢往前走，即使心里感到害怕，也要硬着头皮往前冲。

人生没有过不去的坎，只要你勇敢，只要内心足够强大，一切都会过去的，不信，你回过头来看看，你已经跨过了多少坎坷，闯过了多少关。

内心强大，是治愈一切的良方

面对生活的不如意，面对情感的波折，面对工作上的糟心，你是否心烦意乱？是否焦躁不安？如果是，请一定要强大自己的内心，因为内心强大，是治愈一切的良方。

当你的内心，变得足够强大，一切困难，皆可战胜，一切问题，皆可解决。心强则胜，心弱则败，很多时候，打败我们的，不是生活的不如意，也不是情感的波折，更不是工作上的糟心，而是我们内心的脆弱。

真的，我从来不怕现实太残酷，就怕自己不够勇敢，我从来不怕生活太苦太难，就怕自己不够坚强。我相信，只要我们的内心，变得足够强大，人生就没有那么多鸡毛蒜皮。

强大自己的内心，我们才能越活越好

生活的美好，在于追求美好的生活，而美好的生活，源于一颗强大的内心，因为只有内心强大的人，才能消化掉各种不顺心，各种不如意，将阴霾驱散，让美好留在心中。

心中有美好，生活才美好，心中有阳光，人生才芬芳。一颗阴暗的心，托不起一张灿烂的脸，一颗强大的心，可以美化生活，精彩人生，让我们越活越好。

生活有点欺软怕硬，如果你内心很脆弱，生活就会打压你，甚至折磨你，如果你内心足够强大，生活就会奖励你，眷顾你，全世界都会对你和颜悦色。

第一段尾行：行号1=thisworkbooksheets("Sheet1")range("a1")end(xldown)row

第二段尾行：行号2=thisworkbooksheets("Sheet1")range("a65536")end(xlup)row

第二段首行：行号3=thisworkbooksheets("Sheet1")range("a" & 行号3)end(xlup)row

1、打开文档，输入一些数字。

2、然后在空白的单元格内容输入=MID，选择MID函数。

3、然后三个参数依次选择A1,2,3，代表取A1单元格数据，从第2个数字开始，取3个数字。

4、按下Enter键，可以看到结果已经出现了。

5、然后拉下右下角的填充柄，即可将其他的单元格内容快速提取出来。

复制到模块中后,解除注释块

'Sub Copy2Sheet61()

'Dim I As Integer

'Dim Rw As Range

'

'Sheets(61)Range("A1:D1") = Array("标题A", "标题B", "标题C", "标题D")

' For I = 1 To 60

' For Each Rw In Sheets(I)Range("A1:D4")Rows

' If RwCells(3) <> 0 Then

' RwCopy Sheets(61)Range("A65536")End(xlUp)Offset(1)

' End If

' Next

' Next

'End Sub

以上就是关于Excel中vba怎么获取一个TXT文件的固定行数据全部的内容，包括:Excel中vba怎么获取一个TXT文件的固定行数据、vba 读取行数问题。、怎样用vba显示选择区域的第一个单元格的行的数值，列的数值等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！