Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
List all currently open xls files
Hi
I've got a form with a list box on that i want to display a list of all excel files the user currently has open so that they can specify one before running another procedure. Any ideas how i should go about this? Thanks for any suggestions Paul |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
List all currently open xls files
Option Explicit
Private Sub CommandButton1_Click() With Me.ListBox1 If .ListIndex < 0 Then 'nothing chosen Beep Else MsgBox .Value End If End With End Sub Private Sub CommandButton2_Click() Unload Me End Sub Private Sub UserForm_Initialize() Dim wkbk As Workbook With Me.ListBox1 For Each wkbk In Application.Workbooks .AddItem wkbk.FullName '.name???? Next wkbk End With End Sub paul wrote: Hi I've got a form with a list box on that i want to display a list of all excel files the user currently has open so that they can specify one before running another procedure. Any ideas how i should go about this? Thanks for any suggestions Paul -- Dave Peterson |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
List all currently open xls files
Hi Paul,
You could use the below on the UserForm_Initialize sub. Private Sub UserForm_Initialize() Dim xlsBook As Workbook For Each xlsBook In Application.Workbooks ListBox1.AddItem xlsBook.Name Next xlsBook End Sub Hope this helps, Alan -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...excel/200908/1 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Open files from List | Excel Discussion (Misc queries) | |||
2007 List of Open Files? | Excel Discussion (Misc queries) | |||
How to open a list of excel files and get update, then close it? | Excel Discussion (Misc queries) | |||
Cannot open files in Most Recently Used List | Excel Discussion (Misc queries) | |||
create a list of worksheet names (from a single folder, or open files) | Excel Discussion (Misc queries) |