View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
CDICKENS CDICKENS is offline
external usenet poster
 
Posts: 2
Default Can I change this to work for a closed workbook

You can try saving "Employee Database.xls" as an addin. Then load the
file as an addin. Whenever you open excel the Employee Database will
be open.

A couple of Caveots...

You will need to code a Workbook.Save action in the workbook before
close event of the Employee Database.

Also if multiple users will be working in this file at the same time,
you may need to look into using MS Access instead of excel.

Thanks,
Chuck

Shawn wrote:
Below is my code which works fine. However, it requires the "Employee
Database.xls" file to already be open. How could I change my code so that it
is pulling this data from a closed "Employee Database.xls" file?

Sub UpdateCodeBook()
'
' Employees Macro
' Macro recorded 9/28/2004 by Shawn D. Crabtree
'
' Keyboard Shortcut: Ctrl+Shift+E


Sheets("Names").Columns("A:C").ClearContents
Windows("Employee Database.xls").Activate
Sheets("Library").Range("C:C,E:E,BE:BE").Copy
ActiveWindow.ActivateNext
Sheets("Names").Select
Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.DisplayAlerts = False
Windows("Employee DataBase.xls").Close
Application.DisplayAlerts = True
Sheets("Names").Select
Range("A1").Select
End Sub



--
Thanks
Shawn