Dim RowCount As Integer = _ xlSheet.Cells(xlSheet.Rows.Count, 1).end(Excel.XlDirection.xlUp).row Dim StartRow As Integer = 4
'ImportKinmuhyou() '処理行数は開始行を含むため、「+1」する Dim pgb As New MyLibrary.frmProgressbar2("勤務表の取り込み", _ New DoWorkEventHandler(AddressOf DoWork_ImportKinmuhyou), RowCount - StartRow + 1)
'エラーログを初期化 ErrorLog = ""
Dim result As DialogResult = pgb.ShowDialog(Me)
pgb.DispProgressBarResult(result, pgb)
'エラーログ書き込み Dim FileControl As New MyLibrary.clsFileControl