|
select workbook
Hi,
I'm using a macro that opens a dialigbox to open a file. I know the filename begins with ABC. Fe 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 I select I use Windows("DEF.xls").Activate Can I use something like Windows("ABC*.xls").Activate ? Thanks Tom |
select workbook
Hi
you may try something like the following: sub foo() dim wbk as workbook For each wbk in workbooks if ucase(left(wbk.name,3))="ABC" then wbk.activate exit for end if next end sub -----Original Message----- Hi, I'm using a macro that opens a dialigbox to open a file. I know the filename begins with ABC. Fe 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 I select I use Windows("DEF.xls").Activate Can I use something like Windows("ABC*.xls").Activate ? Thanks Tom . |
select workbook
Hi
Nothing happens, even no error. Tom -----Original Message----- Hi you may try something like the following: sub foo() dim wbk as workbook For each wbk in workbooks if ucase(left(wbk.name,3))="ABC" then wbk.activate exit for end if next end sub -----Original Message----- Hi, I'm using a macro that opens a dialigbox to open a file. I know the filename begins with ABC. Fe 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 I select I use Windows("DEF.xls").Activate Can I use something like Windows("ABC*.xls").Activate ? Thanks Tom . . |
select workbook
Hi
works for me (Excel 97). What is the exact code you have used? -----Original Message----- Hi Nothing happens, even no error. Tom -----Original Message----- Hi you may try something like the following: sub foo() dim wbk as workbook For each wbk in workbooks if ucase(left(wbk.name,3))="ABC" then wbk.activate exit for end if next end sub -----Original Message----- Hi, I'm using a macro that opens a dialigbox to open a file. I know the filename begins with ABC. Fe 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 I select I use Windows("DEF.xls").Activate Can I use something like Windows("ABC*.xls").Activate ? Thanks Tom . . . |
select workbook
I'm using Excell 2003
Sub test() Dim wbk As Workbook For Each wbk In Workbooks If UCase(Left(wbk.Name, 3)) = "Exp" Then wbk.Activate ActiveSheet.Unprotect Selection.EntireColumn.Hidden = False With ActiveWindow .DisplayGridlines = True .DisplayHeadings = True End With Columns("A:K").Select Selection.EntireColumn.Hidden = False Exit For End If Next Windows("Quogen NeXspan 1.0.xls").Activate End Sub -----Original Message----- Hi works for me (Excel 97). What is the exact code you have used? -----Original Message----- Hi Nothing happens, even no error. Tom -----Original Message----- Hi you may try something like the following: sub foo() dim wbk as workbook For each wbk in workbooks if ucase(left(wbk.name,3))="ABC" then wbk.activate exit for end if next end sub -----Original Message----- Hi, I'm using a macro that opens a dialigbox to open a file. I know the filename begins with ABC. Fe 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 I select I use Windows("DEF.xls").Activate Can I use something like Windows ("ABC*.xls").Activate ? Thanks Tom . . . . |
select workbook
Dave
problem is solved you're right! Exp has to be EXP Thank you very much ! Tom -----Original Message----- This line jumped out at me. (I didn't look at anything else.) If UCase(Left(wbk.Name, 3)) = "Exp" Then Since you're checking uppercase stuff... If UCase(Left(wbk.Name, 3)) = "EXP" Then wrote: I'm using Excell 2003 Sub test() Dim wbk As Workbook For Each wbk In Workbooks If UCase(Left(wbk.Name, 3)) = "Exp" Then wbk.Activate ActiveSheet.Unprotect Selection.EntireColumn.Hidden = False With ActiveWindow .DisplayGridlines = True .DisplayHeadings = True End With Columns("A:K").Select Selection.EntireColumn.Hidden = False Exit For End If Next Windows("Quogen NeXspan 1.0.xls").Activate End Sub -----Original Message----- Hi works for me (Excel 97). What is the exact code you have used? -----Original Message----- Hi Nothing happens, even no error. Tom -----Original Message----- Hi you may try something like the following: sub foo() dim wbk as workbook For each wbk in workbooks if ucase(left(wbk.name,3))="ABC" then wbk.activate exit for end if next end sub -----Original Message----- Hi, I'm using a macro that opens a dialigbox to open a file. I know the filename begins with ABC. Fe 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 I select I use Windows("DEF.xls").Activate Can I use something like Windows ("ABC*.xls").Activate ? Thanks Tom . . . . -- Dave Peterson . |
| All times are GMT +1. The time now is 01:05 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com