Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Open File with VBA
Hello everyone-
I have a code that opens an existing excel file but, if someone is already in the file, it does not pop up a window that says which user is currently in the file. Can some add to my coding so that when the file is opened and someone is in the file it will identify who is in the file? Thanks. Sub Open_Wiresheet() Dim objExcel As Object Dim SchedWkbk As Workbook On Error Resume Next Set SchedWkbk = Nothing Set objExcel = CreateObject("Excel.Application") Set SchedWkbk = objExcel.Application.Workbooks.Open _ ("O:\SEM\Common\Accounting\May-07 Wire Transfer Schedule.xls ") ' WIRE TRXFER FILE objExcel.Visible = True On Error Resume Next If SchedWkbk Is Nothing Then Msgbox prompt:="Cannot find file. Please open file manually", _ Buttons:=vbOKOnly + vbQuestion End If End Sub |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Open File with VBA
http://support.microsoft.com/Default.aspx?kbid=291295
-- Gary''s Student - gsnu200724 "David T" wrote: Hello everyone- I have a code that opens an existing excel file but, if someone is already in the file, it does not pop up a window that says which user is currently in the file. Can some add to my coding so that when the file is opened and someone is in the file it will identify who is in the file? Thanks. Sub Open_Wiresheet() Dim objExcel As Object Dim SchedWkbk As Workbook On Error Resume Next Set SchedWkbk = Nothing Set objExcel = CreateObject("Excel.Application") Set SchedWkbk = objExcel.Application.Workbooks.Open _ ("O:\SEM\Common\Accounting\May-07 Wire Transfer Schedule.xls ") ' WIRE TRXFER FILE objExcel.Visible = True On Error Resume Next If SchedWkbk Is Nothing Then Msgbox prompt:="Cannot find file. Please open file manually", _ Buttons:=vbOKOnly + vbQuestion End If End Sub |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Open File with VBA
do u have a macro that will identify who is currently in the file if I am
trying to access it? Thanks. "Gary''s Student" wrote: http://support.microsoft.com/Default.aspx?kbid=291295 -- Gary''s Student - gsnu200724 "David T" wrote: Hello everyone- I have a code that opens an existing excel file but, if someone is already in the file, it does not pop up a window that says which user is currently in the file. Can some add to my coding so that when the file is opened and someone is in the file it will identify who is in the file? Thanks. Sub Open_Wiresheet() Dim objExcel As Object Dim SchedWkbk As Workbook On Error Resume Next Set SchedWkbk = Nothing Set objExcel = CreateObject("Excel.Application") Set SchedWkbk = objExcel.Application.Workbooks.Open _ ("O:\SEM\Common\Accounting\May-07 Wire Transfer Schedule.xls ") ' WIRE TRXFER FILE objExcel.Visible = True On Error Resume Next If SchedWkbk Is Nothing Then Msgbox prompt:="Cannot find file. Please open file manually", _ Buttons:=vbOKOnly + vbQuestion End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
excel 2003 saved file will not open without a blank workbook open | Excel Discussion (Misc queries) | |||
In Excel - Use Windows Explorer instead of File Open to open file | Excel Discussion (Misc queries) | |||
Open email windows can't open, excel shreadsheet file .xls ? | Excel Discussion (Misc queries) | |||
file open via IE hyperlink causes already open files to shrink and tile | Setting up and Configuration of Excel | |||
How do I stop Excel from closing the open file each time I open a. | Setting up and Configuration of Excel |