Frage : Justieren Excel-Dokument auf, dem es auf eine Spalte using Microsoft Access VBA sich beläuft?

Den folgenden Code bitte merken, in dem ich einen Weg eines Dokuments gebe und eine Frage in sie exportiere.  In Spalte AE von Excel, möchte ich mich auf die Spaltenresultate belaufen und es nicht auf die folgende Reihe legen aber eine Reihe eher überspringen und die Gesamtmengen auf die folgende Linie Einzelteil einsetzen.  Das Problem für mich stellt fest, wo diese Exportfrage zu Excel beendet, weil zu den verschiedenen Zeiten die letzte Reihe mit seiner kompletten Zahl schrumpft, oder grow.

So mir die VBA Kodierung bitte geben, um mich gültigen Gesamtmengen einer Reihe der Spalte eine nach ihm ends.

Thank im Voraus bilden zu lassen Sie! 
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 VorExcel_This (sQuery als Schnur, sExcelFileName als Schnur)
Auf Störung Goto- Err_This

'Schwaches xlapp wie übertreffen. Anwendung
'Schwache WB als excel.workbook
'Schwaches WS als excel.worksheet

  Schwaches xlapp als Gegenstand
  Schwaches xlBook als Gegenstand
  Schwaches xlSheet als Gegenstand
  Schwache rs als DAO.Recordset
  
  Xlapp = CreateObject („Excel.Application“) einstellen
  xlBook = xlapp. Workbooks.Open (sExcelFileName) einstellen
  xlSheet = xlBook.Worksheets einstellen (1)

  Rs = CurrentDb.OpenRecordset (sQuery) einstellen
  xlSheet.range („A2“) .copyfromrecordset rs
  
  xlapp. Sichtbar = ausrichten
  
'
'xlSheet einstellen = nichts
'xlBook einstellen = nichts
'Xlapp einstellen = nichts
  
Exit_This:
  Unterseeboot herausnehmen
  
Err_This:
  Anruf Error_Action (, irren sich Err.description, „modECdatabases @ Excel_This“, Erl ())
  = irren sich 0
  Zusammenfassung Exit_This

Enden-Unterseeboot

Antwort : Justieren Excel-Dokument auf, dem es auf eine Spalte using Microsoft Access VBA sich beläuft?

Gegründet auf diesem Resultat, muss es etwas in AE65535, möglicherweise in einem Streuraum geben.

Dieses versuchen:

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:
6:
37:
38:
39:
40:
41:

Allgemeines VorExcel_This (sQuery als Schnur, sExcelFileName als Schnur)
Auf Störung Goto- Err_This

'  Schwaches xlapp wie übertreffen. Anwendung
'  Schwache WB als excel.workbook
'  Schwaches WS als excel.worksheet

  Schwaches xlapp als Gegenstand
  Schwaches xlBook als Gegenstand
  Schwaches xlSheet als Gegenstand
  Schwache rs als DAO.Recordset
  Schwaches LastR als lang
  
  Xlapp = CreateObject („Excel.Application“) einstellen
  xlBook = xlapp. Workbooks.Open (sExcelFileName) einstellen
  xlSheet = xlBook.Worksheets einstellen (1)

  Rs = CurrentDb.OpenRecordset (sQuery) einstellen
  Mit xlSheet
    . Strecke („2: “ u. Rows.Count). Löschung
    . Strecke („A2“) .copyfromrecordset rs
    LastR =. Zellen (. Rows.Count, „AE“). Ende (- 4162). Reihe  'xlUp = -4162
    . Strecke („AE“ u. LastR + 2) = „=SUM (AE2: AE“ u. LastR u. ") „
  Ende mit
  
  xlapp. Sichtbar = ausrichten
  
'
'  xlSheet einstellen = nichts
'  xlBook einstellen = nichts
'  Xlapp einstellen = nichts
  
Exit_This:
  Unterseeboot herausnehmen
  
Err_This:
  Anruf Error_Action (, irren sich Err.description, „modECdatabases @ Excel_This“, Erl ())
  = irren sich 0
  Zusammenfassung Exit_This

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us