Vraag : Pas het document van Excel aan aan waar het een kolom gebruikend Microsoft Access VBA bedraagt?

Gelieve te nemen nota van de volgende code waar ik een weg van een document geef en een vraag naar het uitvoer.  In kolom VE van Excel, wil ik de kolomresultaten bedragen en het plaatsen niet op de volgende rij maar sla eerder een rij over en zette de totalen op het volgende lijnpunt.  Het probleem voor me bepaalt waar die uitgevoerde vraag aan Excel zal beëindigen omdat in diverse tijden de laatste rij met zijn volledig aantal zal krimpen of grow.

So te geven gelieve me de codage VBA om me te laten tot geldige totaal van een kolom één rij na het vooraf maken ends.

Thank u!
" codeBody " 
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:

Public SubExcel_This (sQuery als Koord, sExcelFileName als Koord)
Op Fout GoTo Err_This

'Schemerige xlapp zoals uitblinken. Toepassing
'Schemerige wb als excel.workbook
'Schemerige ws als excel.worksheet

  Schemerige xlapp als Voorwerp
  Schemerige xlBook als Voorwerp
  Schemerige xlSheet als Voorwerp
  Schemerige rs als DAO.Recordset
  
  Reeks xlapp = CreateObject („Excel.Application“)
  Reeks xlBook = xlapp. Workbooks.Open (sExcelFileName)
  Reeks xlSheet = xlBook.Worksheets (1)

  Reeks rs = CurrentDb.OpenRecordset (sQuery)
  xlSheet.range („A2“) .copyfromrecordset rs
  
  xlapp. Zichtbaar = Waar
  
'
'Plaats xlSheet = niets
'Plaats xlBook = niets
'Plaats xlapp = niets
  
Exit_This:
  Sub van de uitgang
  
Err_This:
  Vraag Error_Action (vergis me, Err.description, „modECdatabases @ Excel_This“, Erl ())
  Vergis me = 0
  Hervat Exit_This

Beëindig Sub

Antwoord : Pas het document van Excel aan aan waar het een kolom gebruikend Microsoft Access VBA bedraagt?

Gebaseerd op dat resultaat, moeten er zijn iets in AE65535, misschien een verdwaalde ruimte.

Probeer dit:

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:

Openbare SubExcel_This (sQuery als Koord, sExcelFileName als Koord)
Op Fout GoTo Err_This

'  Schemerige xlapp zoals uitblinken. Toepassing
'  Schemerige wb als excel.workbook
'  Schemerige ws als excel.worksheet

  Schemerige xlapp als Voorwerp
  Schemerige xlBook als Voorwerp
  Schemerige xlSheet als Voorwerp
  Schemerige rs als DAO.Recordset
  Schemerige LastR zoals lang
  
  Reeks xlapp = CreateObject („Excel.Application“)
  Reeks xlBook = xlapp. Workbooks.Open (sExcelFileName)
  Reeks xlSheet = xlBook.Worksheets (1)

  Reeks rs = CurrentDb.OpenRecordset (sQuery)
  Met xlSheet
    . Waaier („2: “ &. Rows.Count). Schrap
    . Strek me („A2“) .copyfromrecordset uit rs
    LastR =. Cellen (. Rows.Count, „VE“). Eind (- 4162). Rij  'xlUp = -4162
    . Waaier („VE“ & LastR + 2) = „=SUM (AE2: VE“ & LastR &“) „
  Eind met
  
  xlapp. Zichtbaar = Waar
  
'
'  Plaats xlSheet = niets
'  Plaats xlBook = niets
'  Plaats xlapp = niets
  
Exit_This:
  Sub van de uitgang
  
Err_This:
  Vraag Error_Action (vergis me, Err.description, „modECdatabases @ Excel_This“, Erl ())
  Vergis me = 0
  Hervat Exit_This

Beëindig Sub
Andere oplossingen  
 
programming4us programming4us