| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Open Workbook error
Hi.
I need to open a Workbook that starts with "Reg" but the instruction I created gives me an error (the wild card doesn't work): Set wbReg = Workbooks.Open(ThisWorkbook.Path & "\Reg*.xls") Any suggestions? -- Alex *Remember to click "yes" if this post helped you. Thank you! |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Open Workbook error
Try
Dim strFile As String strFile = Dir(ActiveWorkbook.Path & "\bond*.xl*", vbNormal) Do While strFile < "" Set wbReg = Workbooks.Open(ActiveWorkbook.Path & "\" & strFile) Exit Do Loop If this post helps click Yes --------------- Jacob Skaria "alexrs2k" wrote: Hi. I need to open a Workbook that starts with "Reg" but the instruction I created gives me an error (the wild card doesn't work): Set wbReg = Workbooks.Open(ThisWorkbook.Path & "\Reg*.xls") Any suggestions? -- Alex *Remember to click "yes" if this post helped you. Thank you! |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Open Workbook error
This should do...
Dim strFile As String strFile = Dir(ActiveWorkbook.Path & "\Reg*.xl*", vbNormal) If strFile < "" Then Set wbReg = Workbooks.Open(ActiveWorkbook.Path & "\" & strFile) End If If this post helps click Yes --------------- Jacob Skaria "Jacob Skaria" wrote: Try Dim strFile As String strFile = Dir(ActiveWorkbook.Path & "\bond*.xl*", vbNormal) Do While strFile < "" Set wbReg = Workbooks.Open(ActiveWorkbook.Path & "\" & strFile) Exit Do Loop If this post helps click Yes --------------- Jacob Skaria "alexrs2k" wrote: Hi. I need to open a Workbook that starts with "Reg" but the instruction I created gives me an error (the wild card doesn't work): Set wbReg = Workbooks.Open(ThisWorkbook.Path & "\Reg*.xls") Any suggestions? -- Alex *Remember to click "yes" if this post helped you. Thank you! |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Open Workbook error
Thank you Jacob! It works perfectly.
-- Alex *Remember to click "yes" if this post helped you. Thank you! "Jacob Skaria" wrote: This should do... Dim strFile As String strFile = Dir(ActiveWorkbook.Path & "\Reg*.xl*", vbNormal) If strFile < "" Then Set wbReg = Workbooks.Open(ActiveWorkbook.Path & "\" & strFile) End If If this post helps click Yes --------------- Jacob Skaria "Jacob Skaria" wrote: Try Dim strFile As String strFile = Dir(ActiveWorkbook.Path & "\bond*.xl*", vbNormal) Do While strFile < "" Set wbReg = Workbooks.Open(ActiveWorkbook.Path & "\" & strFile) Exit Do Loop If this post helps click Yes --------------- Jacob Skaria "alexrs2k" wrote: Hi. I need to open a Workbook that starts with "Reg" but the instruction I created gives me an error (the wild card doesn't work): Set wbReg = Workbooks.Open(ThisWorkbook.Path & "\Reg*.xls") Any suggestions? -- Alex *Remember to click "yes" if this post helped you. Thank you! |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Opening Excel, Book1 opens, remains open with other workbook open | Excel Discussion (Misc queries) | |||
| how do i open a data workbook when i open a timesheet workbook | Excel Discussion (Misc queries) | |||
| EXCEL:Can't open any file without error saying it's ALREADY open??? | Excel Worksheet Functions | |||
| excel 2003 saved file will not open without a blank workbook open | Excel Discussion (Misc queries) | |||
| Search open sheets in workbook and insert into open sheet | Excel Discussion (Misc queries) | |||
Linear Mode
