Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Make new folder & save to it
Hi, I was wondering if anybody knows a way, through VBA, to create a new folder in the same directory and then save the active workbook to that new folder? Thanks in advance -- krabople ------------------------------------------------------------------------ krabople's Profile: http://www.excelforum.com/member.php...o&userid=29774 View this thread: http://www.excelforum.com/showthread...hreadid=504845 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Make new folder & save to it
Dear Krabople:
Here are a couple of routines that may help. Modofy as necessary. Sub MakeFolderAndSaveActiveBook() Dim foldername As String Dim filename As String Dim s As String Dim wb As Workbook foldername = "ggg" ' modify for folder name filename = "filename.xls" s = CreateFolder(foldername) If Len(s) 0 Then MsgBox s, vbOKOnly, "Created" s = s & "\" & filename ActiveWorkbook.SaveAs s MsgBox s, vbOKOnly, "Created" Else MsgBox "Cannot Create Folder " & foldername, vbOKOnly, "Cannot create folder" End If End Sub Function CreateFolder(folder As String) As String Dim p As Variant On Error GoTo Err CreateFolder = "" p = CurDir If Len(p) 0 Then If Right(p, 1) < "\" Then p = p & "\" p = p & folder MkDir p CreateFolder = p End If Err: End Function -- HTHs Martin "krabople" wrote: Hi, I was wondering if anybody knows a way, through VBA, to create a new folder in the same directory and then save the active workbook to that new folder? Thanks in advance -- krabople ------------------------------------------------------------------------ krabople's Profile: http://www.excelforum.com/member.php...o&userid=29774 View this thread: http://www.excelforum.com/showthread...hreadid=504845 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Make new folder & save to it
That's perfect, thanks very much for your help! -- krabople ------------------------------------------------------------------------ krabople's Profile: http://www.excelforum.com/member.php...o&userid=29774 View this thread: http://www.excelforum.com/showthread...hreadid=504845 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Make new folder & save to it
Hi, thanks again for the code, it works great. The only problem is that it creates the folder in My Documents for some reason whereas I need the folder to be in the same directory as the active workbook. How do I do this? -- krabople ------------------------------------------------------------------------ krabople's Profile: http://www.excelforum.com/member.php...o&userid=29774 View this thread: http://www.excelforum.com/showthread...hreadid=504845 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Make new folder & save to it
Try this:
Function CreateFolder(folder As String) As String Dim p As Variant On Error GoTo Err CreateFolder = "" p = ActiveWorkbook.Path ' CurDir of active workbook<<<<<<<<<<<< If Len(p) 0 Then If Right(p, 1) < "\" Then p = p & "\" p = p & folder MkDir p CreateFolder = p End If Err: End Function -- HTHs Martin "krabople" wrote: Hi, thanks again for the code, it works great. The only problem is that it creates the folder in My Documents for some reason whereas I need the folder to be in the same directory as the active workbook. How do I do this? -- krabople ------------------------------------------------------------------------ krabople's Profile: http://www.excelforum.com/member.php...o&userid=29774 View this thread: http://www.excelforum.com/showthread...hreadid=504845 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Make new folder & save to it
Brilliant that's done the job, thanks again -- krabople ------------------------------------------------------------------------ krabople's Profile: http://www.excelforum.com/member.php...o&userid=29774 View this thread: http://www.excelforum.com/showthread...hreadid=504845 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How I can make a passward on the folder? | New Users to Excel | |||
Need code to save file to new folder, erase from old folder | Excel Discussion (Misc queries) | |||
open file from folder save in new folder | Excel Programming | |||
"Save As" folder -- can I default this to the same folder as origi | Excel Discussion (Misc queries) | |||
Using VBA in Excel to Make a Folder to Save Workbooks in | Excel Programming |