View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Rick Rick is offline
external usenet poster
 
Posts: 334
Default Join Function in VB Excel2k

I need to create a string literal in Excel 2k VB language. Example below:
Part 1 in a procedure called Worksheet_Change
Dim BkNme As String
BkNme = "Book2.xls"
Part 2 in a procedure called Wrkbk_Open(BkNme)
Dim WrkBk As Workbook
Dim BKPath As String
BKPath = "C:\Documents and Settings\My Documents\Excel\"

WrkBk = Join(BKPath, BkNme, """)
WrkBk should end up with:
"C:\Documents and Settings\My Documents\Excel\Book2.xls"
so that the following function can use
Workbooks.Open Filename:= _ WrkBk, UpdateLinks:=3




WrkBk should endup containing the following:
"C:\Documents and Settings\My Documents\Excel\Book2.xls"