Path not found, but the folders do exist
[code] Sub toPDF() ' This will copy a specified range('s) from ws1 & ws2 to ws3. ' Now you can...
I believe the problem is that you are not getting the sFileName from the original workbook. So I have added ActiveWorkbook.Save...
Hello Ready2go This may only answer some of your question. The macro below will create a PDF file of Sheet2....
Dear Hyside2, I really appreciate your cooperation and helpful answer. Thanks so much.
Try this instead =IFERROR(LEFT(B1,FIND(" ",B1)-1),B1) [img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/08/givenname.png[/img]
I am not sure if this is what you are looking for but test it out anyway. [img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/08/1-2.png[/img]...
Oh! Please try this. You will need to change "Book1" on the line that reads (oFilename="Book1") to the name of...
Hi, i have 100 .xls files in a folder. Each excel has 1-2 sheets in it. I want to create a master excel file in the same location with all the 100 excel files (along with its respective tabs) one after the other in it . is there any vba code for it?
How are you! Here is the working example for consolidating the all worksheets from all workbooks in a folder to a maser workbook:
Dim strFile As String
Dim strFolder As String
Dim wbMB As Workbook
Dim wbTB As Workbook
Set xlApp = New Excel.Application
Set wbMB = xlApp.Workbooks.Add
strFolder = Range("B1")
'For Each excel File in the Folder
strFile = Dir(strFolder & "*.xls")
Do While Len(strFile) > 0
Set wbTB = xlApp.Workbooks.Open(strFolder & "\" & strFile)
' MsgBox strFile
For Each sht In wbTB.Sheets
Set wbTB = Nothing
strFile = Dir
wbMB.SaveAs Filename:=strFolder & Range("B2") & ".xlsx"
Set wbMB = Nothing
Set xlApp = Nothing
Here is the working Example – VBA Macro File:
Hi Pnrao, this code is not working…when i download the file and give tle location of the file and click on execute it shows an errror. Could you look into this?
Can you send me the modified file.
these are the steps i followed:
Please share using the share button above.
If you found the answer is best answer for your question, Please mark as 'best answer' by clicking on the right tick mark icon at the left side of the answer.
Found the answer useful and wants to credit the user, then vote the answer (vote up).