excel - sheets - ¿Cómo nombro una hoja de cálculo automáticamente, haciendo referencia a dos celdas?

nombre de hoja en celda excel

Question

Acabo de terminar de escribir una macro spiffy para generar informes automáticamente. Funciona bien, pero lo necesito para nombrar automáticamente la hoja de cálculo de acuerdo con los datos en dos celdas.

Esencialmente, esta macro crea una nueva hoja de cálculo, copia la información y crea las tablas dinámicas relevantes que se requieren mensualmente.

Como parte de esto, he creado un panel para generar el informe con instrucciones y un rango de fechas con el que se relaciona el informe. Actualmente crea la hoja de cálculo " NUEVO INFORME ". ¿Hay alguna forma de crear la nueva hoja de cálculo y nombrarla de forma automática según las líneas de "Informe 01.01.15 a 01.02.15"?

Tengo el intervalo de fechas como dos celdas separadas, y sé que tendré que asegurarme de que el intervalo de fechas sea uno que use caracteres permitidos (es decir, 01.01.15 en lugar de 01/01/15). ¿Es correcto decir que hay una manera de decirle al usuario que ha puesto las fechas con los separadores incorrectos?

Answer 1

Option Explicit
Sub SaveAs()
Dim FileName As String
Dim FilePath As String
Dim FName As String
FilePath = "C:/Temp"
FileName = Sheets("Sheet1").Range("A1").Text
FName = Sheets("Sheet1").Range("B1").Text
ThisWorkbook.SaveAs FileName:=FilePath & "/" & FileName & FName
End Sub 

Para guardarlo en la fecha de hoy

Dim sSave As String
sSave = "Reports " & Format(Date, "dd-mm-yyyy")

O mañana fecha

"Reports" & Format(Date + 1, "dd-mm-yyyy")

Para el formato de archivo Ver ejemplos

ThisWorkbook.SaveAs Filename:=FilePath, fileformat:=52 

Estos son los principales formatos de archivo en Excel 2007-2013

51 = xlOpenXMLWorkbook (without macro''s in 2007-2013, xlsx)
52 = xlOpenXMLWorkbookMacroEnabled (with or without macro''s in 2007-2013, xlsm)
50 = xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro''s, xlsb)
56 = xlExcel8 (97-2003 format in Excel 2007-2013, xls)
*Or maybe you want to save the one worksheet workbook to csv, txt or prn.*
".csv": FileFormatNum = 6
".txt": FileFormatNum = -4158
".prn": FileFormatNum = 36

Para guardar solo una hoja como libro nuevo, debe copiar la hoja antes de guardarla

Option Explicit
Sub SaveAs()
Dim Sht As Worksheet
Dim FileName As String
Dim FilePath As String
FilePath = "C:/Temp"
FileName = Sheets("Sheet1").Range("A1").Text
Set Sht = ActiveWorkbook.Sheets("Sheet1")
Sht.Copy
ActiveWorkbook.SaveAs FileName:=FilePath & "/" & FileName
End Sub

Para guardar varias hojas como libro de trabajo nuevo, use Sheets(Array("Sheet1", "Sheet2")).Copy

Option Explicit
Sub SaveAs()
Dim Sht As Worksheet
Dim Book As Workbook
Dim FileName As String
Dim FilePath As String
FilePath = "C:/Temp"
FileName = Sheets("Sheet1").Range("A1").Text
Set Book = ActiveWorkbook
With Book
.Sheets(Array("Sheet1", "Sheet2")).Copy
End With
ActiveWorkbook.SaveAs FileName:=FilePath & "/" & FileName
End Sub