03Explorer
Technical User
I have code that runs great for some time and then it stops with this error on the Same line of code.
I choose "DEBUG" and then immediately press F5 to <continue>... everything executes fine for a random period of time and then the error pops up again. It pops up about 5 times which I've tracked the number of times that line is hit all together is around 25 times... The error happens at the same point all the time. Any ideas? This is a show stopper for me.
Thanks!
Rob
P.S. My code is lengthy but the CopyFrom Recordset is the line of issue (below)
Code:
Run-time error '-2147417856 (80010100)':
No such interface supported
I choose "DEBUG" and then immediately press F5 to <continue>... everything executes fine for a random period of time and then the error pops up again. It pops up about 5 times which I've tracked the number of times that line is hit all together is around 25 times... The error happens at the same point all the time. Any ideas? This is a show stopper for me.
Thanks!
Rob
P.S. My code is lengthy but the CopyFrom Recordset is the line of issue (below)
Code:
For i = (SR) To (SR + (CountSkills - 1)) '-- inserts 2 minus the ones already there (top one7 & bottom one8)
'-- Copy from SHEET(1)row8 recordCount times (for inserted Rows)
MyXL.Sheets(1).Rows(8).copy
'-- Insert beginning at row SR
MyXL.ActiveSheet.Rows(i).Insert shift:=xlDown
Next i
MyXL.ActiveSheet.range("C" & SR).CopyFromRecordset rs '----!!! Crashes here?
'rs.Close '-- attempt to avoid odd error
Set rs = Nothing