如何用VB写一段代码获得Excel文件中紀錄行的行数和列数？

最新推荐文章于 2024-09-19 09:26:45 发布
最新推荐文章于 2024-09-19 09:26:45 发布
阅读量8.6k 收藏 1
点赞数
文章标签： vb excel integer
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/slove_cao/article/details/1882213
版权
在VB中获取Excel文件已用部分的行数和列数可以通过遍历所有单元格实现。例如，可以使用DO LOOP语句代替FOR循环，当遇到空单元格时结束遍历，从而提高效率。
摘要由CSDN通过智能技术生成

如何用VB写一段代码获得Excel文件中已用部分的行数和列数？

楼主ervinlj（阳光使者） 2002-09-13 14:36:04 在 VB / 基础类 提问

各位网友，大家好啊：  
  我想用VB写这样一段代码，代码的功能是获得在Excel文件中已用部分的行数和列数，应该怎么来写呢？  
  我自己先用VB写了这样一段很简单的代码：  
  Dim   obj1   As   Excel.Application  
  Dim   obj2   As   Excel.Workbook  
  Set   obj1   =   CreateObject("Excel.Application")  
  Set   obj2   =   obj1.Workbooks.Open(fileName)  
  msgbox   obj1.rows       '代码运行到这里会出现"out   of   memory!"的运行错！  
  可是出现了错误啊！呜呜呜！  
  我想请问各位网友，正确的方法应该是什么啊？我先谢谢了哦！ 问题点数：0、回复次数：6Top

scrolling="no" frameborder="0&
最低0.47元/天 解锁文章
slove_cao
关注
VB.NET 自动提取Excel 数据程序
11-15
VB.NET 自动提取Excel 数据程序
VB.net 操作 execl
weixin_33744141的博客
05-28 125
  '加载Excel数据    Private Function LoadExcelData(ByVal Path As String)        txtMsg.Text = "Excel数据导入中..."        Dim msgError As String = ""        Dim miss As Object = System.Reflection.Missing.Value...
