B
Bobby
Hi ,
I am trying to compile the following code.But iam getting the following error:
Error
*****
User Defined Type not define :
Public fso As New Scripting.FileSystemObject
*****
Code
*****
Option Explicit
Public fso As New Scripting.FileSystemObject
Public vertView As Boolean
Public Sub Autpen()
On Error GoTo ErrorHandler
Dim newMenu As Menu, menuName As String
menuName = Application.MenuBars(xlWorksheet).Menus("MainMenu").Caption
Exit Sub
ErrorHandler:
If Err.Number = 1004 Then
Set newMenu =
Application.MenuBars(xlWorksheet).Menus.Add("&MainMenu", _
Application.MenuBars(xlWorksheet).Menus.Count)
newMenu.MenuItems.Add "E&xport Data File ...", "ExportToFile"
End If
End Sub
I am trying to compile the following code.But iam getting the following error:
Error
*****
User Defined Type not define :
Public fso As New Scripting.FileSystemObject
*****
Code
*****
Option Explicit
Public fso As New Scripting.FileSystemObject
Public vertView As Boolean
Public Sub Autpen()
On Error GoTo ErrorHandler
Dim newMenu As Menu, menuName As String
menuName = Application.MenuBars(xlWorksheet).Menus("MainMenu").Caption
Exit Sub
ErrorHandler:
If Err.Number = 1004 Then
Set newMenu =
Application.MenuBars(xlWorksheet).Menus.Add("&MainMenu", _
Application.MenuBars(xlWorksheet).Menus.Count)
newMenu.MenuItems.Add "E&xport Data File ...", "ExportToFile"
End If
End Sub