vbs怎么读取EXCEL表格数据

1.VBS怎么读取EXCEL中工作表的数目

dim a as worksheet

for each a in worksheets

a.activate

cells.select

selection.copy

workbooks.add

cells.select

activesheet.paste

activeworkbook.saveas filename:= _

thisworkbook.path & "\" & a.name & ".xls", fileformat:=xlnormal, _

password:="", writerespassword:="", readonlyrecommended:=false, _

createbackup:=false

activewindow.close

a.cells(1, 1).select

next

2.VBS如何获取EXCEL表里的数据?

Set oexcel=CreateObject("excel.application")

Set obook=oexcel.Workbooks.Open("c:\test\excel.xls")

Set osheet=obook.Sheets("sheet1")

'显示第一个工作表A1单元格数据

msgbox osheet.cells(1,1)

Set obook=Nothing

Set osheet=Nothing

oexcel.Quit

3.VBS怎么读取EXCEL中工作表的数目

Set oexcel=CreateObject("excel.application")

Set obook=oexcel.Workbooks.Open("c:\test\excel.xls")

Set osheet=obook.Sheets("sheet1")

'显示第一个工作表A1单元格数据

msgbox osheet.cells(1,1)

Set obook=Nothing

Set osheet=Nothing

oexcel.Quit

4.使用vbs读写excel表格数据元素

服务器端假定用asp。

如果asp，如下。

<%

set objexcel = createobject("excel.application")

set wkbk=objjexcel.workbooks.open（"你的excel文件路径+文件名"）

set sh=wkbk.sheets(1)'假定你的数据在第1个工作表中。

response.write sh.cells(1,1).value '向网页输出第1个单元格的值。

'注销所有对象

set sh=nothing

wkbk.close

set wkbk=nothing

objexcel.quit

set objexcel=nothing

%>

5.VBS读取已打开的Excel的值

set xlapp=getobject(,"excel.application")set xlbook=xlapp.workbooks（"工作簿1"） set xlsheet=xlbook.sheets("sheet1")msgbox xlsheet.range("a1")'''读取数据xlsheet.range("a1")=10000''''写数据xlbook.save'''未保存过用saveas 路径 这是保存xlbook.close true ''关闭工作簿1xlapp.quit '''退出excel。

6.如何使用VBS脚本程序读EXCEL文件,有没有具体流程

如果是XP系统，可以使用如下代码

VBS控制Excel的一些常见方法：

（一） 使用动态创建的方法

首先创建 Excel 对象，使用ComObj:

oExcel = CreateObject( "Excel.Application" )

1） 添加新工作簿：

oExcel.WorkBooks.Add

2） 打开已存在的工作簿：

oExcel.WorkBooks.Open( "C:\Excel\Demo.xls" )

3） 设置第2个工作表为活动工作表：

oExcel.WorkSheets(2).Activate

或

oExcel.WorksSheets( "Sheet2" ).Activate

4） 给单元格赋值：

oExcel.Cells(1,4).Value = "第一行第四列"

7.使用vbs读写excel表格数据元素

dim xlApp,xlWorkBook,xlSheet

dim iRowCount,iLoop,numAdd

set xlApp = CreateObject("Excel.Application")

xlApp.Visible = false

set xlWorkBook = xlApp.Workbooks.Open("c:\data.xls")

set xlSheet = xlWorkBook.Sheets("Sheet1")

iRowCount = xlSheet.usedRange.Rows.Count

For iLoop = 2 to iRowCount

numAdd=xlSheet.Cells(iLoop,1)+numAdd

next

xlSheet.Range("e2").value=iLoop

For i=1 to 10

xlSheet.range("d" & i).value=int(rnd*1000)

next

xlApp.cells(9,9)=995

xlWorkBook.Save

xlWorkBook.Close

xlApp.Quit

set xlSheet = Nothing

set xlWorkBook = Nothing

set xlApp = Nothing

msgbox(numAdd)