Datasource=服务器地址;initialcatalog=数据库名称;UserId=数据库登录账号;Password=数据库登录账号"'打开到sql的连接，读取xxx表数据到rsrs.Open"select*fromxxx",conn,adOpenKeyset,adLockReadOnly...

1、在工程中引用MicrosoftExcel类型库：从"工程"菜单中选择"引用"栏；选择MicrosoftExcel9.0ObjectLibrary（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。2、在通用对象的声明过程中定义EXCEL对象：Dim...

oBok.Sheets(1).Range("A1").Value="VB已读取到数据库数据"'将数据写入Excel表的A列第一行SetoBok=Nothing'使用Nothing关键字被将对象变量从实际对象中分离开来。EndSubObject变量存储为32位（4...

你可以这样处理't2=Text1(0).Textsheet1里面cells(1,1)就是A1't3=Text2(2).Textcells(1,2)是A2，cells(2,1)是A2't4=Text3(1).Text依次类推，可以用i,j。把它们放到sheet1.cells()...

1.用Excel自动化技术。引用Excel的类型库生成.Net的包装类。导入时采用页面放上传文件按钮的方法，在服务器端收到文件后，用excel自动化类打开excel文件，再学会VBA语法，书写大量的代码读取单元格，然后连接数据库保存。导出时...

如果数据比较整齐，量比较大，建议直接写入excel文件。一定要先在VB中添加exel的引用，在工程中引用MicrosoftExcel类型库：从"工程"菜单中选择"引用"栏；选择MicrosoftExcel11.0ObjectLibrary（EXCEL2003），然后选择"确定...

方法一：可以试着用VB书写一段调用SQLServer数据库DTS的代码，然后就可以像直接使用DTS进行数据导入一样就行Excel与SQLServer数据之间的迁移了。方法二：可以用VB来操作EXCEL，然后一条数据一条数据的插入到数据库中，这种...

#1print#1,"姓名",vbTab,"学号",vbTab,"总分"print#1,"张三",vbTab,1,vbTab,88print#1,"李四",vbTab,2,vbTab,99close#1这样的文件可以双击在EXCEL里面打开，但是不能设置复杂的格式。

SetxlApp=CreateObject("excel.application")SetxlBook=xlApp.Workbooks.AddSetxlSheet=xlBook.Worksheets(1)'Ifrs.RecordCount<1Then'MsgBox("Error没有记录")'ExitSub'EndIfir

可以两种方式：1、用VB操作EXCEL类，然后将SQLSERVER的数据查询到dataset中，循环dataset中的数据到EXCEL；2、将EXCEL当作数据源，用Microsoft.Jet.OLEDB.4.0来连接，然后直接将SQLSERVER的数据写入EXCEL的SHEET1表中。