office2016でファイルが空かどうか判断する方法

Question

###前提・実現したいこと
csv形式のファイルを取り込んで、VBAでデータを計算するシステムを作っています。
csvファイルが空かどうかを判断するところなのですが、
office2010では正常に動くのですが、office2016だとエラーになります。
office2016でも空かどうか判断する方法を教えていただきたいです。
###発生している問題・エラーメッセージ

実行時エラー’1004’
アプリケーション定義またはオブジェクト定義のエラーです。

###該当のソースコード

If IsEmpty(Workbooks(wbname).Sheets(sheetname).Range(Rows(1), Rows(i)).Value) = True Then
MsgBox(”データがないため、実行できません。”)
End If

###試したこと
If IsEmpty(Workbooks(wbname).Sheets(sheetname).Range(Rows(1), Rows(i)).Value) = True Then
デバックでたどると、上記のソースのところでエラーになります。

Answer 1

VBA にはファイルサイズをチェックする filelen があります。
CSV ファイルのパスがわかっているならば、事前にファイルサイズが 0 かどうかをチェックしてみるのはいかがでしょう。

例えばこんな感じです。

Option Explicit

' 以下のようにすると、ファイルのサイズを確認できる。
' chkpath "c:\work\test.csv"

' 戻り値：中身が空ならば、0 バイトである。

Sub chkpath(p As String)

  If Not Dir(p) = "" Then
  
    Dim fl As Long
    fl = FileLen(p)
  
    MsgBox "ファイルがあります。 サイズ " + CStr(fl)
  
  Else
    MsgBox "ファイルがありません。"
  
  End If

End Sub

参考 ファイルのサイズを調べる

Answer 2

回答していただきありがとうございます。
いろいろ試しましたが、私の探していることことはできませんでした。
リリースまでの時間もなかったため、上司と相談し代替案で対応しました。

Answer 3

エラー発生時の下記の値はどのようになっているのでしょうか？
それぞれ有効な値であるか確認した方が良いと思います。
・wbnameの値
・sheetnameの値
・iの値

あとExcel2016で参照設定関連の問題が出たときの記事を見つけたので参考までに貼っておきます。
https://social.msdn.microsoft.com/Forums/vstudio/ja-JP/2fe1ca8a-bb54-495d-ae52-66439090abba/excel2010excel2016excel2010?forum=vbajp