Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.newusers
|
|||
|
|||
Open Workbook
within my macro i wqant a message box to come up requesting the user to
either type in a file name or paste it and then use that file name to open the file also a way of selecting how many files i want the macro to run on for example run 1 i may have 3 files i want to run the macro on so i need the message box to ask me three times for each filename the next time i run it i may need to use 10 files to run the same macro on supplying 10 different filenames the files will always be located in the same folder as the spreadsheet i am running the macro on. thanks in advance Arnie |
#2
Posted to microsoft.public.excel.newusers
|
|||
|
|||
Open Workbook
Dim i As Long
With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .InitialFileName = ThisWorkbook.Path & Application.PathSeparator & "*.xls" If .Show = -1 Then For i = 1 To .SelectedItems.Count Workbooks.Open .SelectedItems(i) Next i End If End With -- __________________________________ HTH Bob "Arnie" wrote in message ... within my macro i wqant a message box to come up requesting the user to either type in a file name or paste it and then use that file name to open the file also a way of selecting how many files i want the macro to run on for example run 1 i may have 3 files i want to run the macro on so i need the message box to ask me three times for each filename the next time i run it i may need to use 10 files to run the same macro on supplying 10 different filenames the files will always be located in the same folder as the spreadsheet i am running the macro on. thanks in advance Arnie |
#3
Posted to microsoft.public.excel.newusers
|
|||
|
|||
Open Workbook
Bob thats great thank you however once i select a file i need to pass the
file name to the macro to act on so i'm not sure if it is the open file box i need just a msgbox that i can pass the file names to the macro depending on how many files i need to run through could be 3 files or as many as 10 does that make sense Arnie "Bob Phillips" wrote: Dim i As Long With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .InitialFileName = ThisWorkbook.Path & Application.PathSeparator & "*.xls" If .Show = -1 Then For i = 1 To .SelectedItems.Count Workbooks.Open .SelectedItems(i) Next i End If End With -- __________________________________ HTH Bob "Arnie" wrote in message ... within my macro i wqant a message box to come up requesting the user to either type in a file name or paste it and then use that file name to open the file also a way of selecting how many files i want the macro to run on for example run 1 i may have 3 files i want to run the macro on so i need the message box to ask me three times for each filename the next time i run it i may need to use 10 files to run the same macro on supplying 10 different filenames the files will always be located in the same folder as the spreadsheet i am running the macro on. thanks in advance Arnie |
#4
Posted to microsoft.public.excel.newusers
|
|||
|
|||
Open Workbook
Ok, but how will you process multiple files, calling the macro with the name
one at a time? -- __________________________________ HTH Bob "Arnie" wrote in message ... Bob thats great thank you however once i select a file i need to pass the file name to the macro to act on so i'm not sure if it is the open file box i need just a msgbox that i can pass the file names to the macro depending on how many files i need to run through could be 3 files or as many as 10 does that make sense Arnie "Bob Phillips" wrote: Dim i As Long With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .InitialFileName = ThisWorkbook.Path & Application.PathSeparator & "*.xls" If .Show = -1 Then For i = 1 To .SelectedItems.Count Workbooks.Open .SelectedItems(i) Next i End If End With -- __________________________________ HTH Bob "Arnie" wrote in message ... within my macro i wqant a message box to come up requesting the user to either type in a file name or paste it and then use that file name to open the file also a way of selecting how many files i want the macro to run on for example run 1 i may have 3 files i want to run the macro on so i need the message box to ask me three times for each filename the next time i run it i may need to use 10 files to run the same macro on supplying 10 different filenames the files will always be located in the same folder as the spreadsheet i am running the macro on. thanks in advance Arnie |
#5
Posted to microsoft.public.excel.newusers
|
|||
|
|||
Open Workbook
Bob Hi sorry if this has taken a while for me to get back to you
i can create a msgbox that i can select "number of Files" say 5 this will then be passed to a loop which then asks the user for the file name it goes off and does its job and then the filename box reapears to allow the second filename to be acted upon and so on until all 5 files have been processed (all of the files are set out the same way jjust have different data in them) Does that make sense? "Bob Phillips" wrote: Ok, but how will you process multiple files, calling the macro with the name one at a time? -- __________________________________ HTH Bob "Arnie" wrote in message ... Bob thats great thank you however once i select a file i need to pass the file name to the macro to act on so i'm not sure if it is the open file box i need just a msgbox that i can pass the file names to the macro depending on how many files i need to run through could be 3 files or as many as 10 does that make sense Arnie "Bob Phillips" wrote: Dim i As Long With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .InitialFileName = ThisWorkbook.Path & Application.PathSeparator & "*.xls" If .Show = -1 Then For i = 1 To .SelectedItems.Count Workbooks.Open .SelectedItems(i) Next i End If End With -- __________________________________ HTH Bob "Arnie" wrote in message ... within my macro i wqant a message box to come up requesting the user to either type in a file name or paste it and then use that file name to open the file also a way of selecting how many files i want the macro to run on for example run 1 i may have 3 files i want to run the macro on so i need the message box to ask me three times for each filename the next time i run it i may need to use 10 files to run the same macro on supplying 10 different filenames the files will always be located in the same folder as the spreadsheet i am running the macro on. thanks in advance Arnie |
#6
Posted to microsoft.public.excel.newusers
|
|||
|
|||
Open Workbook
Hi Arnie
This may not be the most efficient method, but you code modify Bob's code to make a temporary list of the files, then run your macro reading back each of the file names in turn as per the following Dim i As Long, c As Range With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .InitialFileName = ThisWorkbook.Path & Application.PathSeparator _ & "*.xls" If .Show = -1 Then For i = 1 To .SelectedItems.Count Sheets("Sheet2").Cells(i, "A") = .SelectedItems(i) Next i End If End With For Each c In Sheets("Sheet2").Range("A:A") If c.Value = "" Then Exit Sub 'run your macro here using the value of c as file name Next -- Regards Roger Govier "Arnie" wrote in message ... Bob Hi sorry if this has taken a while for me to get back to you i can create a msgbox that i can select "number of Files" say 5 this will then be passed to a loop which then asks the user for the file name it goes off and does its job and then the filename box reapears to allow the second filename to be acted upon and so on until all 5 files have been processed (all of the files are set out the same way jjust have different data in them) Does that make sense? "Bob Phillips" wrote: Ok, but how will you process multiple files, calling the macro with the name one at a time? -- __________________________________ HTH Bob "Arnie" wrote in message ... Bob thats great thank you however once i select a file i need to pass the file name to the macro to act on so i'm not sure if it is the open file box i need just a msgbox that i can pass the file names to the macro depending on how many files i need to run through could be 3 files or as many as 10 does that make sense Arnie "Bob Phillips" wrote: Dim i As Long With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .InitialFileName = ThisWorkbook.Path & Application.PathSeparator & "*.xls" If .Show = -1 Then For i = 1 To .SelectedItems.Count Workbooks.Open .SelectedItems(i) Next i End If End With -- __________________________________ HTH Bob "Arnie" wrote in message ... within my macro i wqant a message box to come up requesting the user to either type in a file name or paste it and then use that file name to open the file also a way of selecting how many files i want the macro to run on for example run 1 i may have 3 files i want to run the macro on so i need the message box to ask me three times for each filename the next time i run it i may need to use 10 files to run the same macro on supplying 10 different filenames the files will always be located in the same folder as the spreadsheet i am running the macro on. thanks in advance Arnie |
#7
Posted to microsoft.public.excel.newusers
|
|||
|
|||
Open Workbook
You already have a list Roger, SelectedItems
Dim i As Long With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .InitialFileName = ThisWorkbook.Path & _ Application.PathSeparator & "*.xls" If .Show = -1 Then For i = 1 To .SelectedItems.Count Call myMacro (.SelectedItems(i)) Next i End If End With -- __________________________________ HTH Bob "Roger Govier" <roger@technology4unospamdotcodotuk wrote in message ... Hi Arnie This may not be the most efficient method, but you code modify Bob's code to make a temporary list of the files, then run your macro reading back each of the file names in turn as per the following Dim i As Long, c As Range With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .InitialFileName = ThisWorkbook.Path & Application.PathSeparator _ & "*.xls" If .Show = -1 Then For i = 1 To .SelectedItems.Count Sheets("Sheet2").Cells(i, "A") = .SelectedItems(i) Next i End If End With For Each c In Sheets("Sheet2").Range("A:A") If c.Value = "" Then Exit Sub 'run your macro here using the value of c as file name Next -- Regards Roger Govier "Arnie" wrote in message ... Bob Hi sorry if this has taken a while for me to get back to you i can create a msgbox that i can select "number of Files" say 5 this will then be passed to a loop which then asks the user for the file name it goes off and does its job and then the filename box reapears to allow the second filename to be acted upon and so on until all 5 files have been processed (all of the files are set out the same way jjust have different data in them) Does that make sense? "Bob Phillips" wrote: Ok, but how will you process multiple files, calling the macro with the name one at a time? -- __________________________________ HTH Bob "Arnie" wrote in message ... Bob thats great thank you however once i select a file i need to pass the file name to the macro to act on so i'm not sure if it is the open file box i need just a msgbox that i can pass the file names to the macro depending on how many files i need to run through could be 3 files or as many as 10 does that make sense Arnie "Bob Phillips" wrote: Dim i As Long With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .InitialFileName = ThisWorkbook.Path & Application.PathSeparator & "*.xls" If .Show = -1 Then For i = 1 To .SelectedItems.Count Workbooks.Open .SelectedItems(i) Next i End If End With -- __________________________________ HTH Bob "Arnie" wrote in message ... within my macro i wqant a message box to come up requesting the user to either type in a file name or paste it and then use that file name to open the file also a way of selecting how many files i want the macro to run on for example run 1 i may have 3 files i want to run the macro on so i need the message box to ask me three times for each filename the next time i run it i may need to use 10 files to run the same macro on supplying 10 different filenames the files will always be located in the same folder as the spreadsheet i am running the macro on. thanks in advance Arnie |
#8
Posted to microsoft.public.excel.newusers
|
|||
|
|||
Open Workbook
Thanks Bob.
Absolutely stupid of me to write it out elsewhere first of all. I obviously like making work!!! -- Regards Roger Govier "Bob Phillips" wrote in message ... You already have a list Roger, SelectedItems Dim i As Long With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .InitialFileName = ThisWorkbook.Path & _ Application.PathSeparator & "*.xls" If .Show = -1 Then For i = 1 To .SelectedItems.Count Call myMacro (.SelectedItems(i)) Next i End If End With -- __________________________________ HTH Bob "Roger Govier" <roger@technology4unospamdotcodotuk wrote in message ... Hi Arnie This may not be the most efficient method, but you code modify Bob's code to make a temporary list of the files, then run your macro reading back each of the file names in turn as per the following Dim i As Long, c As Range With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .InitialFileName = ThisWorkbook.Path & Application.PathSeparator _ & "*.xls" If .Show = -1 Then For i = 1 To .SelectedItems.Count Sheets("Sheet2").Cells(i, "A") = .SelectedItems(i) Next i End If End With For Each c In Sheets("Sheet2").Range("A:A") If c.Value = "" Then Exit Sub 'run your macro here using the value of c as file name Next -- Regards Roger Govier "Arnie" wrote in message ... Bob Hi sorry if this has taken a while for me to get back to you i can create a msgbox that i can select "number of Files" say 5 this will then be passed to a loop which then asks the user for the file name it goes off and does its job and then the filename box reapears to allow the second filename to be acted upon and so on until all 5 files have been processed (all of the files are set out the same way jjust have different data in them) Does that make sense? "Bob Phillips" wrote: Ok, but how will you process multiple files, calling the macro with the name one at a time? -- __________________________________ HTH Bob "Arnie" wrote in message ... Bob thats great thank you however once i select a file i need to pass the file name to the macro to act on so i'm not sure if it is the open file box i need just a msgbox that i can pass the file names to the macro depending on how many files i need to run through could be 3 files or as many as 10 does that make sense Arnie "Bob Phillips" wrote: Dim i As Long With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .InitialFileName = ThisWorkbook.Path & Application.PathSeparator & "*.xls" If .Show = -1 Then For i = 1 To .SelectedItems.Count Workbooks.Open .SelectedItems(i) Next i End If End With -- __________________________________ HTH Bob "Arnie" wrote in message ... within my macro i wqant a message box to come up requesting the user to either type in a file name or paste it and then use that file name to open the file also a way of selecting how many files i want the macro to run on for example run 1 i may have 3 files i want to run the macro on so i need the message box to ask me three times for each filename the next time i run it i may need to use 10 files to run the same macro on supplying 10 different filenames the files will always be located in the same folder as the spreadsheet i am running the macro on. thanks in advance Arnie |
#9
Posted to microsoft.public.excel.newusers
|
|||
|
|||
Open Workbook
You must be a consultant <g
-- __________________________________ HTH Bob "Roger Govier" <roger@technology4unospamdotcodotuk wrote in message ... Thanks Bob. Absolutely stupid of me to write it out elsewhere first of all. I obviously like making work!!! -- Regards Roger Govier "Bob Phillips" wrote in message ... You already have a list Roger, SelectedItems Dim i As Long With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .InitialFileName = ThisWorkbook.Path & _ Application.PathSeparator & "*.xls" If .Show = -1 Then For i = 1 To .SelectedItems.Count Call myMacro (.SelectedItems(i)) Next i End If End With -- __________________________________ HTH Bob "Roger Govier" <roger@technology4unospamdotcodotuk wrote in message ... Hi Arnie This may not be the most efficient method, but you code modify Bob's code to make a temporary list of the files, then run your macro reading back each of the file names in turn as per the following Dim i As Long, c As Range With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .InitialFileName = ThisWorkbook.Path & Application.PathSeparator _ & "*.xls" If .Show = -1 Then For i = 1 To .SelectedItems.Count Sheets("Sheet2").Cells(i, "A") = .SelectedItems(i) Next i End If End With For Each c In Sheets("Sheet2").Range("A:A") If c.Value = "" Then Exit Sub 'run your macro here using the value of c as file name Next -- Regards Roger Govier "Arnie" wrote in message ... Bob Hi sorry if this has taken a while for me to get back to you i can create a msgbox that i can select "number of Files" say 5 this will then be passed to a loop which then asks the user for the file name it goes off and does its job and then the filename box reapears to allow the second filename to be acted upon and so on until all 5 files have been processed (all of the files are set out the same way jjust have different data in them) Does that make sense? "Bob Phillips" wrote: Ok, but how will you process multiple files, calling the macro with the name one at a time? -- __________________________________ HTH Bob "Arnie" wrote in message ... Bob thats great thank you however once i select a file i need to pass the file name to the macro to act on so i'm not sure if it is the open file box i need just a msgbox that i can pass the file names to the macro depending on how many files i need to run through could be 3 files or as many as 10 does that make sense Arnie "Bob Phillips" wrote: Dim i As Long With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .InitialFileName = ThisWorkbook.Path & Application.PathSeparator & "*.xls" If .Show = -1 Then For i = 1 To .SelectedItems.Count Workbooks.Open .SelectedItems(i) Next i End If End With -- __________________________________ HTH Bob "Arnie" wrote in message ... within my macro i wqant a message box to come up requesting the user to either type in a file name or paste it and then use that file name to open the file also a way of selecting how many files i want the macro to run on for example run 1 i may have 3 files i want to run the macro on so i need the message box to ask me three times for each filename the next time i run it i may need to use 10 files to run the same macro on supplying 10 different filenames the files will always be located in the same folder as the spreadsheet i am running the macro on. thanks in advance Arnie |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
excel 2003 saved file will not open without a blank workbook open | Excel Discussion (Misc queries) | |||
Need VB code for workbook open to open a link | Excel Discussion (Misc queries) | |||
Search open sheets in workbook and insert into open sheet | Excel Discussion (Misc queries) | |||
Excel workbook does not open in open window on desktop | Excel Discussion (Misc queries) | |||
Importing Data from unopened Workbook into an open Workbook | Excel Discussion (Misc queries) |