Excel VBA编程教程（基础一）
最新发布
zhujintao520的博客
09-19 4982
首先，本篇将使用以下代码，介绍各种程序结构，大家可以先看一下。'声明循环变量和是否为空变量'循环 A2-A10 单元格'存储单元格是否为空的结果'如果为空，则用上方的单元格的值填充当前单元格End IfNext iEnd Sub以上代码运行后，在 A2:A10 单元格区域，依次判断每一个单元格是否为空，如果是空，则用上一个单元格的值填充。
VB.NET将excel数据抽取成行
weixin_44175086的博客
02-15 534
VB.NET将excel数据抽取成行@TOC 1. 将excel某一列数据按照固定分隔符分割，抽取放置成行 如图，将第一列数据以“;”分割，抽取成行。 抽取行 其他 A;;B;F;G;D 1 A;;B;F;G;D 2 抽取结果： 抽取行 其他 A 1 1 B 1 F 1 G 1 D 1 A 2 2 B 2
VB.NET 统计文件夹内文件行数
06-19 378
1.关于本文 本文中实现了两个函数：统计一个文件夹中所有符合扩展名规则的文件文字行数；统计一个文件中的文字行数 2.函数代码 '''<summary> '''统计一个文件夹中所有符合扩展名规则的文件文字行数 '''</summary> '''<par...
excel使用vb选中指定单元格，到指定行的最后一行有数据的等行数的单元格区间（列等高复制）
HD243608836的博客
11-11 1740
Sub 宏1() ' ' 宏1 宏 ' ' Dim r As String Dim ry As String r = "D12" ry = "A" Range(Range(r), Cells(Range(ry & Rows.Count).End(xlUp).Row, Range(r).Column)).Select End Sub
VB 得到文本框中文字的行数，并返回某一行的内容
05-16
内容索引:VB源码,控件组件,文本框　VB实例操作一个文本框的小程序，得到文本框内文字的行数，并返回某一行内的文字内容，如上图所示，点击“输出总行数”，它将返回文本框中文字的行数，点击“输出第二行的文字”它...
VB 获得文本框中文字的行数，并返回某一行的内容.rar
04-25
在VB（Visual Basic）编程中，获取文本框（TextBox）中的文字行数并能返回特定行的内容是一项常见的操作。在Windows应用程序开发中，文本框通常用于用户输入或显示多行文本，例如日志、配置信息或者用户反馈。下面将...
vba_获取使用行数和列数
11-29
### VBA 获取Excel工作表使用的行数和列数 在VBA（Visual Basic for Applications）中，经常需要处理Excel工作表中的数据。其中一项常见的需求是确定当前工作表已使用的行数和列数。这对于自动化任务如数据分析、...
VB.net实现无需安装Excel由代码创建Excel文件纯代码创建Excel文件
11-12
本文将深入探讨如何使用VB.NET的纯代码方式来实现这一目标，主要依赖于`Microsoft.Office.Interop.Excel`库的替代品，如NPOI或EPPlus。 首先，我们需要理解的是，`Microsoft.Office.Interop.Excel`是Microsoft提供...
用VBA得到EXCEL表格中的有效行数和列数
guoqingchun的专栏
11-04 4528
用VBA得到EXCEL表格中的行数和列数 　　每种方法中上面的是Excel的行数，下面的是Excel的列数。 方法1: 　　ActiveSheet.UsedRange.Rows.Count    　　ActiveSheet.UsedRange.Columns.Count        缺点：有时可能会比实际数大一些，原因是如果你把最后几行（列）数据清除后（非整行或整列删除），用这个命令仍
vba函数 ：判断excel工作簿数据行数
09-23
程序功能： 判断excel文件中某个工作簿中第一列的最后一行数据的行数（假设第一行有数据，以后每行数据为连续的，无空值。）
批量统计文件夹内xlsx行数
weixin_41668007的博客
07-13 1942
文件夹里有多个excel表格，得到每个表格的行数 Set fs = CreateObject("scripting.FileSystemObject") Set excel = CreateObject("excel.application") Set resultBookSheet = excel.Workbooks.Add().Sheets(1) excel.visible = true resultBookSheet.Visible = True resultBookSheet.activate
Excel VBA——两种获取使用最大行数的方法
热门推荐
hementer的博客
05-01 1万+
当我们使用VBA遍历一张工作表的时候，获取使用的最大行数十分必要。 方法一：WorkSheet对象的UsedRange属性，可直接获取使用掉的范围： 最大行号 = ActiveSheet.UsedRange.Rows.Count 方法二：Range对象的End属性，选择一个比较 Range("A60000").End(xlUp).Row 其中1代表：xlToLeft 其中2代表：xlToRight 其中3代表：xlup 其中4代表：xldown 简记 左右上下，1，2，3，4 ...
.VC获取EXCEL 表格的总行列数 新建文件
zmq5411的专栏
05-05 3024
.VC获取EXCEL 表格的总行数  _Worksheet   ws;     Range   range;        range   ＝   ws.GetUsedRange();      range   =   range.GetRows();            long   UsedRows   =   range.Get_Count();     
vb.net 读取Excel
shaniushamao的博客
02-17 6080
1、定义excel操作变量 dim objexcelfile as excel.application dim objworkbook as excel.workbook dim objimportsheet as excel.worksheet
VBA取得EXCEL表格中的行数和列数
07-25 9170
VBA取得EXCEL表格中的行数和列数 请注意不要使用Columus等关键字作为变量，例如"Columus = ActiveSheet.UsedRange.Columns.Count"！ 初学EXCEL宏的童鞋，总是很想知道表格中含有数据的行数和列数，尤其是行数和列数不确定的情况下。这样可以避免很多的错误，并且可以提高效率。但每次用到的时候到网上查找时，总是给了很多无用的答案，往往找不到想要的结果...
用VBA得到EXCEL表格中的行数和列数
Akuma专栏
05-31 2236
<br />　每种方法中上面的是Excel的行数，下面的是Excel的列数。<br />方法1:<br />　　ActiveSheet.UsedRange.Rows.Count   <br />　　ActiveSheet.UsedRange.Columns.Count<br />       缺点：有时可能会比实际数大一些，原因是如果你把最后几行（列）数据清除后（非整行或整列删除），用这个命令仍返回未清除前的值。就是说现在虽然是空的，但是你曾经用过也算你的。<br /><br />方法2:<br />　　A
写一段用VB来GET EXCEL文件里第一列和第二列数据在窗口输出的语言
05-24
以下是使用 VB 读取 Excel 文件中第一列和第二列数据，并在窗口输出的代码示例： ``` Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim ExcelApp As Object Dim ExcelBook As Object Dim ExcelSheet As Object Dim i As Integer '打开Excel应用程序 ExcelApp = CreateObject("Excel.Application") '打开Excel文件 ExcelBook = ExcelApp.Workbooks.Open("C:\example.xlsx") '选择第一个工作表 ExcelSheet = ExcelBook.Worksheets(1) '读取第一列和第二列数据并输出到窗口 For i = 1 To ExcelSheet.UsedRange.Rows.Count Dim cell1 As String = ExcelSheet.Cells(i, 1).Value Dim cell2 As String = ExcelSheet.Cells(i, 2).Value TextBox1.AppendText(cell1 & " " & cell2 & vbCrLf) Next '关闭Excel文件和应用程序 ExcelBook.Close() ExcelApp.Quit() '释放Excel对象 ReleaseObject(ExcelSheet) ReleaseObject(ExcelBook) ReleaseObject(ExcelApp) End Sub Private Sub ReleaseObject(ByVal obj As Object) Try System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) obj = Nothing Catch ex As Exception obj = Nothing Finally GC.Collect() End Try End Sub ``` 这个代码示例假设你的 Excel 文件名为 `example.xlsx`，并且该文件的第一列和第二列都包含文本数据。你可以将这段代码复制到一个 VB 窗体中的按钮单击事件中，然后在窗口中运行它，它将会输出第一列和第二列的数据。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值