【Access VBA】Excel の指定シートを同一ブックの別シートにエクスポートする

If ExportInputSheetToOutputSheet("Desktop\試験.xlsx","入力","$A$1:$C$","出力","$B$1:$D$")>0
  メッセージボックス ("Desktop\試験.xlsx" のエクスポートに失敗しました,はい,なし)
IF 文の最後

Function ExportInputSheetToOutputSheet(input_book_path As String, input_sheet_name As String, input_range_string As String, _
  output_sheet_name As String, output_range_string As String) As Integer

  Const C_SUCCESS As Integer = 0
  Const C_FAILURE As Integer = 1

  Dim excelAppObj As Object

  Dim inputExcelWorkBookObj As Object
  Dim inputExcelWorkSheetObj As Object

  Dim outputExcelWorkSheetObj As Object

  Dim inputMaxRowCount As String
  Dim inputRangeString As String
  Dim outputRangeString As String

  On Error GoTo exitWithFailure

  Set excelAppObj = CreateObject("Excel.Application")

  excelAppObj.Visible = True
  excelAppObj.UserControl = True

  Set inputExcelWorkBookObj = excelAppObj.Workbooks.Open(Environ("UserProfile") & "\" & input_book_path)
  Set inputExcelWorkSheetObj = inputExcelWorkBookObj.Worksheets(input_sheet_name)
  Set outputExcelWorkSheetObj = inputExcelWorkBookObj.Worksheets(output_sheet_name)

  inputMaxRowCount = inputExcelWorkSheetObj.Cells(1, 1).End(xlDown).Row

' specify input_range_string as "$B$1:$AB$"
' specify output_range_string as "$A$1:$AA$"

  inputRangeString = input_range_string & inputMaxRowCount
  outputRangeString = output_range_string & inputMaxRowCount

  outputExcelWorkSheetObj.Range(outputRangeString).Value = inputExcelWorkSheetObj.Range(inputRangeString).Value

  inputExcelWorkBookObj.Close savechanges:=True

  excelAppObj.Quit

  Set outputExcelWorkSheetObj = Nothing
  Set inputExcelWorkSheetObj = Nothing
  Set inputExcelWorkBookObj = Nothing
  Set excelAppObj = Nothing
  ExportInputSheetToOutputSheet = C_SUCCESS
Exit Function

exitWithFailure:
  Set outputExcelWorkSheetObj = Nothing
  Set inputExcelWorkSheetObj = Nothing
  Set inputExcelWorkBookObj = Nothing
  Set excelAppObj = Nothing
  ExportInputSheetToOutputSheet = C_FAILURE

End Function