问题描述
把datagridVIEW的数据下载到EXCEL中的代码怎么写啊，小弟刚学VB2005，请各位老大指点指点，写个详细代码看看！！
解决方案
解决方案二：
datagridVIEW怎么下?就直接从数据库中取出来好了.
解决方案三：
那怎么下啊
解决方案四：
'创建一个DataSetDimmyDataSetAsDataSet=NewDataSet'连接数据库，得到数据集Try'设定数据连接字符串，此字符串的意思是打开Sqlserver数据库，服务器名称为本地,数据库为tempDimstrConAsString="datasource=192.168.6.93;initialcatalog=ERPV3;persistsecurityinfo=False;userid=sa;password=sql"'数据连接代码，对此修改可导入其他类型数据库到Excle表格DimmyConnAsSqlClient.SqlConnection=NewSqlClient.SqlConnection(strCon)myConn.Open()DimstrComAsString="select*fromBW_M_LOC"DimmyCommandAsSqlClient.SqlCommand=NewSqlClient.SqlCommand(strCom,myConn)DimmyAdapter1AsNewSqlClient.SqlDataAdaptermyAdapter1.SelectCommand=myCommandmyAdapter1.Fill(myDataSet,"table01")'关闭此OleDbConnectionmyConn.Close()CatcheyAsExceptionMessageBox.Show("连接错误!"+ey.ToString(),"错误")EndTryDimtableAsDataTable=myDataSet.Tables("table01")'创建一个空的Excel电子表格文档DimAppExcelAsExcel.Application=NewExcel.ApplicationAppExcel.Application.Workbooks.Add(True)'读取数据的字段名称，并在产生的Excel表格的第一行显示出来DimcolIndexAsInteger=0DimcolAsDataColumn=NewDataColumnForEachcolIntable.ColumnscolIndex=colIndex+1AppExcel.Cells(1,colIndex)=col.ColumnNameNext'实现数据集到Excel表格的转换DimrowIndexAsInteger=1DimrowAsDataRowForEachrowIntable.RowsrowIndex=rowIndex+1colIndex=0Dimcol1AsDataColumnForEachcol1Intable.ColumnscolIndex=colIndex+1AppExcel.Cells(rowIndex,colIndex)=row(col1.ColumnName).ToString()NextNextAppExcel.Visible=True
解决方案五：
你試試我的代碼吧。
解决方案六：
Excel.Application是未定义类型是什么意思啊？
解决方案七：
你要加入參考。COM那裡的MicrosoftExcel
解决方案八：
MARK!