如何将电子表格中的数据自动录入软件中
用VB怎么实现把电子表格中的数据自动录入到软件中去,请大家指教。
回复 楼主 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