Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open file with unknown extra characters at end of filename
Excel Experts, I want my code to open a file each morning but there will be extra unknown characters at the end of the filename. I believe I need to use a * to represent these, but I can't get the syntax correct. The file I want to open is: C:\MyDocs\MC ID 101805C or C:\MyDocs\MC ID 101805D Without adjusting for the extra character, my code is similar to: Sub OpenFile() Dim strPath As String Dim StrPrefix As String Dim strDate As String Const strPath As String = "C:\MyDocs\" Const strPrefix As String = "MC ID " strDate = Evaluate("=TODAY()") strDate = Format(strDate, "mmddyy") Workbooks.Open (strPath & strPrefix & strDate) End Sub I tried Workbooks.Open (strPath & strPrefix & strDate & "*") , or Workbooks.Open (strPath & strPrefix & strDate*) but I'm missing something. How would I modify the code to account for the extra character at the end? Thanks in advance, Alan -- achidsey |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open file with unknown extra characters at end of filename
Hi Alan,
You'll probably want to use the Dir$() function to get the actual filename before opening. There's no way to open a workbook directly by using wildcards. Dim sActualPath As String sActualPath = Dir$(strPath & strPrefix & strDate & "*") If Len(sActualPath) Then '/ OPEN WB -- Regards, Jake Marx www.longhead.com [please keep replies in the newsgroup - email address unmonitored] achidsey wrote: Excel Experts, I want my code to open a file each morning but there will be extra unknown characters at the end of the filename. I believe I need to use a * to represent these, but I can't get the syntax correct. The file I want to open is: C:\MyDocs\MC ID 101805C or C:\MyDocs\MC ID 101805D Without adjusting for the extra character, my code is similar to: Sub OpenFile() Dim strPath As String Dim StrPrefix As String Dim strDate As String Const strPath As String = "C:\MyDocs\" Const strPrefix As String = "MC ID " strDate = Evaluate("=TODAY()") strDate = Format(strDate, "mmddyy") Workbooks.Open (strPath & strPrefix & strDate) End Sub I tried Workbooks.Open (strPath & strPrefix & strDate & "*") , or Workbooks.Open (strPath & strPrefix & strDate*) but I'm missing something. How would I modify the code to account for the extra character at the end? Thanks in advance, Alan |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Extra empty workbook opens up when any excel file is open | Excel Discussion (Misc queries) | |||
Macro to open most recent file with a particular filename string | Excel Discussion (Misc queries) | |||
Unknown Characters | Excel Discussion (Misc queries) | |||
Macro to read filename in cell and open new file | Excel Programming | |||
Why doesn't the File Open list sort into filename order? | New Users to Excel |