continuar escribiendo en un excel ya abierto pero en otra hoja
Publicado por gabriel (4 intervenciones) el 02/11/2016 10:59:09
Buenos dias
Gracias de antemano
soy nuevo en todo esto y tengo el siguiente problema :
no se como continuar en otra hoja nueva que tengo hecha una plantilla y el excel esta abierto , he leido por hay que se tiene que activa la hoja ,pero no se como hacerlo
Gracias
Gracias de antemano
soy nuevo en todo esto y tengo el siguiente problema :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub exportar_Datagrid(DataGrid As DataGrid, n_Filas As Long)
On Error GoTo ErrSub
Dim i As Integer, j As Integer If n_Filas = 0 ThenMsgBox "No hay datos para exportar a excel": Exit Sub
Else
On Error Resume Next
Set Obj = GetObject(, "Excel.Application")
If Obj.workbooks.Count = 0 Then
Else
Set xlHoja = xlApp.Worksheets(“Hoja2”)
MsgBox ActiveSheet.NameObj_Hoja.Name = DataGrid.Columns.Item("nombre")
intMonth = Month(DataGrid.Columns.Item("fecha"))
Select Case intMonth
no se como continuar en otra hoja nueva que tengo hecha una plantilla y el excel esta abierto , he leido por hay que se tiene que activa la hoja ,pero no se como hacerlo
Gracias
Valora esta pregunta
0
