Type mismatch error

[Prepost]

Hi,
I am new to vba and trying to code to select range in the excel file but getting type mismatch error for ' set myRange = Range("C:C") '. Can anyone help to fix this error.

'select Excel File

FPath = CATIA.FileSelectionBox("C:\Users\pughade\Desktop\DMU folder\PRIME\New folder", _
"*.xlsx", CatFileSelectionModeOpen)



If FPath = "" Then

Exit Sub

End If



Set xlApp = CreateObject("Excel.Application")

Set MyXL = GetObject(, "Excel.Application")

Set MyXL = GetObject(FPath)

MyXL.Application.Visible = True

MyXL.Parent.Windows(1).Visible = True


Set myRange = Range("C:C")


PILC = MyXL.Application.WorksheetFunction.CountA(myRange)



MsgBox ("Part Inst List Count=" & PILC)

 

[jasonb75]

I don't see any declarations in your code but type mismatch usually means that you have used the wrong one.

Dim myRange As Range
Set myRange = Range("C:C")

Declaring myRange as anything other than Range would cause a type mismatch. It should work if no declaration has been made, but that is widely considered as bad practice.

 

[Prepost]

I don't see any declarations in your code but type mismatch usually means that you have used the wrong one.

Dim myRange As Range
Set myRange = Range("C:C")

Declaring myRange as anything other than Range would cause a type mismatch. It should work if no declaration has been made, but that is widely considered as bad practice.

Hi jasonb75, I have . see below

Sub CATMain()



Dim productDocument1 As ProductDocument

Set productDocument1 = CATIA.ActiveDocument


Dim selection1 As Selection

Set selection1 = productDocument1.Selection


Dim i As Integer

Dim PILC As Integer

Dim PI As String

Dim myRange 'As Range

Dim FPath

Dim xlApp

Dim MyXL

Dim selobj1 As Object

Set selobj1 = selection1.Selection

selection1.Clear


'select Excel File

FPath = CATIA.FileSelectionBox("C:\Users\pughade\Desktop\DMU folder\PRIME\New folder", _
"*.xlsx", CatFileSelectionModeOpen)


If FPath = "" Then

Exit Sub

End If


Set xlApp = CreateObject("Excel.Application")

Set MyXL = GetObject(, "Excel.Application")

Set MyXL = GetObject(FPath)

MyXL.Application.Visible = True

MyXL.Parent.Windows(1).Visible = True


Set myRange = Range("C:C")


PILC = MyXL.Application.WorksheetFunction.CountA(myRange)


MsgBox ("Part Inst List Count=" & PILC)

 

[eirikdaude]

Where is your VBA code located?

Could you please put code tags around your code? It would make it a lot easier to read.

 

[Prepost]

Where is your VBA code located?

Could you please put code tags around your code? It would make it a lot easier to read.

I am writing this to drive Catia from excel file. I am running it through Catia platform

 

[jasonb75]

The apostrophe in the middle of the line,

Dim myRange 'As Range

is causing it to be declared as variant instead of range, which is not ideal but should still work.

It would be preferable to use Long instead of Integer for a couple of your other declarations but that will not be the cause of the problem you're seeing.

Try qualifying the range with a workbook and worksheet name rather than just setting the range. Catia is not something that I'm familiar with but I'm wondering if the code is looking in the wrong place and not seeing the range.