◎空間メモリ 'エクセル '最終行までを取得 Dim xlLog As Excel.Range = xlSheet.Range("A" & xlSheet.Rows.Count).End(Excel.XlDirection.xlUp) '最終行までのMax値 Dim xlMax As Integer 'Max値を取得 xlMax = xlLog.Row '行数を設定 Dim i As Integer'B行…

◎Exsel最終行を取得 'ダイアログ ボックスを表示 [開く]ボタンが押されたら If FDlg.ShowDialog() = DialogResult.OK Then ' ファイルパスからファイル名を取得する RichTextBox1.Text = System.IO.Path.GetFileName(.FileName) 'エクセルの箱を作る Dim xlA…