acad.dvb

I am trying to run a drawing log program in a network environment . I have a
common network location in everyones suppport path where i have a placed an
acad.dvb file. the funcvtion in it is attached to the
thisdrawing.acaddocument_activate "event" so that the routine will run as
soon as the person opens a document. a companion event id run on the
begin_close event . The routine will open an instance of Excel and write
time & date and loginname to the spreadsheet. Unfortunately it only works
reliably on my machine and not the other users,and the Excel file is in a
directory that is read-write to the other users, any clues as to how to make
this more reliable??? the code is below . TIA for any help

Jim Trainer




Private Sub AcadDocument_Activate()
Dim excel As Object
Dim excelsheet As Object
Dim exapp As Object
Dim username As Object
Dim moment As Variant
Dim oflag As String
On Error Resume Next
'Me.Hide
Set excel = GetObject(, "Excel.application")
If Err <> 0 Then
Err.Clear
Set excel = CreateObject("Excel.application")
If Err <> 0 Then
MsgBox "Could not load Excel.", vbOKOnly + vbInformation, "Error
report"
End
End If
End If
On Error GoTo 0
'excel.Visible = True
'remove this line to run the macro without ever seeing Excel
Set exapp = excel.workbooks.Open("C:\Program Files\AutoCAD
2000i\dwglog.xls")
dwgname = ThisDrawing.GetVariable("dwgname")
todaysdate = Date
loginame = ThisDrawing.GetVariable("loginname")
oflag = "open"
moment = now
rownum = 2
columnnum = 1
With excel
Set excelsheet = excel.ActiveWorkbook.Sheets("sheet1")
'dwg name
Do Until excelsheet.Cells(rownum, 1).Value = "" Or excelsheet.Cells(rownum,
1).Value = dwgname
rownum = rownum + 1
Loop
excelsheet.Cells(rownum, 1).Value = dwgname
If excelsheet.Cells(rownum, 1).Value = dwgname Then
columnnum = columnnum + 1
End If
'date
Do Until excelsheet.Cells(rownum, columnnum).Value = "" Or
excelsheet.Cells(rownum, columnnum).Value = moment
columnnum = columnnum + 1
Loop
excelsheet.Cells(rownum, columnnum).Value = moment
If excelsheet.Cells(rownum, 1).Value = now Then
columnnum = columnnum + 1
End If
'loginame
Do Until excelsheet.Cells(rownum, columnnum).Value = "" Or
excelsheet.Cells(rownum, columnnum).Value = loginame
columnnum = columnnum + 1
Loop
excelsheet.Cells(rownum, columnnum).Value = loginame
If excelsheet.Cells(rownum, 1).Value = loginame Then
columnnum = columnnum + 1
End If
'oflag tag
Do Until excelsheet.Cells(rownum, columnnum).Value = "" Or
excelsheet.Cells(rownum, columnnum).Value = oflag
columnnum = columnnum + 1
Loop
excelsheet.Cells(rownum, columnnum).Value = oflag
If excelsheet.Cells(rownum, 1).Value = oflag Then
columnnum = columnnum + 1
End If
excel.ActiveWorkbook.Save
excel.ActiveWorkbook.Close
excel.Quit
End With
End Sub