Cuestión : ¿Ajustar el documento de Excel a donde suma una columna usar Microsoft Access VBA?

Observar por favor el código siguiente donde doy una trayectoria de un documento y exporto una pregunta a ella.  En la columna AE de Excel, quiero sumar los resultados de la columna y ponerlos no en la fila siguiente pero saltar algo una fila y poner los totales en la línea artículo siguiente.  ¡El problema para mí está determinando dónde esa pregunta exportada a Excel terminará porque en las varias horas la fila pasada con su número completo se encogerá o grow.

So por favor me dan la codificación de VBA para dejarme hacer totales válidos de una fila de la columna una después de ellos ends.

Thank usted por adelantado! class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
class= Excel_This secundario >Public " notpretty " (sQuery del id= " codeSnippet953245 " del
class= del

Respuesta : ¿Ajustar el documento de Excel a donde suma una columna usar Microsoft Access VBA?

De acuerdo con ese resultado, debe haber algo en AE65535, quizás un espacio perdido.

Intentar esto:

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:

Excel_This secundario público (sQuery como secuencia, sExcelFileName como secuencia)
En el error Err_This indicado

'  Xlapp dévil como sobresalen. Uso
'  Wb dévil como excel.workbook
'  WS dévil como excel.worksheet

  Xlapp dévil como objeto
  xlBook dévil como objeto
  xlSheet dévil como objeto
  Rs déviles como DAO.Recordset
  LastR dévil como de largo
  
  Fijar el xlapp = CreateObject (“Excel.Application”)
  Fijar el xlBook = el xlapp. Workbooks.Open (el sExcelFileName)
  Fijar el xlSheet = xlBook.Worksheets (1)

  Fijar los rs = CurrentDb.OpenRecordset (el sQuery)
  Con el xlSheet
    . Gama (“2: ” y. Rows.Count). Cancelación
    . Rs de la gama (“A2”) .copyfromrecordset
    LastR =. Células (. Rows.Count, “AE”). Extremo (- 4162). xlUp  de la fila '= -4162
    . Gama (“AE” y LastR + 2) = “=SUM (AE2: AE” y LastR y ") “
  Extremo con
  
  xlapp. Visible = verdad
  
'
'  Fijar el xlSheet = nada
'  Fijar el xlBook = nada
'  Fijar el xlapp = nada
  
Exit_This:
  Salir el submarino
  
Err_This:
  Llamada Error_Action (yerran, Err.description, los “modECdatabases @ Excel_This”, Erl ())
  Yerra = 0
  Curriculum vitae Exit_This

Submarino del extremo
Otras soluciones  
 
programming4us programming4us