補足:
lngLastDataRow = .Cells(.Rows.Count, KeyColumn).End(xlUp).Row
事前バインディングではなく実行時バインディングを採用される場合は、Excel.XlDirection 列挙のメンバー定数 xlUp の代わりに値 -4162 を渡すようにして下さい。
通報 ...
補足:
lngLastDataRow = .Cells(.Rows.Count, KeyColumn).End(xlUp).Row
事前バインディングではなく実行時バインディングを採用される場合は、Excel.XlDirection 列挙のメンバー定数 xlUp の代わりに値 -4162 を渡すようにして下さい。