vb.net 数据导入excel代码

vb.net 数据导入excel代码
这是一款简单的由vb.net把数据库教程的数据导入到execel实例哦，如果你正在找相关的.net把数据导入到数据表的话，这是一款完整的可用代码。

imports system.data
imports system.data.sqlclient

public class form1
  dim app as new excel.application
  dim exbook as excel.workbook
  dim exsheet as excel.worksheet
  dim exrange as excel.range

  private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click
  exbook = app.workbooks.open("d:www.111com.netc.xls")
  exsheet = exbook.sheets(1)

  dim myconnection as new sqlconnection("data source=192.168.0.1;initial catalog=test;user id=sa;password=abc")
  dim mycommand as sqlcommand = new sqlcommand()
  myconnection.open()
  mycommand.connection = myconnection
  mycommand.commandtext = "select un001,un002,un003 from bcun"
  mycommand.commandtype = commandtype.text

  dim myreader as sqldatareader = mycommand.executereader

  dim i as integer = 1
  do while myreader.read()

  exsheet.cells(i, 1) = myreader.getstring(0)
  exsheet.cells(i, 2) = myreader.getstring(1)
  exsheet.cells(i, 3) = myreader.getstring(2)
  i = i + 1
  loop
  myreader.close()
  myconnection.close()

  exbook.save()
  exbook.close()
  app.workbooks.close()
  app.quit()
  mycommand.connection.close()

  end sub
end class
/*
请注意在引用中添加com组件：microsoft excel 11.0 object library(不一定是11.0的，由你用的excel版本来定)