dj44
03-25-2016, 09:27 PM
Folks,
Good Day to all. :)
My task seems very complex, and I am needing some help.
Good man Graham made this macro found below, I simply wanted to adapt it a little bit - but
after weeks of fiddling about - i have got no where, i am turning it over to the pros.
http://www.vbaexpress.com/forum/showthread.php?54940-Combining-Word-docs-based-on-a-design-in-Excel
I tried to attach zip file with all the materials in it forum would not upload so attahced xlsm and sample docs
- i hope it makes more sense than i am
The file names are stored in the column. They are then chosen using a number system as the order in which they should be concatendaed and then out put.
I am trying to save a file based on file names found horizontally accross instead of the original design which is verticlaly down.
so I changed the code to this:
oRng.InsertFile Filename:=strDocsPath & xlSheet.Cells(j, 4) & ".docx"_
& xlSheet.Cells(j, 5) & ".docx" & ".docx" & xlSheet.Cells(j, 6) & ".docx"
I know its wrong as it did not work.
Now knowing that my vba skills in excel too are very basic, i am looking for some help.
How would I save the output files by taking the file names from across multiple columns horizontally.
Thank you very much for your valuable time and help - I sure do appreciate it :thumb
DJ
15754
Sample Files
15755
15756
15757
15758
Good Day to all. :)
My task seems very complex, and I am needing some help.
Good man Graham made this macro found below, I simply wanted to adapt it a little bit - but
after weeks of fiddling about - i have got no where, i am turning it over to the pros.
http://www.vbaexpress.com/forum/showthread.php?54940-Combining-Word-docs-based-on-a-design-in-Excel
I tried to attach zip file with all the materials in it forum would not upload so attahced xlsm and sample docs
- i hope it makes more sense than i am
The file names are stored in the column. They are then chosen using a number system as the order in which they should be concatendaed and then out put.
I am trying to save a file based on file names found horizontally accross instead of the original design which is verticlaly down.
so I changed the code to this:
oRng.InsertFile Filename:=strDocsPath & xlSheet.Cells(j, 4) & ".docx"_
& xlSheet.Cells(j, 5) & ".docx" & ".docx" & xlSheet.Cells(j, 6) & ".docx"
I know its wrong as it did not work.
Now knowing that my vba skills in excel too are very basic, i am looking for some help.
How would I save the output files by taking the file names from across multiple columns horizontally.
Thank you very much for your valuable time and help - I sure do appreciate it :thumb
DJ
15754
Sample Files
15755
15756
15757
15758