|
User defined Type
I am trying to debug existing code and the following declaration won't work.
Private x2App As Excel.Application I keep getting an error msg stating "user defined type not defined" Here is the Type statement I have in the declaration section of my class module. Private Type UserDefinedType Application As Object Workbook As Object Worksheet As Object End Type Private Type UserDefinedType2 Connection As Object Command As Object Parameter As Object Recordset As Object End Type Option Explicit Dim Excel(1 To 3) As UserDefinedType Dim ADODB(1 To 19) As UserDefinedType2 Any solutions? -- TWN |
User defined Type
try changing
Dim Excel(1 To 3) As UserDefinedType to Dim udtExcel(1 To 3) As UserDefinedType Same deal with ADODB. Both Excel and ADODB are reserved so you don't really want to use them as variable names... -- HTH... Jim Thomlinson "Trebor" wrote: I am trying to debug existing code and the following declaration won't work. Private x2App As Excel.Application I keep getting an error msg stating "user defined type not defined" Here is the Type statement I have in the declaration section of my class module. Private Type UserDefinedType Application As Object Workbook As Object Worksheet As Object End Type Private Type UserDefinedType2 Connection As Object Command As Object Parameter As Object Recordset As Object End Type Option Explicit Dim Excel(1 To 3) As UserDefinedType Dim ADODB(1 To 19) As UserDefinedType2 Any solutions? -- TWN |
User defined Type
Tried your suggestion Jim...same results, "user defined type not defined".
-- TWN "Jim Thomlinson" wrote: try changing Dim Excel(1 To 3) As UserDefinedType to Dim udtExcel(1 To 3) As UserDefinedType Same deal with ADODB. Both Excel and ADODB are reserved so you don't really want to use them as variable names... -- HTH... Jim Thomlinson "Trebor" wrote: I am trying to debug existing code and the following declaration won't work. Private x2App As Excel.Application I keep getting an error msg stating "user defined type not defined" Here is the Type statement I have in the declaration section of my class module. Private Type UserDefinedType Application As Object Workbook As Object Worksheet As Object End Type Private Type UserDefinedType2 Connection As Object Command As Object Parameter As Object Recordset As Object End Type Option Explicit Dim Excel(1 To 3) As UserDefinedType Dim ADODB(1 To 19) As UserDefinedType2 Any solutions? -- TWN |
User defined Type
Jim, I tried changing the Excel reference to MyPaige and the ADODB to
MyHookUp and got the same error msg. Any other ideas? -- TWN "Jim Thomlinson" wrote: try changing Dim Excel(1 To 3) As UserDefinedType to Dim udtExcel(1 To 3) As UserDefinedType Same deal with ADODB. Both Excel and ADODB are reserved so you don't really want to use them as variable names... -- HTH... Jim Thomlinson "Trebor" wrote: I am trying to debug existing code and the following declaration won't work. Private x2App As Excel.Application I keep getting an error msg stating "user defined type not defined" Here is the Type statement I have in the declaration section of my class module. Private Type UserDefinedType Application As Object Workbook As Object Worksheet As Object End Type Private Type UserDefinedType2 Connection As Object Command As Object Parameter As Object Recordset As Object End Type Option Explicit Dim Excel(1 To 3) As UserDefinedType Dim ADODB(1 To 19) As UserDefinedType2 Any solutions? -- TWN |
User defined Type
As a guess you have
Option Explicit Dim Excel(1 To 3) As UserDefinedType Dim ADODB(1 To 19) As UserDefinedType2 in a module somewhere and your UDT's in the Class??? Then a couple of things. You can not declare a UDT in a Class. Since your UDT are declared private you need to have all of the declarations in one module... Try this. Start a new spreadsheet and add a module to it. Paste the following and it will compile just fine... Option Explicit Dim objExcel(1 To 3) As UserDefinedType Dim objADODB(1 To 19) As UserDefinedType2 Public Type UserDefinedType Application As Object Workbook As Object Worksheet As Object End Type Private Type UserDefinedType2 Connection As Object Command As Object Parameter As Object Recordset As Object End Type -- HTH... Jim Thomlinson "Trebor" wrote: I am trying to debug existing code and the following declaration won't work. Private x2App As Excel.Application I keep getting an error msg stating "user defined type not defined" Here is the Type statement I have in the declaration section of my class module. Private Type UserDefinedType Application As Object Workbook As Object Worksheet As Object End Type Private Type UserDefinedType2 Connection As Object Command As Object Parameter As Object Recordset As Object End Type Option Explicit Dim Excel(1 To 3) As UserDefinedType Dim ADODB(1 To 19) As UserDefinedType2 Any solutions? -- TWN |
User defined Type
Thank you sir, I will try that.
-- TWN "Jim Thomlinson" wrote: As a guess you have Option Explicit Dim Excel(1 To 3) As UserDefinedType Dim ADODB(1 To 19) As UserDefinedType2 in a module somewhere and your UDT's in the Class??? Then a couple of things. You can not declare a UDT in a Class. Since your UDT are declared private you need to have all of the declarations in one module... Try this. Start a new spreadsheet and add a module to it. Paste the following and it will compile just fine... Option Explicit Dim objExcel(1 To 3) As UserDefinedType Dim objADODB(1 To 19) As UserDefinedType2 Public Type UserDefinedType Application As Object Workbook As Object Worksheet As Object End Type Private Type UserDefinedType2 Connection As Object Command As Object Parameter As Object Recordset As Object End Type -- HTH... Jim Thomlinson "Trebor" wrote: I am trying to debug existing code and the following declaration won't work. Private x2App As Excel.Application I keep getting an error msg stating "user defined type not defined" Here is the Type statement I have in the declaration section of my class module. Private Type UserDefinedType Application As Object Workbook As Object Worksheet As Object End Type Private Type UserDefinedType2 Connection As Object Command As Object Parameter As Object Recordset As Object End Type Option Explicit Dim Excel(1 To 3) As UserDefinedType Dim ADODB(1 To 19) As UserDefinedType2 Any solutions? -- TWN |
| All times are GMT +1. The time now is 02:34 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com