如何调用EXCEL2007，并写入数据呢
请问：
如何调用EXCEL2007，并写入数据呢
OFFICE2000没有问题。
[解决办法]
http://support.microsoft.com/ph/11346/zh-cn/?sid=659&aid=1&GSA_AC_More1
[解决办法]
首先:在菜单 "工程 "的 "引用 "中添加EXCEL引用;
然后:定义Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
再然后:把要添入的数据分别填写进相应位置---xlsheet.Cells(行, 列) = "要填的数据 ".
……
[解决办法]
看看“解析Excel 2007的新文件格式”
@
http://blog.csdn.net/onlyzhangqin/archive/2007/07/14/1689985.aspx
[解决办法]
首先:在菜单 "工程 "的 "引用 "中添加EXCEL引用;
'增加到模块
Public myexcel As New Excel.Application
Public mybook As New Excel.Workbook
Public mysheet As New Excel.Worksheet
Public Sub OpenExcel()
Set myexcel = CreateObject( "Excel.Application ")
Set mybook = myexcel.Workbooks.Add
Set mysheet = mybook.Worksheets(1)
End Sub
Public Sub CloseExcel()
Set myexcel = Nothing
End Sub
--------------------------
Private Sub Command1_Click()
Call OpenExcel
'添加excel列头~~~~~~~~~~~~~~~~~~~~~~~
mysheet.Cells(1, 1) = "Hello "
mysheet.Cells(2, 1) = "AAAAAA "
mysheet.Cells(2, 2) = "BBBBBB "
mysheet.Cells(2, 3) = "CCCCCC "
mysheet.Cells(2, 4) = "DDDDDD "
mysheet.Cells(2, 5) = "EEEEEE "
mysheet.Cells(2, 6) = "FFFFFF "
mysheet.Cells(2, 7) = "GGGGGG "
mysheet.Cells(2, 8) = "HHHHHH "
mysheet.Cells(2, 9) = "IIIIII "
mysheet.Cells(2, 10) = "JJJJJJ "
myexcel.Visible = True
Call CloseConn
Call CloseExcel
End Sub
