Crear carpeta con nombre de textbox y hoja de excel
Mi petición de ayuda ahora es la siguiente. Tengo un formulario para llenar datos pero quiero que este al momento de guardar me cree y me guarde una carpeta en cierta dirección ( C:\SistemaClientes\Basededatosclientes ) con el nombre del textbox1 y que al mismo tiempo me cree una hoja de excel con el mismo nombre de la carpeta o textbox1.
1 Respuesta
Respuesta de alberto chuc
1
A mi se me ocurre
Dim rutag As String
rutag = "C:\SistemaClientes\Basededatosclientes"
MkDir rutag & "\" & textbox1.Value 'esto hace la carpeta
rutag = rutag & "\" & textbox1.Value & "\"
ChDir rutag
ActiveWorkbook.SaveAs Filename:= _
rutag + textbox1.Value, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
