欢迎来到论文网! 加入收藏 | 设为论文网 | 网站地图 | Tags标签 | RSS
论文网 论文网8200余万篇毕业论文、各种论文格式和论文范文以及9千多种期刊杂志的论文征稿及论文投稿信息,是论文写作、论文投稿和论文发表的论文参考网站,也是科研人员论文检测和发表论文的理想平台。lunwenf@yeah.net。
您当前的位置:首页 > 毕业论文 > 计算机毕业论文

VBA读取Excel工作表数据方法探索_工作薄

时间:2011-05-21  作者:秩名

论文导读::可以方便的利用VBA读取Excel工作薄中的数据。经常需要引用其它工作薄中的数据。
关键词:VBA,工作薄,数据读取
 

引言

工作中,使用Excel进行数据处理时,经常需要引用其它工作薄中的数据工作薄,用VBA编程能帮助用户在不打开工作薄或看似不打开工作薄的情况下取得其它工作薄中的数据,下面有几种方法可以实现,假设当前工作表:“F: est.xls”,第一个工作表名称为“sheet1”,其它工作薄如:“F:源数据.xls”,第一个工作表名称为“销售数据”。读取引用工作薄的工作表数据范围A1:E20。在当前工作表中利用“控件工具箱”,制作命令按钮名称和下面过程名对应。

1 使用公式引用工作簿中的工作表数据

Private Sub btn1 ()

Dim wshpath As String

wshpath=''' &ThisWorkbook.Path &'[源数据.xls]销售数据'!'

With Sheet1.Range('A1:E20')'激活当前工作表A1:E20区域

.FormulaR1C1='=' &wshpath &'RC''在A1:E20区域写入对其它工作表单元格引用

.Value=.Value'将该区域的公式转换为数值

End With

End Sub

此方法适合应用于需要引用的数据不是太多的情况中国论文下载中心。

2 使用Excel对象的方法引用工作簿中的工作表数据

Private Sub btn2()

Dim FilePath As String

Dim i,j As Long

Dim sBrow,sErow,sBCol,sEcol As Long'源表的行数,列数

Dim tBrow,tBcol As Long '设置当前工作表开始行、列数

sBrow=1

sErow=20

sBCol=1

sEcol=5

tBrow=1

tBcol=1

FilePath=ThisWorkbook.Path &'源数据.xls'

Set xlapp=CreateObject('Excel.Application')'创建EXCEL对象

Set xlbook=xlapp.Workbooks.Open(FilePath)'创建工件簿对象

Set xlsheet=xlbook.Worksheets(1)'创建工作表对象

xlapp.Visible=False

'以下将数据复制到当前工作表中

For i=sBrow To sErow

For j=sBCol To sEcol

ThisWorkbook.Sheets(1).Cells(tBrow+i-1,tBcol+j-1)=xlsheet.Cells(i,j)

Next

Next

'关闭对象代码省略

End Sub

该方法编程应用灵活,较为简单工作薄,可以修改添加代码对其它多个工作薄进行读取数据。

3 使用ExecuteExcel4Macro方法引用工作簿中的工作表数据

Private Sub btn3()

Dim FilePath As String

Dim i,j,sBrow,sErow,sBCol,sEcol,tBrow,tBcol As Long

sBrow=1

sErow=20

sBCol=1

sEcol=5

tBrow=1

tBcol=1

FilePath=ThisWorkbook.Path &'[源数据.xls]'

For i=sBrow To sErow

For j=sBCol To sEcol

Sheets(1).Cells(tBrow+i-1,tBcol+j-1)=ExecuteExcel4Macro('''&FilePath &'报名表' &''!r' & i& 'c' &j)

Next

Next

End Sub

4 使用ADO的方式引用工作簿中的工作表数据。

在编写代码之前打开Visual Basic编辑器,单击“工具”菜单->“引用”命令,在打开的引用对话框中,选中“MicrosoftActiveX Data Objects 2.0 Library”,点击确定,就可利用ADO来读取Excel工作薄中数据。

Private Sub btn4()

Dim Sql As String

Dim i,nR As Integer

Dim Cnn As ADODB.Connection

Dim rs As ADODB.Recordset

With Sheet1

.Cells.Clear

Set Cnn=New ADODB.Connection

'以下用ADO连接并打开被应用工作薄

With Cnn

.Provider='microsoft.jet.oledb.4.0'

.ConnectionString='Extended Properties=Excel 8.0;' &'Data Source=' &ThisWorkbook.Path &'源数据'

.Open

End With

'以下筛选表中数据生成记录集,第一行默认为字段名

Set rs=New ADODB.Recordset

Sql='select * from [销售数据$]'

rs.Open Sql,Cnn,adOpenKeyset,adLockOptimistic

'以下将字段名放入首行,将数据写入工作表

For i=0 To rs.Fields.Count-1

.Cells(1,i+1)=rs.Fields(i).Name

Next

nR=.Range('A65536').End(xlUp).Row

.Range('A' &nR+1).CopyFromRecordset rs

End With

rs.Close

Cnn.Close

Set rs=Nothing

Set Cnn=Nothing

End Sub

结束语:

通过以上几种方法工作薄,可以方便的利用VBA读取Excel工作薄中的数据,其中一、二种方法在打开Excel工作薄时使其隐藏而使用户看不见,三、四种方法真正意义上没有打开工作薄而读取其数据。在实际VBA应用中,需要读取更多的工作薄,用户则可添加对文件夹及文件的操作代码完成,从而提高工作效率。


参考文献:
[1]John Walkenbach著.盖江南,王勇等译.Excel 2003高级VBA编程宝典[M].电子工业出版社,2005.
[2]Excel Home.Excel应用大全[M].人民邮电出版社,2008.
 

 

查看相关论文专题
加入收藏  打印本文
上一篇论文:VBA在多Excel工作薄数据汇总的应用_相同表结构
下一篇论文:高校数字化校园的数据建设和安全管理研究_整合管理
毕业论文分类
行政管理毕业论文 工商管理毕业论文
护理毕业论文 会计毕业论文
会计专业毕业论文 英语专业毕业论文
大学毕业论文 硕士毕业论文
计算机毕业论文 市场营销毕业论文
物流管理毕业论文 法学毕业论文
相关计算机毕业论文
最新计算机毕业论文
读者推荐的计算机毕业论文