hellojcom.bas

使用JCom的时候

Attribute VB_Name = "Module1"

'** VB偺僒儞僾儖僾儘僌儔儉
Sub HelloJCom()
On Error GoTo ErrorHandler
  Set xlApp = CreateObject("Excel.Application")        ' EXCEL傪婲摦
  xlApp.Visible = True
  Set xlBooks = xlApp.Workbooks()
  Set xlBook = xlBooks.Add()               ' 怴偟偄僽僢僋傪嶌惉
  Set xlSheets = xlBook.Worksheets()
  Set xlSheet = xlSheets.Item(1)
  Set xlRanges = xlSheet.Cells()
  xlRanges.Item(1, 1).Value = "偼偠傔偰偺JCom"
  xlRanges.Item(2, 1).Value = "偙傟偼Java偐傜彂偒傑偟偨"
  Call MsgBox("儃僞儞傪墴偡偲廔椆偟傑偡")
  Call xlBook.Close(False, Null, False)
  Call xlApp.Quit
  Exit Sub
ErrorHandler:
  Call MsgBox(Err.Number & ":" & Err.Description)
End Sub

Sub main()
  Call HelloJCom
End Sub