VB导入导出EXCEL问题

读出。。。。里面行数为你要读取的行数。。。
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim RNG As Excel.Range
Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(App.Path & "\xxx.xls")
for n =1 to 行数
list1.additem xlSheet.Cells(n, 1)
next
xlBook.Close (True)
xlApp.Quit
Set xlApp = Nothing
End Sub
写入大致相同就是循环里面改一下。。
for n =1 to list1.listcount
xlSheet.Cells(n, 1)=list.list(n)
next

VB不是数据库，所以不能说将Excel的数据导入到VB中。
你可以在VB中添加一个数据显示的控件，然后读入Excel的数据。处理完之后，也可以导出。在数据导入导出过程中，需要用到VBA的操作。

VB能直接读写excel，但是VB不是数据库，不能导入。
你要自己去找名字在哪一列，然后把它读进数组。