Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 . |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 . . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 . . . |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 . . . . |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to select all worksheets in a workbook | Excel Discussion (Misc queries) | |||
Select sheet tabs in workbook & save to separate workbook files | Excel Worksheet Functions | |||
workbook select | Excel Discussion (Misc queries) | |||
Sheets select method fails when workbook is opened by another workbook | Excel Programming | |||
Select other workbook to select data in a macro. | Excel Programming |