Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
activate unknown workbook
Hi,
I'm using a macro that opens a dialigbox to open a file. I know the filename begins with ABC. ex : ABC XXXXX of ABC YYYY. Is it possible to switch between a filename that is always the same and ABC XXXXX The file I know (DEF) I select with : Windows("DEF.xls").Activate Can I use something like Windows("ABC*.xls").Activate ? Thanks Tom |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
activate unknown workbook
for each wkbk in Application.Workbooks
if Ucase(left(wkbk.Name,3)) = "ABC" then wkbk.Activate exit sub end if Next -- Regards, Tom Ogilvy "Tom" wrote in message ... Hi, I'm using a macro that opens a dialigbox to open a file. I know the filename begins with ABC. ex : ABC XXXXX of ABC YYYY. Is it possible to switch between a filename that is always the same and ABC XXXXX The file I know (DEF) I select with : Windows("DEF.xls").Activate Can I use something like Windows("ABC*.xls").Activate ? Thanks Tom |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
activate unknown workbook
And you have other replies to your other post.
Tom wrote: Hi, I'm using a macro that opens a dialigbox to open a file. I know the filename begins with ABC. ex : ABC XXXXX of ABC YYYY. Is it possible to switch between a filename that is always the same and ABC XXXXX The file I know (DEF) I select with : Windows("DEF.xls").Activate Can I use something like Windows("ABC*.xls").Activate ? Thanks Tom -- Dave Peterson |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
activate unknown workbook
I'm using :
Sub test() Dim wbk As Workbook For Each wbk In Application.Workbooks If UCase(Left(wbk.Name, 3)) = "Exp" Then wbk.Activate ActiveSheet.Unprotect With ActiveWindow .DisplayGridlines = True .DisplayHeadings = True End With Columns("A:K").Select Selection.EntireColumn.Hidden = False Exit For End If Next Windows("DEF.xls").Activate End Sub But it does nothing, even no error. What's wrong Thank you very much in advance ! Tom -----Original Message----- for each wkbk in Application.Workbooks if Ucase(left(wkbk.Name,3)) = "ABC" then wkbk.Activate exit sub end if Next -- Regards, Tom Ogilvy "Tom" wrote in message ... Hi, I'm using a macro that opens a dialigbox to open a file. I know the filename begins with ABC. ex : ABC XXXXX of ABC YYYY. Is it possible to switch between a filename that is always the same and ABC XXXXX The file I know (DEF) I select with : Windows("DEF.xls").Activate Can I use something like Windows("ABC*.xls").Activate ? Thanks Tom . |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
activate unknown workbook
If UCase(Left(wbk.Name, 3)) = "Exp" Then
If UCase(Left(wbk.Name, 3)) = "EXP" Then (ucase means upper case) Tom wrote: I'm using : Sub test() Dim wbk As Workbook For Each wbk In Application.Workbooks If UCase(Left(wbk.Name, 3)) = "Exp" Then wbk.Activate ActiveSheet.Unprotect With ActiveWindow .DisplayGridlines = True .DisplayHeadings = True End With Columns("A:K").Select Selection.EntireColumn.Hidden = False Exit For End If Next Windows("DEF.xls").Activate End Sub But it does nothing, even no error. What's wrong Thank you very much in advance ! Tom -----Original Message----- for each wkbk in Application.Workbooks if Ucase(left(wkbk.Name,3)) = "ABC" then wkbk.Activate exit sub end if Next -- Regards, Tom Ogilvy "Tom" wrote in message ... Hi, I'm using a macro that opens a dialigbox to open a file. I know the filename begins with ABC. ex : ABC XXXXX of ABC YYYY. Is it possible to switch between a filename that is always the same and ABC XXXXX The file I know (DEF) I select with : Windows("DEF.xls").Activate Can I use something like Windows("ABC*.xls").Activate ? Thanks Tom . -- Dave Peterson |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
activate unknown workbook
problem is solved
Exp has to be EXP Thx ! -----Original Message----- I'm using : Sub test() Dim wbk As Workbook For Each wbk In Application.Workbooks If UCase(Left(wbk.Name, 3)) = "Exp" Then wbk.Activate ActiveSheet.Unprotect With ActiveWindow .DisplayGridlines = True .DisplayHeadings = True End With Columns("A:K").Select Selection.EntireColumn.Hidden = False Exit For End If Next Windows("DEF.xls").Activate End Sub But it does nothing, even no error. What's wrong Thank you very much in advance ! Tom -----Original Message----- for each wkbk in Application.Workbooks if Ucase(left(wkbk.Name,3)) = "ABC" then wkbk.Activate exit sub end if Next -- Regards, Tom Ogilvy "Tom" wrote in message .. . Hi, I'm using a macro that opens a dialigbox to open a file. I know the filename begins with ABC. ex : ABC XXXXX of ABC YYYY. Is it possible to switch between a filename that is always the same and ABC XXXXX The file I know (DEF) I select with : Windows("DEF.xls").Activate Can I use something like Windows ("ABC*.xls").Activate ? Thanks Tom . . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Activate new workbook with unknown name | Excel Discussion (Misc queries) | |||
activate workbook w/unknown name | Excel Discussion (Misc queries) | |||
How to Activate unknown file name | Excel Programming | |||
Activate Other Workbook | Excel Programming | |||
Checking if workbook open (where path is unknown) | Excel Programming |