-
Feb 7th, 2013, 11:45 AM
#1
Thread Starter
Member
How to Fix Error 429?
Run-time error '429 ': ActiveX component can’t create object
Due to the fact that several reasons can cause the error, I decided to post my particular situation.
I'm doing an update on an application developed in VB6 which uses automation resources of Office via VBA.
The error occurs when I’m trying to copy and paste the table "X" which is in the worksheet "A" to the worksheet "B" using the control "Selection.Copy"
Follows the code snippet for better understanding
Dim xl As Excel.Application
Dim xlw As Excel.Workbook
Dim Linha As Integer
Dim Coluna AS Integer
Set xl = CreateObject("Excel.Application")
Set xlw = xl.Workbooks.Open(ARQUIVO_DE_REFERENCIA)
xl.Visible = True
Sheets("PlanB").Select
Linha = ActiveCell.Row
Coluna = ActiveCell.Column
Sheets("PlanA").Select
Range("A1:I48").Select
Selection.Copy
Sheets("PlanB").Select
Range("A" & Linha + 3).Select
ActiveSheet.Paste
Range(Coluna & ":" & Linha + 5).Select
To analyze the stretch separately I created new applications using both VB6, VBA and VB.NET. In all situations it has not been specified any errors, what means that the error only occurs in the main application
The main reasons that I found in most forums are:
1 - You do not have a required TLB file, ActiveX DLL / OCX;
2 - A necessary TLB or ActiveX DLL / OCX file is present, but it’s not registered in the system;
3 - Run Time files of VB have a newer version than you need to run the project;
4 - A TLB or ActiveX DLL / OCX file is corrupted;
Both alternatives do not seem to sustain my mistake. So, how to fix Error 429?
I am available for further clarification. Since now, I thank the attention and collaboration.
-
Feb 17th, 2013, 10:44 AM
#2
Re: How to Fix Error 429?
Perhaps the documentation for the Selection property may shed some light...
On Local Error Resume Next: If Not Empty Is Nothing Then Do While Null: ReDim i(True To False) As Currency: Loop: Else Debug.Assert CCur(CLng(CInt(CBool(False Imp True Xor False Eqv True)))): Stop: On Local Error GoTo 0
Declare Sub CrashVB Lib "msvbvm60" (Optional DontPassMe As Any)
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|