Question

如何用VB读写EXCEL中数据

读取EXCEL里面的数据，一列，一列写出来。比如 我要输入A1和B1的数据，然后在输入A2到B2以此类推，输入完成以后，在输入是A1和C1数据以此类推，请问怎么编写啊？谢谢。~

Answer 1

首先在工程中引用“MicroSoft Excel 11 Object Library”

dim xls As Workbook '定义工作表对象
dim XlsApp As New Excel.Application '定义EXCEL应用程序对象
Set xls = XlsApp.Workbooks.Open(App.Path & "\1x.xls") '打开工作簿
XlsApp.Visible = True
xls.Sheets("zxs").Activate '激活工作表 zxs

xls.ActiveSheet.Range("B" & i).Value 'i=1时为B1的值
以上信息，不知对你有没有帮助了。。