vb链接EXCEL

Dim EX As Object
Dim exwbook As Object
Dim exsheet As Object

Set EX = CreateObject("Excel.Application")

EX.Visible = True

Set exwbook = EX.Workbooks().Add
    Set exsheet = exwbook.Worksheets("sheet1")

或者上句可以写成

Set exsheet =EX.ActiveSheet

EX.Cells(Row, Col)=jieguo