Open Excel Book

[dantb]

Hi all. I am trying to open a excel workbook with a cdm button. The workbook is named Exlabor.xls,and dont know if it maters but is in a subdirectory of the workbook with the cmd. This is what I have do I nead any thing else with it ?

Private Sub CdmElabor_Click()
Workbooks.Open Filename:="exlabor.xls"
Sheets("sheet1").Select
End Sub

[brettvba]

try

ChDir "W:Directory"

Workbooks.Open filename:="W:BuyersManFilesexlabor.xls"

there is only one backslash though don't know why it puts in 2
where w: is the drive

[ This Message was edited by: brettvba on 2002-04-02 18:56 ]

[ This Message was edited by: brettvba on 2002-04-02 18:57 ]

[ This Message was edited by: brettvba on 2002-04-02 18:58 ]

[dantb]

Ok will try Brett thx. If in the same directory code is fine, but in different Im having trouble. Thanks again Dan

[Ivan F Moala]

On 2002-04-02 19:00, dantb wrote:
Ok will try Brett thx. If in the same directory code is fine, but in different Im having trouble. Thanks again Dan

As well as what Brett suggested....
Just put the the full file path and file name
in your open call routine

[dantb]

Thanks Again for your Help It works Great. In case these files are put into anouther directory Like C:/Program Files/ (or what ever the user Picks), is there anyway of leaving the Whole path out ? This is what I have.

Private Sub CdmElabor_Click()
FrmLbedit.Hide
ChDir "C:Unit PriceDocuments"
Workbooks.Open Filename:="C:Unit PriceDocumentsexlabor.xls"
Sheets("sheet1").Select
End Sub

[NateO]

If you find a way to store what the user picks, whether it's a cell entry or an input box. It may behoove you to elaborate as to how the user chooses their target directory.

[dantb]

not a cell or pick. When someone Actualy installs the program, they have a choice of my default directory or choising there own. And if they choise there own, I dont think the code will work.

[NateO]

Depends how they choose their's, if it's a global variable, you may be able to refer to it in your code. Do they choose via Excel or Windows (e.g., Add/Remove Programs)?

_________________
Cheers, NateO

[ This Message was edited by: NateO on 2002-04-02 19:59 ]

[dantb]

I have a simple installer program, I have no dll's, or special system files, just a directory with 6 sub directories. Just trying to make it easy to install with out using copy/Paste.

[NateO]

I have to apologize, I still don't know contextually as to how I best answer. You could do a file search on a drive, but multiples could prove to be a challenge. You could also have the user browse for the file using:

Dim myFl As Variant
myFl = Application.GetOpenFilename("Excel-files,*.xls", 1, "Select Yer File", , False)

myFl will hold the filepath & filename (i.e., Workbooks.Open filename:=myFl)


_________________
Cheers, NateO

[ This Message was edited by: NateO on 2002-04-02 20:23 ]