A. VB中导出数据到EXCEL问题,求高手解答.
给你个脊饥函数吧，原创第一次发布
Public Sub MSFlexGridToOldExcel(MMSFlexGrid As MSFlexGrid, ByVal ExcelFileName As String, ByVal StartRowNumber As Integer, ByVal StartColNumber As Integer)
Dim i As Integer
Dim j As Integer
ReDim aa(MMSFlexGrid.Rows, MMSFlexGrid.Cols) As Single
For i = 1 To MMSFlexGrid.Rows
For j = 1 To MMSFlexGrid.Cols
aa(i, j) = MMSFlexGrid.TextMatrix(i - 1, j - 1)
Next j
Next i
Dim XlApp As New Excel.Application
Dim XLWorkBook As New Excel.Workbook
Dim XLWorkSheet As New Excel.Worksheet
Set XLWorkBook = XlApp.Workbooks.Open(ExcelFileName)
Set XLWorkSheet = XLWorkBook.Sheets(1)
XLWorkSheet.Range(XLWorkSheet.Cells(StartRowNumber, StartColNumber), XLWorkSheet.Cells(MMSFlexGrid.Rows + 1, MMSFlexGrid.Cols + 1)).Value = aa
' XlApp.Visible = True'如果要显示出来的话使用这行则敏
XlApp.Visible = False '如果不显示出来的话使用这行
XlApp.DisplayAlerts = False '如果不显示出来的话使用这行
XLWorkBook.Save '如果不显示出来的话使用这行
XlApp.Quit '如果不显示出来的话使孙野枝用这行
Erase aa
End Sub
使用：
Private Sub Command1_Click()
FName = App.Path & "\99.xls"
MSFlexGridToOldExcel MSFlexGrid1, FName, 1, 1
End Sub
B. VB 从SQL数据库中把数据导出到Excel表格中，怎么写
SubdataToExcel()
DimconnAsString
DimrsAsNewADODB.Recordset
DimexcelAsObject
DimworkbookAsObject
DimsheetAsObject
Dimi&,j&
启毕'SQL数据库的连接字串
conn="Provider=SQLOLEDB.1;Datasource=服务器地址;initialcatalog=数据库名称;UserId=数据库登录账号;Password=数据库登录账号"耐扒
'打开到sql的连接，读取xxx表数据到rs
rs.Open"select*fromxxx",conn,adOpenKeyset,adLockReadOnly
'excel对象、工作簿、工作表
悄亩芹Setexcel=CreateObject("Excel.Application")
Setworkbook=excel.workbooks().Add()
Setsheet=workbook.sheets(1)
excel.Visible=True
'循环读取rs并写入到excel
Fori=1Tors.Fields.Count
j=1
rs.MoveFirst
DoWhileNotrs.EOF
sheet.cells(j,i)=rs.Fields(i-1).Value
rs.MoveNext
j=j+1
Loop
Next
rs.Close
Setrs=Nothing
EndSub
C. 将vb中数据库的内容导出到excel中
你看下是报错还是导不进去
1. 报渣亩错的话是EXCEL程序未关闭，即你在对已打开的EXCEL文件进行操作吵伏，可以编写强制关闭进程的代码结束第一次的EXCEL程序，用On Error Resume Next 来屏蔽程序结束的错误警告。如碰森
2. 如果是数据不进去，程序是对的无报错，请关闭ADODC，重新定位连接使用Adodc1.Refresh来刷新数据。
D. vb怎么把数据输出到excel里面，有大量的数据
最简单的办法：
open "a.xls" for output as #1
print #1, "姓名", vbTab,"学号", vbTab,"总分"
print #1, "张三", vbTab,1, vbTab,88
print #1, "李四", vbTab,2, vbTab,99
close #1
这样的文件可以双击在EXCEL里面打开唤敬仿，但是和纤不能设置复稿行杂的格式。
E. vb导出到excel
Option Explicit
Private Sub Form_Load()
Dim i As Long, j As Long
Me.MSHFlexGrid1.Rows = 2000
Me.MSHFlexGrid1.Cols = 10
For i = 0 To Me.MSHFlexGrid1.Rows - 1
For j = 0 To Me.MSHFlexGrid1.Cols - 1
Me.MSHFlexGrid1.TextMatrix(i, j) = i & "行"派笑没 & j & "列"
Next
Next
Debug.Print Me.MSHFlexGrid1.TextArray(100)
End Sub
Private Sub cmdExport_Click()
Dim i As Long, j As Long
Dim CellsData() As String
Dim objApp As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim objRange As Excel.Range
'构造二维数组
ReDim CellsData(1 To Me.MSHFlexGrid1.Rows, 1 To Me.MSHFlexGrid1.Cols)
For i = 1 To Me.MSHFlexGrid1.Rows
For j = 1 To Me.MSHFlexGrid1.Cols
CellsData(i, j) = Me.MSHFlexGrid1.TextMatrix(i - 1, j - 1)
Next
Next
'导出到Excel中
Set objApp = New Excel.Application
objApp.ScreenUpdating = False '禁止屏幕刷新
Set objWorkbook = objApp.Workbooks.Add
Set objWorksheet = objWorkbook.Sheets.Add
Set objRange = objWorksheet.Range(objWorksheet.Cells(1, 1), objWorksheet.Cells(Me.MSHFlexGrid1.Rows, Me.MSHFlexGrid1.Cols))
objRange.Value = CellsData
objApp.Visible = True
objApp.ScreenUpdating = True
'销毁二维尘纳升升数组
Erase CellsData
Me.SetFocus
MsgBox "导出完毕"
End Sub
F. 怎样在VB中导出一个电子表格（excel)
一个按钮，五个文本框（文本框用逗老复制方式）
dim
xlsapp
as
excel.application
dim
xlsbook
as
excel.workbook
dim
xlssheet
as
excel.worksheet
set
xlsapp
=
new
excel.application
set
xlsbook
=
xlsapp.workbooks.add
set
xlssheet
=
xlsbook.worksheets(1)
xlssheet.application.columns("a:l").numberformatlocal
=
"@"
'文山橘升本格式为通用
xlssheet.cells.horizontalalignment
=
xlcenter
'文本居中
xlssheet.columns("a:l").columnwidth
=
5
'调整列宽（从a列到l列
dim
i
as
integer
for
i
=
0
to
4
xlssheet.cells(
2,
i+
1)
=
text1(i).text
next
i
xlsapp.visible
=
true
set
xlsapp
=
nothing
自己可以研究一下上面的代码（其中文本框用复制伍伏做数组）
G. vb.net 2008中怎样将数据导出到excel中
如何从web页面导入excel单元格数据、又如何把查询出来的数据放到web页面上显示成客户需要的图表？并且导出到excel中？
有两种方案：
1.用Excel自动化技术。
引用Excel的类型库生成.Net的包装类。导入时采用页面放上传文件按钮的方法，在服务器端收到文件后，用excel自动化类打开excel文件，再学会VBA语法，书写大量的代码读取单元格，然后连接数据库保存。导出时，查询数据库，启动excel自动化对象，通过VBA语法填写单元格，保存成excel文件，再用Response.OutputStream输出到页面上，触发excel文件的下载保存框。缺点：容易在服务器端产生excel死进程，代码编写复杂、代码量大、还要掌握VBA语法，用户需要上传、下载操作
有人会说，显示数据时可以用网页直接显示，不用导出成excel。其实也很麻烦：用网页显示复杂的报表格式，网页设计工作量大；如果客户要求导出excel，这个工作就省不了；如果客户要求打印、打印预览、页面设置，比起excel浏览器的打印就捉襟见肘了。
2.用微软Office中间件——SOAOffice。（建议使用最新版的）
用SOAOffice输出Excel，就不会再有上述烦恼。通过SOAOffice不仅能够动态填充excel，读取excel单元格，而且还能在浏览器里直接浏览excel、或者下载、另存。SOAOffice提供标准C#.Net组件，组件在服务器端不使用自动化调用，稳定支持大量web并发访问，这是用com调用无法实现的。组件的属性方法都比较简单，易于调用，你完全不用去掌握复杂的VBA调用。
由于是纯.Net组件，所以服务器端不需安装office。 SOAOffice的excel组件SOAExcel含有Sheet、Cell等类似Excel的简化接口，调用简单。SOAExcel不但能能把数据库字段值动态填充到Excel单元格，还能把用户输入的单元格的值提出给开发者保存到数据库。
SOAExcel能够在客户端浏览器的网页里通过SOAOffice直接显示生成的Excel，用户不必先下载再打开观看内容。
举个导出excel的例子：
SOAOfficeX.ExcelResponse SOAExcel = new SOAOfficeX.ExcelResponse();
SOAOfficeX.ExcelResSheet sheet1 = SOAExcel.openSheet("Sheet1"); // 打开一个Sheet
sheet1.openCell("D"+String.valueOf(8+i)).setValue(rs.getString("Count")); //循环填充数据。
SOAOfficeX.SOAOfficeCtrl SOACtrl = new SOAOfficeX.SOAOfficeCtrl(response);
SOACtrl.assign(SOAExcel); // 绑定数据
// 打开模板并生成最终的excel报表
SOACtrl.webOpen("doc/test.xls", 1, UserName, "Excel.Sheet");
上述代码不但动态填充生成excel，而且在网页里直接显示生成的Excel给终端用户，由于使用了1打开模式，Excel是只读显示的。
读取excel单元格的代码也很简单：
SOAOfficeX.ExcelRequest SOAExcel = new SOAOfficeX.ExcelRequest();
SOAOfficeX.IExcelReqSheet sheetOrder = SOAExcel.OpenSheet("销售订单");
SOAOfficeX.IExcelReqCell cell1;
cell1 = sheetOrder.OpenCell("I5");//订单编码
string sOrderNum = cell1.Value;//cell1.Value就是读取的结果
H. VB数据导出EXCEL
去掉这几句
mExcelFile.SaveAs "c:\123.xls"
mExcelFile.Application.Quit
Set mExcelFile = Nothing
他们的意思是行铅激保存，然激山后关闭。
在同位置写入档袜
mExcelFile.visible=true
这句意思是显示excel文件窗口