Public xlObj As excel.Application 'Excel 对象
Public wbObj As excel.Workbook '文档工作薄 对象
Public shObj As excel.Worksheet '工作表“sheet”对象
Public rgObj As excel.Range '域 对象
Public dlg As excel.Dialog '对话框 对象
适当位置实例化 xlApp:
On Error Resume Next
Set xlObj = GetObject(, "Excel.Application") '如果已经打开则获取
If Err.Number <> 0 Then
Set xlObj = CreateObject("Excel.Application") '没有打开则创建
If Err.Number <> 0 Then
ConnectExcel = False
mErrInfo = Err.Description
Exit Function
End If
End If
If xlObj.Workbooks.Count < 1 Then
'如果新建则添加一个工作薄
xlObj.Workbooks.Add
End If
xlObj.Visible = True '显示
'使用工作薄操作,则:
Set wbObj = xlObj.ActiveWorkbook '实例化
''使用。。。。
set wbObj = Nothing '释放
'使用工作表操作,则:
Set shObj = xlObj.ActiveSheet '实例化
''使用。。。。
set shObj = Nothing '释放
'其他对象同上
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using ComLib;
using LMSCLASS;
using ControlLib;
using System.IO;