Questione : Registrare il documento di Excel a dove ammonta ad una colonna using Microsoft Access VBA?

Notare prego il seguente codice dove dò un percorso di un documento ed esporto una domanda verso esso.  In colonna EA di Excel, voglio ammontare ai risultati della colonna e disporrlo non sulla fila seguente ma piuttosto saltare una fila e mettere i totali sulla linea articolo seguente.  Il problema per me sta determinando dove quella domanda esportatrice ad Excel si concluderà perché ai vari tempi l'ultima fila con il relativo numero completo ristringerà o grow.

So prego mi danno la codificazione di VBA per lasciarli rendere ai totali validi di una fila della colonna una dopo esso ends.

Thank voi in anticipo! class= > " libero " 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 secondario >Public " notpretty " (sQuery del id= " codeSnippet953245 " del
class= del

Risposta : Registrare il documento di Excel a dove ammonta ad una colonna using Microsoft Access VBA?

Sulla base di quel risultato, ci deve essere qualcosa in AE65535, forse in uno spazio esterno.

Provare questo:

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 secondario pubblico (sQuery come stringa, sExcelFileName come stringa)
Sull'errore Err_This di avanzamento

'  Xlapp fioco come eccellono. Applicazione
'  Wb fioco come excel.workbook
'  La WS fioca come excel.worksheet

  Xlapp fioco come oggetto
  xlBook fioco come oggetto
  xlSheet fioco come oggetto
  Rs fiochi come DAO.Recordset
  LastR fioco come lungamente
  
  Regolare il xlapp = CreateObject (“Excel.Application„)
  Regolare il xlBook = il xlapp. Workbooks.Open (sExcelFileName)
  Regolare il xlSheet = xlBook.Worksheets (1)

  Regolare i rs = CurrentDb.OpenRecordset (sQuery)
  Con xlSheet
    . Gamma (“2: „ &. Rows.Count). Cancellazione
    . Rs della gamma (“A2„) .copyfromrecordset
    LastR =. Cellule (. Rows.Count, “gli EA„). Estremità (- 4162). xlUp  di fila '= -4162
    . Gamma (“EA„ & LastR + 2) = “=SUM (AE2: Gli EA„ & LastR & ") “
  Estremità con
  
  xlapp. Visibile = allineare
  
'
'  Regolare il xlSheet = niente
'  Regolare il xlBook = niente
'  Regolare il xlapp = niente
  
Exit_This:
  Uscire il sommergibile
  
Err_This:
  Chiamata Error_Action (errano, Err.description, “modECdatabases @ Excel_This„, Erl ())
  Erra = 0
  Riassunto Exit_This

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us