使用VBS如何获取本地EXCEL的行和列
来源:互联网 发布:屏幕截取软件 编辑:程序博客网 时间:2024/04/30 04:52
代码如下:
Set excel=CreateObject("Excel.Application")
set openexcel=excel.Workbooks.Open("这里输入EXCEL路径")
rowcount =openexcel.ActiveSheet.UsedRange.Rows.Count
Columnscount =openexcel.ActiveSheet.UsedRange.Columns.count
print " 行数:"&rowcount&" 列数:"&Columnscount
openexcel.Close
excel.Quit
set openexcel=nothing
Set excel=nothing
'若想要获取Excel中指定sheet的行数和列数,函数如下:
Public function getrowandcol(filepath,sheetname)
'函数作用:获取EXCEL指定sheet的行数和列数
'参数说明
'filepath:EXCEL所在路径
'sheetname:需要统计行数和列数的SHEET名称
'用法示例:getrowandcol"D:/qqq.xlsx","sheet1"
Set excel=CreateObject("Excel.Application")
set openexcel=excel.Workbooks.Open(filepath)
openexcel.WorkSheets(sheetname).Activate
rowcount =openexcel.ActiveSheet.UsedRange.Rows.Count
Columnscount =openexcel.ActiveSheet.UsedRange.Columns.count
If openexcel.WorkSheets(sheetname).Cells(1,1 )="" and rowcount=1 and Columnscount=1 then
print sheetname&"中没有数据"
else
print sheetname&"的行数为:"&rowcount&" 列数:"&Columnscount
end if
openexcel.Close
excel.Quit
set openexcel=nothing
Set excel=nothing
End Function
'说明,若sheet中没有数据,则默认为1行1列,可以写个判断语句,避免没有数据时行数和列数显示为1。见函数中红色代码
set openexcel=excel.Workbooks.Open("这里输入EXCEL路径")
rowcount =openexcel.ActiveSheet.UsedRange.Rows.Count
Columnscount =openexcel.ActiveSheet.UsedRange.Columns.count
print " 行数:"&rowcount&" 列数:"&Columnscount
openexcel.Close
excel.Quit
set openexcel=nothing
Set excel=nothing
'若想要获取Excel中指定sheet的行数和列数,函数如下:
Public function getrowandcol(filepath,sheetname)
'函数作用:获取EXCEL指定sheet的行数和列数
'参数说明
'filepath:EXCEL所在路径
'sheetname:需要统计行数和列数的SHEET名称
'用法示例:getrowandcol"D:/qqq.xlsx","sheet1"
Set excel=CreateObject("Excel.Application")
set openexcel=excel.Workbooks.Open(filepath)
openexcel.WorkSheets(sheetname).Activate
rowcount =openexcel.ActiveSheet.UsedRange.Rows.Count
Columnscount =openexcel.ActiveSheet.UsedRange.Columns.count
If openexcel.WorkSheets(sheetname).Cells(1,1 )="" and rowcount=1 and Columnscount=1 then
print sheetname&"中没有数据"
else
print sheetname&"的行数为:"&rowcount&" 列数:"&Columnscount
end if
openexcel.Close
excel.Quit
set openexcel=nothing
Set excel=nothing
End Function
'说明,若sheet中没有数据,则默认为1行1列,可以写个判断语句,避免没有数据时行数和列数显示为1。见函数中红色代码
- 使用VBS如何获取本地EXCEL的行和列
- QTP如何获取本地Excel文件的行和列
- 获取excel的行和列数
- excel 动态获取某列的和
- VBA获取excel行和列
- 【NCRE】——Excel之如何获取行高和列宽
- 如何获取excel 中的 某几个列的值
- POI 获取Excel列数和行数的方法
- POI 获取Excel列数和行数的方法
- POI 获取Excel列数和行数的方法
- POI 获取Excel列数和行数的方法
- 获取EXCEL表单的行数和列数
- 远程或本地获取系统信息的脚本RGIS.vbs
- Excel 如何获取列号(字母形式)
- Excel获取行数和列数
- 如何使用 MFC 自动化 Excel 2000 和 Excel 2002 和 Excel 2000 和 Excel 2002 的一个区域中获取一个数组
- Delphi操作Excel(1) ---获取excel的行数和列数
- SSRS:如何消除SSRS报表导出EXCEL出现的合并列和隐藏列
- form 触发器的层次Before、Override、after的区别 .
- 超强JavaScript编辑器webstorm主题(theme)
- 排序算法网址
- 追MM与23种设计模式
- new分配内存
- 使用VBS如何获取本地EXCEL的行和列
- struts2标签属性之disabled 属性
- 字符串按正则表达式拆分
- OBB文件和StorageManager类使用介绍
- JAVA 正则表达式、汉字正则、 java正则代码
- 超级搞笑 34个冷笑话
- svn cleanup报错
- 搞笑应对电话推销
- Xcode4.2中将Three20开源库导入到工程项目中