Insertar una hoja en un archivo de excel con codigo
Publicado por Jose R (137 intervenciones) el 05/01/2021 19:11:39
Buen dia,
Espero sea muy Bueno este año 2021 para todos
Tengo el siguiente tema, explico
Como sabemos Access no esta muy completo en lo que a graficas se refiere, por lo que he optado por enviar informacion a excel y graficar ahi, tengo todo el codigo para hacerlo y funciona perfectamente.
Paso la informacion a una hoja y guardo el archivo en un folder de mi PC, pero me atore en, como puedo hacer para enviar todo la informacion a un solo archivo y ponerla en varias hojas?
Este es el codigo que uso desde un boton de un formulario:
Con esto, paso la informacion a un archivo de excel, se crea una hoja, se copia la informacion que tengo en access y se guarda
Lo que necesito es, que en este mismo archivo pueda anexar una segunda, tercera, cuarta, etc. hoja para guardar mas informacion, ponerle nombre a cada hoja y asi no tener tantos archivos
Y anduve buscando y no encontre nada en la WEB
de ante mano, muchas gracias
Espero sea muy Bueno este año 2021 para todos
Tengo el siguiente tema, explico
Como sabemos Access no esta muy completo en lo que a graficas se refiere, por lo que he optado por enviar informacion a excel y graficar ahi, tengo todo el codigo para hacerlo y funciona perfectamente.
Paso la informacion a una hoja y guardo el archivo en un folder de mi PC, pero me atore en, como puedo hacer para enviar todo la informacion a un solo archivo y ponerla en varias hojas?
Este es el codigo que uso desde un boton de un formulario:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
' Make Excel visible through the Application object.ExcelSheet.Application.Visible = True
' Place some text in the first cell of the sheet.r = 2tS = DCount("*", "q1kwestemes")
DoCmd.GoToRecord , , acFirst
' Poenr los titulos a las columnasExcelSheet.Application.Cells(1, 1).Value = "Anio"
ExcelSheet.Application.Cells(1, 2).Value = "Mes"
ExcelSheet.Application.Cells(1, 3).Value = "ConsumoTotalmW"
ExcelSheet.Application.Cells(1, 4).Value = "NomMes"
Do While r <= tS + 1 '+ DCount("*", "Q18SalidasmxReporteMes")
On Error GoTo SALIR
ExcelSheet.Application.Cells(r, 1).Value = Me.Anio
ExcelSheet.Application.Cells(r, 2).Value = Me.Mes
ExcelSheet.Application.Cells(r, 3).Value = Me.ConsumoTotalActualmW
ExcelSheet.Application.Cells(r, 4).Value = Me.NomMes
DoCmd.GoToRecord , , acNext
r = r + 1
Loop
SALIR:ExcelSheet.SaveAs "c:\software\requisiciones\CFE.Xlsx"
' Close Excel with the Quit method on the Application object.ExcelSheet.Application.Quit
' Release the object variable.Set ExcelSheet = NothingCon esto, paso la informacion a un archivo de excel, se crea una hoja, se copia la informacion que tengo en access y se guarda
Lo que necesito es, que en este mismo archivo pueda anexar una segunda, tercera, cuarta, etc. hoja para guardar mas informacion, ponerle nombre a cada hoja y asi no tener tantos archivos
Y anduve buscando y no encontre nada en la WEB
de ante mano, muchas gracias
Valora esta pregunta
0