vb读取excel数据长数据自动换行(vb获取excel行数)

1. vb获取excel行数

建一个文件夹，把目标txt文件和excel文件放入其中，在excel的宏编辑器中写入以下代码，有些地方可根据你的实际情况做相应改动：

Sub import_from_txt()

Dim file_name As String, my_path As String

Dim lines, cols

Dim i As Integer, j As Integer, k As Integer, q As Integer

Application.ScreenUpdating = False

Worksheets("Sheet1").Range("A1:Z65536").ClearContents

my_path = ThisWorkbook.Path

file_name = "test.txt"

'读取文件

Open my_path & "\" & file_name For Input As #1

lines = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)

Close #1

k = UBound(lines) + 1 '文件的行数

'遍历每一行

For i = 1 To k

cols = Split(lines(i - 1), ",") '以逗号作为分隔，将每行字符分割，分隔符可根据实际情况自己修改

q = UBound(cols) + 1 '分隔成的列数

For j = 1 To q '遍历该行的每一列

Worksheets("Sheet1").Cells(i, j) = cols(j - 1) '输出到表格中

Next

Next

MsgBox ("文件" & file_name & "读取完成,共" & k & "行")

Application.ScreenUpdating = True

End Sub

2. vb 获取excel单元格数据

1、打开VB-》在form1上增加一个command1按钮，双击command1按钮，把以下代码放入窗体内；

2、运行前，在菜单的选“工程”->“引用”->找到MicrosoftExcel12.0ObjectLibrary->确定；然后才可以运行；

3、代码如下：DimExAppAsNewExcel.ApplicationDimExbAsExcel.WorkbookDimExshAsExcel.WorksheetDimarr(6,6)AsInteger'定义一个二维数组，数据类型为整数ExApp.Workbooks.Open"c:\book1.xls"'打开EXEL文件，路径和文件名自己根据实际修改SetExb=ExApp.Workbooks(1)SetExsh=Exb.Worksheets("Sheet1")Fori=1To6'假设是读取A1:F6的6X6区域数据Forj=1To6arr(i,j)=Exsh.Cells(i,j)NextjNexti'把自己需要对数组数据进一步处理的部分加进去...ExApp.Workbooks.CloseExApp.QuitSetExApp=Nothing

3. vba获取当前单元格行数

用a.exists(c)快，这个是用hash比较的方法判断是不是存在，速度要快很多。

4. 动态用vba获取单元格的行号

Excel可以利用VBA获得列最后的内容，并提取到制定位置。；软件版本：Office2007；方法如下：；

1.将A列中最后的内容提取到C1中：；

2.Alt+F11，输入代码如下：；Sub m()；x = Range("A65536").End(3).Row '将最后一个非空单元格的行号赋给变量x；Cells(1, "C") = Cells(x, "A") '将最后一个非空单元格赋给单元格A3；End Sub；3.F5执行代码，关闭VBA界面，返回Excel得到结果如下：

5. vb获取word表格行数

Function lines(r) 'r 为某单元格，如A1r.WrapText = Falsex = r.Heightr.WrapText = Truey = r.Heightlines = y / xEnd Function使用方法 lines(range("A1"))思路：设置该单元格不自动换行，得到此时的高度x，恢复自动换行，得到此时的高度y，行数=y/x

6. vb读取excel行数

可以使用 Visual Basic for Applications (VBA) 来导入 Excel 中的数据。可以通过以下步骤来实现：

打开 Excel 并启动 VBA 编辑器（按 ALT + F11）。

在 VBA 编辑器中，新建一个模块。

复制下面的代码并粘贴到模块

Sub ImportData()

    Dim wb As Workbook

    Set wb = Workbooks.Open("C:\path\to\your\file.xlsx")

    ' Import the data into the active sheet

    wb.Sheets(1).Range("A1").CurrentRegion.Copy Destination:=ActiveSheet.Range("A1")

    wb.Close False

End Sub

替换 "C:\path\to\your\file.xlsx" 为你的文件路径。

在 VBA 编辑器中运行该代码（按 F5 或选择“运行”）。

该代码会导入 Excel 中的数据到当前工作簿的第一个工作表中。

顶一下

(0)

0%

踩一下

(0)

0%