Red de conocimiento informático - Conocimiento sistemático - Por favor, dame un consejo: programación VBA para copiar la hoja de trabajo y guardarla como un libro con el nombre de la fecha de hoy.

Por favor, dame un consejo: programación VBA para copiar la hoja de trabajo y guardarla como un libro con el nombre de la fecha de hoy.

1. Copie la tabla "A" en el libro de trabajo actual

2 Cree un nuevo libro de trabajo y pegue el contenido de la tabla "A" en el nuevo libro de trabajo.

Establecer OrigWB = ThisWorkbook

Establecer DestWB = Workbooks.Add

Establecer ws = OrigWB.Sheets("A")

ws.Copy after:=DestWB.Sheets(1)

3. Asigne al nuevo libro el nombre de la fecha de hoy (por ejemplo, 2010-10-10)

4. libro de trabajo Guardar en la carpeta "Historial" de la unidad D

Application.DisplayAlerts = False

DestWB.SaveAs "D:\Documents" & "\" & "Test _ " & Format ( VBA.Date, "aaaa-mmm-dd")

Application.DisplayAlerts = True

5. Cerrar automáticamente el nuevo libro de trabajo

DestWB.Close<. /p> p>

Código completo:

Sub Macro2()

Establecer OrigWB = ThisWorkbook

Establecer DestWB = Workbooks.Add

Establecer ws = OrigWB.Sheets("ByPart")

ws.Copy after:=DestWB.Sheets(1)

Application.DisplayAlerts = False

DestWB.SaveAs "D:\Documents" & "\" & "Test _ " & Format(VBA.Date, "yyyy-mmm-dd")

Application.DisplayAlerts = True

DestWB.Close

Fin Sub