• 👏 Bienvenido a nuestra comunidad Excel

    ¿Todavía no estás registrado? 😲

    Registrate gratis aquí y podrás:

    💪 Hacer preguntas a los expertos
    ⬇️ Descargar ejemplos y plantillas
    🏅 
    Acceder a contenidos premium

Cómo creo una carpeta nueva y un archivo nuevo

edwguzcas

New member
Cómo creo una carpeta nueva y un archivo nuevo (nombre en celda) cada vez que inicie un nuevo mes. tengo esto. copiar una hoja de mi archivo principal a un libro todos los días, el nombre de la hoja es el numero del día ejemplo "6" si es 6 de enero.
lo que necesito es crear una nueva carpeta cada ves que comience un nuevo mes.

Sub TRTRTR()
'
' TRTRTR Macro
'Set T1 = WorksheetFunction
Set T2 = WorksheetFunction '
dia = Range("T1").Text
mes = Range("T2").Text


Set fso = CreateObject("Scripting.FileSystemObject")

ruta = ActiveWorkbook.Path

Range("T2").Select

Sheets("CI TRAFIGURA").Select
Sheets("CI TRAFIGURA").Copy
Sheets("CI TRAFIGURA").Select
Sheets("CI TRAFIGURA").Name = Range("AH1").Value

Do While Not IsEmpty(ActiveCell)



If Not fso.FolderExists(ruta & "\" & ActiveCell.Value) Then

fso.CreateFolder (ruta & "\" & ActiveCell.Value)

End If

Loop
ActiveWorkbook.SaveAs Filename:= _
"F:\Files\Drive\JAGUEY\INFORMES\Reportes Excel\julio\Informe TRAFIGURASS.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

ActiveWorkbook.Save

End Sub
 

Adrian

Well-known member
Hola!
Este Código te puede dar alguna idea
Código:
Sub CrearCarpetas()
If Dir("C:\MiCarpeta\", vbDirectory) = "" Then
  MkDir "C:\MiCarpeta\"
  MsgBox "Se creó la carpeta", 64, ""
Else
  MsgBox "La carpeta ya existe", 64, ""
End If
End Sub

O bien:
Código:
Sub CrearCarpetas()
If Dir(ThisWorkbook.Path & "\MiCarpeta", vbDirectory) = "" Then
  MkDir ThisWorkbook.Path & "\MiCarpeta"
  MsgBox "Se creó la carpeta", 64, ""
Else
  MsgBox "La carpeta ya existe", 64, ""
End If
End Sub
 
Arriba