Private Function MakeExcelList(ByVal mstpath As String, ByVal outpath As String) As Boolean
Dim xlsApp As Object = Nothing
Dim xlsBooks As Object = Nothing
Dim xlsBook As Object = Nothing
Dim xlsSheets As Object = Nothing
Dim xlsSheet As Object = Nothing
Dim xlsRange As Object = Nothing
Dim xlPictures As Object = Nothing
Dim xlPicture As Object = Nothing
Dim picFolder As String = Path.Combine(Application.StartupPath, "gif")
Try
' Excelのクラスのタイプとインスタンスを取得する
xlsApp = CreateObject("Excel.Application")
Try
'ワークブックコレクションオブジェクト
xlsBooks = xlsApp.[GetType]().InvokeMember("Workbooks", BindingFlags.GetProperty, Nothing, xlsApp, Nothing)
Try
'Excelファイルのオープン
xlsBook = xlsBooks.[GetType]().InvokeMember("Open", BindingFlags.InvokeMethod, Nothing, xlsBooks, New Object() _
{mstpath, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, _
Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, _
Type.Missing})
Try
xlsSheets = xlsBook.[GetType]().InvokeMember("WorkSheets", BindingFlags.GetProperty, Nothing, xlsBook, Nothing)
Try
xlsSheet = xlsSheets.[GetType]().InvokeMember("Item", BindingFlags.GetProperty, Nothing, xlsSheets, New Object() {1})
Try
For j As Integer = 0 To sortRow.Count - 1
With sortRow(j)
'画像の挿入
Dim picname As String = "abc.gif"
Dim picpath As String = Path.Combine(picFolder, picname)
'画像の存在確認
If System.IO.File.Exists(picpath) = True Then
'画像をインポートするセルのレンジ作成
xlsRange = xlsSheet.[GetType]().InvokeMember _
("Range", BindingFlags.GetProperty, Nothing, xlsSheet, New Object() {"AE" & exlRow * 2 + 27})
Try
xlPictures = xlsSheet.[GetType]().InvokeMember _
("Shapes", BindingFlags.GetProperty, Nothing, xlsSheet, Nothing)
Try
xlPicture = xlPictures.AddPicture(picpath, False, True, _
CDbl(xlsRange.left) + 10, CDbl(xlsRange.top) + 3, _
(xlsRange.height * 2) - 6, (xlsRange.height * 2) - 6)
Finally
If xlPictures IsNot Nothing Then
MarshalReleaseComObject(xlPicture)
End If
End Try
Finally
If xlPictures IsNot Nothing Then
MarshalReleaseComObject(xlPictures)
End If
End Try
Else
Dim appFolder As String = Application.StartupPath & "\Log"
LogExportClass.ExportAppErrorLog(appFolder, "Info_", Now, _
"画像データが見つかりません：" & picpath, False)
End If
'画像出力先レンジの解放
If xlsRange IsNot Nothing Then MarshalReleaseComObject(xlsRange)
End With
exlRow = exlRow + 1
Next
Finally
If xlsRange IsNot Nothing Then
MarshalReleaseComObject(xlsRange)
End If
End Try
Finally
If xlsSheet IsNot Nothing Then
MarshalReleaseComObject(xlsSheet)
End If
End Try
Finally
If xlsSheets IsNot Nothing Then
MarshalReleaseComObject(xlsSheets)
End If
End Try
Finally
If xlsBook IsNot Nothing Then
xlsApp.DisplayAlerts = False
xlsBook.saveas(outpath)
xlsApp.DisplayAlerts = True
End If
If xlsBook IsNot Nothing Then
MarshalReleaseComObject(xlsBook)
End If
End Try
Finally
If xlsBooks IsNot Nothing Then
MarshalReleaseComObject(xlsBooks)
End If
End Try
Catch ex As Exception
Return False
Finally
If xlsApp IsNot Nothing Then
xlsApp.[GetType]().InvokeMember("Quit", BindingFlags.InvokeMethod, Nothing, xlsApp, Nothing)
End If
If xlsApp IsNot Nothing Then
MarshalReleaseComObject(xlsApp)
End If
End Try
Return True
End Function
