🚀 go-pugleaf

����һ���������������һ��excel��class,������д����Щ������
Shared Sub New()
        Dim app As Application
        app = New Application()

        app.Visible = True

        Dim workbooks As Workbooks
        workbooks = app.Workbooks

        Dim workbook As _Workbook
        workbook = workbooks.Add(XlWBATemplate.xlWBATWorksheet)

        Dim sheets As Sheets
        sheets = workbook.Worksheets

        Dim worksheet As _Worksheet
        worksheet = sheets.Item(1)

End Sub

Ȼ����form1���������һ����ť���ڰ�ť���¼�������������excel��class,���ǣ������������ܵ�ʱ�򣬾ͳ����ˣ�����
Dim range As Object 'Range 
        range = worksheet.Range("A10", Missing.Value)       
        range.Value2 = 5

˵worksheetû�б����壬�����Ҳ������Ǹ�class�����constructor���Ѿ���������ô��

--
��һ��������������

�� ��Դ:��ˮľ���� http://newsmth.net��[FROM: 133.6.203.*]