如何将电子表格中的数据自动录入软件中

xiaoanxu 发布于 2015-05-22 13:57， 597 次点击

用VB怎么实现把电子表格中的数据自动录入到软件中去，请大家指教。

3 回复

HVB62015-05-22 15:13

回复楼主 xiaoanxu

可以，例如：
Private Sub Command2_Click()
Dim EXAPP As Excel.Application
Dim WB As Excel.Workbook
Dim sht As Excel.Worksheet
Set EXAPP = CreateObject("excel.application")
Set WB = EXAPP.Workbooks.Open("d:\成绩表.xls")
Set sht = WB.Worksheets("总表")
sht.Activate
arr=sht.Range("A3:AU30000") 'arr就是数据，读到您的软件的什么地方，您发挥吧
WB.Close
Set sht = Nothing
Set WB = Nothing
Set EXAPP = Nothing
End Sub

xiaoanxu2015-05-22 16:24

回复 2楼 HVB6

我以前读大学的时候学过，但现在忘记了，你给我的代码，我调试的时候出现用记定义类型未定义，是什么原因

风吹过b2015-05-22 16:59

需在工程-》引用，然后引用 EXCEL 对象。