“从类型'Range到类型Boolean'的转换无效

嗨
我在Solidworks的API环境中启动Visual Basic，然后转到Visual Studio.我注意到方法略有不同.我似乎有问题，我不确定我的代码对Visual Studio有多远，我将不胜感激.

在运行下面的代码时，出现此错误::

从类型"Range到布尔类型"的转换无效

Hi
I started Visual Basic in an API environment in Solidworks, moving over to visual studio Im noticing the methods are slightly different. I seem to have a problem and im not sure how far out my code is for Visual Studio, I''d appreciate any help.

On running the Code Below I get this Error ::

"Conversion from type ''Range to type Boolean'' is not valid

<br />
<pre lang="vb">Option Explicit On<br />
Imports Microsoft.Office.Interop.Excel<br />
<br />
Public Class MainForm<br />
    Dim Excelobject As Object<br />
    Dim ExcelBook As Object<br />
    Dim ExcelSheet As Object<br />
    Dim xlsh As Object<br />
    Dim CopyCell As String<br />
<br />
    Public Function GetExcellFilePath() As String<br />
        GetExcellFilePath = "C:\Data\ItemBase.xlsx"<br />
    End Function<br />
<br />
    Public Sub OpenExcellDocument()<br />
        Excelobject = GetObject(GetExcellFilePath)<br />
        xlsh = Excelobject.ActiveSheet<br />
        If Excelobject Is Nothing Then<br />
            MsgBox("Could not Open ItemBase.xlsx")<br />
        End If<br />
    End Sub<br />
<br />
    Public Sub Weapons(ByVal Row, ByVal Column)<br />
        OpenExcellDocument()<br />
        MsgBox(Row & Column)<br />
        Do While (xlsh.Cells(Row, Column))<br />
            CopyCell = xlsh.Cells(Row, Column).Value.ToString()<br />
            Me.ComboBoxWeapons.Items.Add(CopyCell)<br />
            Row = Val(Row + 1)<br />
        Loop<br />
    End Sub<br />
<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _<br />
System.EventArgs) Handles Button1.Click<br />
        Weapons(3, 1)<br />
    End Sub<br />
<br />
End Class<br />
</pre>