|
#2
HVB62015-10-13 06:53
回复 楼主 fuxiaotian3
|
求大神指导啊
2 回复
|
#3
xiangyue05102015-10-13 13:50
“工程”、“引用”，选中“Microsoft Excel 11.0 object library”项（由于你的Excel版本不同，2010好像是13.0吧）
下面是随便找的一段示例的代码。  程序代码：Dim xlapp As Excel.Application 'Excel对象 Dim xlbook As Excel.Workbook '工作簿 Dim xlsheet As Excel.Worksheet '工作表 Dim i, j As Integer Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象 'Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls") '打开已经存在的test.xls工件簿文件 Set xlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件 'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 xlapp.Visible = True '设置EXCEL对象可见（或不可见） Set xlsheet = xlbook.Worksheets(1) '设置活动工作表'' xlsheet.Cells(1, 1) = 2008 '写入2008 xlsheet.Range("A1"） = 2008 '同上写入2008，方式不同而已 |
1