C#.net如何用html生成Excel的表格,再对其进行操作

发布网友 发布时间：2022-05-01 13:46

我来回答

共4个回答

热心网友 时间：2022-05-15 10:37

.net向EXCEL写入数据的示例程序http://hi.baidu.com/jonesvale/blog/item/3134ff1ecebdfc64f724e44b.html

Private Sub WriteExcel()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim nn As Integer = 0
Irowcount = objDataSet.Tables("DataAnalyseVIEW").Rows.Count
Icolcount = objDataSet.Tables("DataAnalyseVIEW").Columns.Count

Try
xlApp = CreateObject("Excel.Application")
xlBook = xlApp.Workbooks.Add
xlSheet = xlBook.Worksheets(1)
xlSheet.Name = "DataAnalyse"

xlSheet.Cells(1, 1).Value = objDataSet.Tables("DataAnalyseVIEW").Columns(2).ColumnName().ToString()
xlSheet.Cells(1, 2).Value = objDataSet.Tables("SerialNumberTable").Rows(txtN)("SerialNumber").ToString()
xlSheet.Cells(2, 1).Value = objDataSet.Tables("DataAnalyseVIEW").Columns(3).ColumnName().ToString()
xlSheet.Cells(2, 2).Value = objDataSet.Tables("DataAnalyseVIEW").Rows(0)("Client").ToString()
xlSheet.Cells(3, 1).Value = objDataSet.Tables("DataAnalyseVIEW").Columns(5).ColumnName().ToString()
xlSheet.Cells(3, 2).Value = objDataSet.Tables("DataAnalyseVIEW").Rows(0)("Proctor").ToString()
xlSheet.Cells(4, 1).Value = objDataSet.Tables("DataAnalyseVIEW").Columns(6).ColumnName().ToString()
xlSheet.Cells(4, 2).Value = objDataSet.Tables("DataAnalyseVIEW").Rows(0)("Model").ToString()

xlSheet.Cells(5, 1).Value = objDataSet.Tables("DataAnalyseVIEW").Columns(4).ColumnName().ToString()
xlSheet.Cells(5, 2).Value = objDataSet.Tables("DataAnalyseVIEW").Rows(0)("StationName").ToString()
xlSheet.Cells(6, 1).Value = objDataSet.Tables("DataAnalyseVIEW").Columns(7).ColumnName().ToString()
xlSheet.Cells(6, 2).Value = objDataSet.Tables("DataAnalyseVIEW").Rows(0)("DataTime").ToString()
xlSheet.Cells(7, 1).Value = objDataSet.Tables("DataAnalyseVIEW").Columns(8).ColumnName().ToString()
xlSheet.Cells(7, 2).Value = objDataSet.Tables("DataAnalyseVIEW").Rows(0)("status").ToString()
xlSheet.Cells(8, 1).Value = "Result Begin"

Progressbar1.Step = 1
Progressbar1.Value = 1
Progressbar1.Visible = True
For i = 0 To Icolcount - 1
If i < 2 Or i > 7 Then
nn = nn + 1
xlSheet.Cells(9, nn).Value = objDataSet.Tables("DataAnalyseVIEW").Columns(i).ColumnName().ToString

End If
Next

For Irow = 0 To Irowcount - 1
Progress(Irowcount - 1)
nn = 0
For Icol = 0 To Icolcount - 1
If Icol < 2 Or Icol > 7 Then
nn = nn + 1
xlSheet.Cells(Irow + 10, nn).Value = objDataSet.Tables("DataAnalyseVIEW").Rows(Irow)(Icol).ToString()

End If
Next
Next
xlSheet.Cells(Irow + 10, 1).Value = "Result End "

xlBook.SaveAs(strFName)
xlSheet = Nothing '释放资源
xlBook.Close() '关闭工作簿
xlBook = Nothing '释放资源
xlApp.Quit() '退出excel应用程序
xlApp = Nothing

Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

批量数据处理方法：
http://hi.baidu.com/jonesvale/blog/item/ef4d8a95d7a45d16d21b7085.html

热心网友 时间：2022-05-15 11:55

我会给我答案我传给你

热心网友 时间：2022-05-15 13:30

这个问题有点复杂...生成EXCEL不太会..
但是操作EXCEL还是很简单的..就吧它当做一个数据库还控制就好了...

热心网友 时间：2022-05-15 15:21

没明白你意思，我可以将Excel导入到数据库，导入到页面，也可以吧页面的DataSet导出到EXCEL