関数の遅延バインディングエラーを修正するにはExcelの列の最後の行を見つけなければなりませんか？

Question

私はExcelの特定の列の最後の行を見つける機能を持っています。

以下

コードが

Private Function FindLastRowInColumn(ByVal XlWorkSheet As Excel.Worksheet, ByVal ColumnName As String) As Long 
    Dim LastRow As Long 
    With XlWorkSheet 
     LastRow = .Cells(.Rows.Count, ColumnName).End(Excel.XlDirection.xlUp).Row 
    End With 
    Return LastRow 
End Function 

である私はOption Strictの電源を切らずにこのエラーを修正するにはどうすればよい

LastRow = .Cells(.Rows.Count, ColumnName).End(Excel.XlDirection.xlUp).Row 

Error: Option Strict On disallows late binding.

ライン上のエラーを取得していますか？

jmcilhinneyの推奨事項で問題を解決できました。 以下は私のために働いたコードです。たぶん、ファイルの先頭に

Option Strict Off 

を書く

Public Function FindLastRowInColumn(ByVal XlWorkSheet As Excel.Worksheet, ByVal ColumnName As String) As Long 
    Dim LastRow As Long 
    With XlWorkSheet 
     LastRow = CType(.Cells(.Rows.Count, ColumnName), Excel.Range).End(Excel.XlDirection.xlUp).Row 
    End With 
    Return LastRow 
End Function 

Answer 1

どのメンバーが遅延バインドされているかを最初に判断します。これは簡単にラインをもう一度入力するだけで、インテリセンスによってどのメンバーが提案されていないかを知ることができます。次に、メンバーがどのタイプに属しているかを判別し、可能であれば、そのタイプとして参照をオブジェクトにキャストする必要があります。例えば、これは遅延バインディングされる：

Dim obj As Object = "Hello World" 
Dim length As Integer = obj.Length 

objはObject基準とLengthタイプObjectのメンバーではありません。それはobjによって参照されるかのタイプStringのメンバー、およびオブジェクトで事前バインディングを達成するので、それはその型にキャストすることができますStringです：

Dim obj As Object = "Hello World" 
Dim length As Integer = CStr(obj).Length 

Answer 2

？ （輸入前）