Workbook Open

[muziq2]

Hi,

I have the following code in an excel workbook that works fine on m
box running Excel 2000. When I try to open this on a machine runnin
Excel '97 I'm getting a debug error. The Private Sub Workbook_Ope
line is highlighted as well as the Set wb = is highlighted.

Will this code work in Excel '97 or is there some other problem (i.e
access to the other workbook) that I haven't considered. Although th
users that are having the problems should have access to this file.

Thanks in advance.

Jeff

Private Sub Workbook_Open()

Dim Workbook As Workbook
Application.ScreenUpdating = False ' turn off the screen updating
Set wb
Workbooks.Open("\\sfna-fs4\hrs\shared\hr_(all)\accidentflashreport\userformtest.xls"
True, True)
' open the source workbook, read only
With ThisWorkbook.Worksheets("Training")
' read data from the source workbook
.Range("A1:B13").Formula
wb.Worksheets("Sheet3").Range("A1:B13").Formula
End With
With ThisWorkbook.Worksheets("SignUp")
' read data from the source workbook
.Range("A:B").Formula
wb.Worksheets("SignUp").Range("A:B").Formula
End With

wb.Close False ' close the source workbook without saving an
changes
Set wb = Nothing ' free memory
Application.ScreenUpdating = True ' turn on the screen updating

End Su

 

[Doug Glancy]

Don't know if this is the problem, but looks like you meant to say "Dim wb
as Workbook." If you've got Option Explicit set in Office 97 (and you
should, cause it catches errors like this) and not in 2000, that might
explain why it runs in 2000 but not in 97.

hth,

Doug Glancy

 

[muziq2]

Thanks. That did solve that error.

Now I'm getting an error on another line that is supposed to ope
Outlook and save add an appointment to the users calendar. The code i
below. The Private Sub cmdSave_Click() is highlighted as well as th
Dim objApp as Outlook.Application.

Also, how would I go about setting Option Explicit in 2000 so I ca
catch these errors on my box?

Thanks in advance for your help.

Jeff

Private Sub cmdSave_Click()

Dim wb As Workbook

Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objAppointment As Outlook.AppointmentItem
Dim s As String, st As String, str As String, stri As String, strin A
String

On Error Resume Next
Set objApp = GetObject(, "Outlook.Application")
If Err.Number Then Set objApp = CreateObject("Outlook.Application")
On Error GoTo

 

[Doug Glancy]

Jeff,

Sorry, don't know the answer to your Outlook question. You could try
reposting if nobody answers in this thread.

To set Option Explicit in the VBE go to Tools/Options and in the Editor tab
check "Require Variable Declaration."

Doug Glancy