from win32com.client import Dispatch

xlApp = Dispatch("Excel.Application")
xlApp.Visible = 1
xlApp.Workbooks.Add()
xlApp.ActiveSheet.Cells(1,1).Value = 'Python Rules!'
xlApp.ActiveWorkbook.ActiveSheet.Cells(1,2).Value = 'Python Rules 2!'
xlApp.ActiveWorkbook.Close(SaveChanges=0)
xlApp.Quit()
xlApp.Visible = 0
del xlApp

'@IgnoreModule

2018-07-17 10:09:31.1613;WARN-2.2.0.3508;Rubberduck.Parsing.VBA.VBAModuleParser;SLL mode failed while parsing the code pane version of module WebHelpers at symbol End Function at L2946C3. Retrying using LL.;
2018-07-17 10:09:31.1613;DEBUG-2.2.0.3508;Rubberduck.Parsing.VBA.VBAModuleParser;SLL mode exception;Rubberduck.Parsing.Symbols.ParsingExceptions.MainParseSyntaxErrorException: mismatched input 'End Function' expecting {ABS, ANY, ARRAY, CBOOL, CBYTE, CCUR, CDATE, CDBL, CDEC, CINT, CLNG, CLNGLNG, CLNGPTR, CSNG, CSTR, CURRENCY, CVAR, CVERR, DEBUG, DOEVENTS, FIX, INPUTB, INT, LBOUND, LEN, L…

''
' Parse ISO 8601 date string to local date
'
' @method ParseIso
' @param {Date} utc_IsoString
' @return {Date} Local date
' @throws 10013 - ISO 8601 parsing error
''
Public Function ParseIso(utc_IsoString As String) As Date
  On Error GoTo utc_ErrorHandling

  Dim utc_Parts() As String
  Dim utc_DateParts() As String
  Dim utc_TimeParts() As String
  Dim utc_OffsetIndex As Long
  Dim utc_HasOffset As Boolean
  Dim utc_NegativeOffset As Boolean
  Dim utc_OffsetParts() As String
  Dim utc_Offset As Date

''
  ' Convert local date to ISO 8601 string
  '
  ' @method ConvertToIso
  ' @param {Date} utc_LocalDate
  ' @return {Date} ISO 8601 string
  ' @throws 10014 - ISO 8601 conversion error
  ''
Public Function ConvertToIso(utc_LocalDate As Date) As String
  On Error GoTo utc_ErrorHandling

  ConvertToIso = VBA.Format$(ConvertToUtc(utc_LocalDate), "yyyy-mm-ddTHH:mm:ss.000Z")

  Exit Function

utc_ErrorHandling:
  Err.Raise 10014, "UtcConverter.ConvertToIso", "ISO 8601 conversion error: " & Err.Number & " - " & Err.Description

If UBound(utc_Parts) = 0 Then Exit function

if (utcParts.Length == 0)
{
     return;
}

If UBound(utc_Parts) = 0 Then
    Exit Function
End If