Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Links and Chdir
Hi
I have 2 questions that I hope someone can help me with 1) Is there any way to turn of the update links box that appears in a workbook that references another workbook. I have tried looking at the links box under editlink, but the manual button is greyed out. 2) I have the code chdir "\\Fs8\ssd-css-fin\eco\eco 2004-2005\eco_0405\SystemFiles\eco\ Application.Dialogs(xlDialogOpen).Sho The first line is simply a ' virtual ' network set-up on my hard drive to imitate my work set-up. But sometimes the open file dialogue box points to the right path and sometimes it does not. This is true even if I use a simple path such as c:\ Is there a reason why it is so temperamental All help is greatly appreciated H. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Links and Chdir
Hi Hansol
See the VBA help for Workbooks.open look at the UpdateLinks argument For point 2 Try to use this and see if it work Dim FName As Variant Dim wb As Workbook your chdir code FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls") If FName < False Then Set wb = Workbooks.Open(FName) MsgBox "your code" wb.Close End If -- Regards Ron de Bruin http://www.rondebruin.nl "Hansol" wrote in message ... Hi, I have 2 questions that I hope someone can help me with; 1) Is there any way to turn of the update links box that appears in a workbook that references another workbook. I have tried looking at the links box under editlink, but the manual button is greyed out. 2) I have the code; chdir "\\Fs8\ssd-css-fin\eco\eco 2004-2005\eco_0405\SystemFiles\eco\" Application.Dialogs(xlDialogOpen).Show The first line is simply a ' virtual ' network set-up on my hard drive to imitate my work set-up. But sometimes the open file dialogue box points to the right path and sometimes it does not. This is true even if I use a simple path such as c:\. Is there a reason why it is so temperamental? All help is greatly appreciated. H. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Links and Chdir
This isn't a programmed solution to the links msg
suppression problem, but you might find it handy. I could not suppress those pesky msgs checking off boxes I found in the LINKS window, but I went to TOOLS-OPTIONS-EDIT and found on the bottom left of the window, a list of 4 check boxes, one of which says "Ask to update links". That box was checked. I unchecked it, and the msgs stopped! -----Original Message----- Hi Hansol See the VBA help for Workbooks.open look at the UpdateLinks argument For point 2 Try to use this and see if it work Dim FName As Variant Dim wb As Workbook your chdir code FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls") If FName < False Then Set wb = Workbooks.Open(FName) MsgBox "your code" wb.Close End If -- Regards Ron de Bruin http://www.rondebruin.nl "Hansol" wrote in message ... Hi, I have 2 questions that I hope someone can help me with; 1) Is there any way to turn of the update links box that appears in a workbook that references another workbook. I have tried looking at the links box under editlink, but the manual button is greyed out. 2) I have the code; chdir "\\Fs8\ssd-css-fin\eco\eco 2004-2005\eco_0405\SystemFiles\eco\" Application.Dialogs(xlDialogOpen).Show The first line is simply a ' virtual ' network set-up on my hard drive to imitate my work set-up. But sometimes the open file dialogue box points to the right path and sometimes it does not. This is true even if I use a simple path such as c:\. Is there a reason why it is so temperamental? All help is greatly appreciated. H. . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Links and Chdir
That works by updating the links without prompt. It is the solution if that
is what you want. Until xl2002 there isn't a non-programming solution. In excel 2002 an option was added under Edit=Links. Previously posted by Rob Bovey: Private Declare Function SetCurrentDirectoryA Lib _ "kernel32" (ByVal lpPathName As String) As Long Sub ChDirNet(szPath As String) Dim lReturn As Long lReturn = SetCurrentDirectoryA(szPath) If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path." End Sub ' sample usage Sub FindFile() ChDirNet "\\LOGD0FILES\OGILVTW\Docs\Temp" fName = Application.GetOpenFileName End Sub -- Regards, Tom Ogilvy wrote in message ... This isn't a programmed solution to the links msg suppression problem, but you might find it handy. I could not suppress those pesky msgs checking off boxes I found in the LINKS window, but I went to TOOLS-OPTIONS-EDIT and found on the bottom left of the window, a list of 4 check boxes, one of which says "Ask to update links". That box was checked. I unchecked it, and the msgs stopped! -----Original Message----- Hi Hansol See the VBA help for Workbooks.open look at the UpdateLinks argument For point 2 Try to use this and see if it work Dim FName As Variant Dim wb As Workbook your chdir code FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls") If FName < False Then Set wb = Workbooks.Open(FName) MsgBox "your code" wb.Close End If -- Regards Ron de Bruin http://www.rondebruin.nl "Hansol" wrote in message ... Hi, I have 2 questions that I hope someone can help me with; 1) Is there any way to turn of the update links box that appears in a workbook that references another workbook. I have tried looking at the links box under editlink, but the manual button is greyed out. 2) I have the code; chdir "\\Fs8\ssd-css-fin\eco\eco 2004-2005\eco_0405\SystemFiles\eco\" Application.Dialogs(xlDialogOpen).Show The first line is simply a ' virtual ' network set-up on my hard drive to imitate my work set-up. But sometimes the open file dialogue box points to the right path and sometimes it does not. This is true even if I use a simple path such as c:\. Is there a reason why it is so temperamental? All help is greatly appreciated. H. . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Slow opening links between workbooks with links created in 2003 | Excel Discussion (Misc queries) | |||
Update links box gives Continue or Edit Links dialog | Excel Discussion (Misc queries) | |||
Edit Links: Changing links on a protected worksheet | Excel Discussion (Misc queries) | |||
EXCEL - LINKS cannot easily get list of all links & names in book | Excel Worksheet Functions | |||
application.dialogs(xlDialogSaveAs) AND CHDIR | Excel Programming |