求一段VB.NET 操作EXCEL2007的代码
VB.NET 操作EXCEL2007,需要增加5个sheet现在操作2003没有问题,操作2007就报错:
求一段代码示例! --------------------编程问答-------------------- --------------------编程问答-------------------- 2003和2007操作不一樣?沒理由
把錯誤提示發上來,看看。 --------------------编程问答-------------------- 基本一致,要看你具体操作写哪些
如果只是增加sheet然后写记录都一样的 --------------------编程问答-------------------- 引用2007的dll --------------------编程问答-------------------- 引用的对象要改成EXCEL2007的对象 --------------------编程问答-------------------- 添加的2007 excel的dll文件试试看 --------------------编程问答-------------------- 我没有钱下载资料了 !!! --------------------编程问答-------------------- xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
xlBook = CType(xlApp.Workbooks.Add, Microsoft.Office.Interop.Excel.Workbook)
xlSheet = CType(xlBook.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
int_EL_V = 1 ' 开始时在 Excel 表格中的纵向的起始位置
int_EL_H = 1 ' 开始时在 Excel 表格中的横向的起始位置
Try
' 如果以前已经打开了 Excel 软件,则直接进行操作
' 在第一行显示项目名称,以便分辨不同项目
xlSheet.Cells(int_EL_V, int_EL_H) = Me.Text
Catch ex As Exception ' 但如果有错误的话,则说明 Excel 软件已经被关闭了
Btn_Finish_BeginToUseExcel() ' 重新打开,再进行操作
xlSheet.Cells(int_EL_V, int_EL_H) = Me.Text
End Try
int_EL_V = int_EL_V + 1 ' 在 Excel 电子表格中的开始位置
Try
xlSheet.Cells(int_EL_V, int_EL_H) = "Ad,建筑物截收面积:"
xlSheet.Cells(int_EL_V, int_EL_H + 3) = CInt(Ad)
Catch ex As Exception
MsgBox("本软件运行过程中最好不要关闭 Excel 程序或文档,现在只好重新打开Excel,请稍等")
Btn_Finish_BeginToUseExcel()
xlSheet.Cells(int_EL_V, int_EL_H) = "Ad,建筑物截收面积:"
xlSheet.Cells(int_EL_V, int_EL_H + 3) = CInt(Ad)
End Try
int_EL_V = int_EL_V + 1
xlSheet.Cells(int_EL_V, int_EL_H) = "Am,建筑物附近截收面积:"
xlSheet.Cells(int_EL_V, int_EL_H + 3) = CInt(Am)
int_EL_V = int_EL_V + 1
--------------------编程问答--------------------
' 这三个参数是将数据输出到 Excel 报表所需要调用的
Public xlApp As Microsoft.Office.Interop.Excel.Application
Public xlBook As Microsoft.Office.Interop.Excel.Workbook
Public xlSheet As Microsoft.Office.Interop.Excel.Worksheet
--------------------编程问答--------------------
'引用Microsof.Office.Interop.Excel 12.0
'Imports Microsoft.Office.Interop.Excel
Dim app As New Application With {.Visible = True}
Dim wb = app.Workbooks.Add
wb.Worksheets.Add(, , 5)
补充:.NET技术 , VB.NET