Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto Open
Am I making this to hard? I want to open all documents
linked to my main documents. I want to open the main document and be select to open all the liked documents in one step. I have been working with a macro that can open documents by name but I want the whole directory to open and (if possible) open as minimized. If theres an easier way that would be great too. Heres what I have so far. Sub AllFiles() 'will open all files in a directory Dim myPath As String, myFile As String myPath = "C:\desktop\test" myFile = Dir(myPath & "*.xls") Workbooks.Open myPath & myFile ActiveWindow.WindowState = xlMinimized End Sub to open a single document I have (this works): Sub OpenOneFile() Workbooks.Open ("C:\WINDOWS\Desktop\test\book4.xls") ActiveWindow.WindowState = xlMinimized End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Auto open workbook(s)? | Excel Discussion (Misc queries) | |||
Auto Open problem | Excel Discussion (Misc queries) | |||
Auto open a .xlt template | New Users to Excel | |||
how do you switch from auto open | Excel Discussion (Misc queries) | |||
Auto Open | Excel Discussion (Misc queries) |