2013-11-07 3 views
1

Когда я запускаю следующий код VBA в excel 2010, он работает, но появляется сообщение об ошибке при запуске на excel 2013. Это показывает ошибку компиляции : Тип Несовпадение и основные моменты rsLCC.RecordCountОшибка несоответствия типа в excel 2013, но работает в excel 2010 при использовании ADODB.Recordset

Public Sub LoadRegionCombo() 

Dim sLCC_SQL As String 
Dim rsLCC As New ADODB.Recordset 
Set rsLCC = New ADODB.Recordset 

On Error GoTo Err_LoadRegionCombo 

Call SetDataPath 
Call OpenConnection 

sQrySub1 = "CONTRACTORS" 

QCArr2(0) = "COMBOS" 
QCArr2(1) = "ComboSQL" 
QCArr2(2) = "" ' sFilter1 
QCArr2(3) = "" ' sFilter2 
QCArr2(4) = "ASC" 
QCArr2(5) = sQrySub1 
QCArr2(6) = "" 'sQrySub2 

sLCC_SQL = QryCall2(QCArr2()) 
rsLCC.Open sLCC_SQL, ExelCon, adOpenKeyset, adLockReadOnly 

ipCount = rsLCC.RecordCount 
+0

Смотрите, если это т он такой же, как и вы? http://support.microsoft.com/kb/983246 Является ли MSOFFICE 2013 64 бит? –

+0

Спасибо тонне !! это именно то, с чем я столкнулся. – user1403848

+0

Рад помочь: D –

ответ

3

Wrap

.RecordCount 

с

CLng(.RecordCount) 
+0

Возможно, измените '.RecordCount' на' rsLCC.RecordCount', чтобы сделать его более понятным? –

+0

было бы лучше также дать небольшое объяснение того, что происходит в вашем ответе –