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

If ExportInputBookToOutputBook("Downloads\issues.xlsx","issues","$A$1:$AA$","Downloads\Redmine_CSV_貼り付け先.xlsx","Redmine","$B$1:$AB$")>0
  メッセージボックス ("Downloads\issues.xlsx" から  "Downloads\Redmine_CSV_貼り付け先.xlsx" へのセルのエクスポートに失敗しました。,はい,なし)
Else
  メッセージボックス (成功しました。,はい,なし)
IF 文の最後

Function ExportInputBookToOutputBook(input_book_path As String, input_sheet_name As String, input_range_string As String, _
output_book_path 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 outputExcelWorkBookObj 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 = False
  excelAppObj.UserControl = True
  excelAppObj.DisplayAlerts = False

  Set inputExcelWorkBookObj = excelAppObj.Workbooks.Open(Environ("UserProfile") & "\" & input_book_path)
  Set inputExcelWorkSheetObj = inputExcelWorkBookObj.Worksheets(input_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

  Set outputExcelWorkBookObj = excelAppObj.Workbooks.Open(Environ("UserProfile") & "\" & output_book_path)
  Set outputExcelWorkSheetObj = outputExcelWorkBookObj.Worksheets(output_sheet_name)

  outputExcelWorkSheetObj.Cells.Clear

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

  inputExcelWorkBookObj.Close savechanges:=True
  outputExcelWorkBookObj.Close savechanges:=True

  excelAppObj.Quit

  Set outputExcelWorkSheetObj = Nothing
  Set outputExcelWorkBookObj = Nothing
  Set inputExcelWorkSheetObj = Nothing
  Set inputExcelWorkBookObj = Nothing
  Set excelAppObj = Nothing

  ExportInputBookToOutputBook = C_SUCCESS
Exit Function

exitWithFailure:

  excelAppObj.Quit

  Set outputExcelWorkSheetObj = Nothing
  Set outputExcelWorkBookObj = Nothing
  Set inputExcelWorkSheetObj = Nothing
  Set inputExcelWorkBookObj = Nothing
  Set excelAppObj = Nothing

  ExportInputBookToOutputBook = C_FAILURE
End Function