Question : Ajuster le document d'Excel sur où il se monte à une colonne using Microsoft Access VBA ?

Veuillez noter le code suivant où je donne un chemin d'un document et exporte une question vers elle.  Dans la colonne EA d'Excel, je veux me monter aux résultats de colonne et les placer pas sur la prochaine rangée mais sauter plutôt une rangée et mettre les totaux sur la prochaine ligne article.  Le problème pour moi détermine où cette question exportée exceler finira parce qu'à de diverses heures la dernière rangée avec son nombre complet se rétrécira ou grow.

So me donnent svp le codage de VBA pour me laisser faire à des totaux valides d'une rangée de la colonne une après eux ends.

Thank vous à l'avance ! class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 secondaire >Public " notpretty " (sQuery de l'id= " codeSnippet953245 " de
class= de

Réponse : Ajuster le document d'Excel sur où il se monte à une colonne using Microsoft Access VBA ?

Basé sur ce résultat, il doit y avoir quelque chose dans AE65535, peut-être un espace parasite.

Essayer ceci :

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 secondaire public (sQuery comme corde, sExcelFileName comme corde)
Sur l'erreur Err_This GoTo

'  Faible xlapp comme excellent. Application
'  Faible wb comme excel.workbook
Le '  faible WS comme excel.worksheet

  Faible xlapp comme objet
  Faible xlBook comme objet
  Faible xlSheet comme objet
  Faibles rs comme DAO.Recordset
  Faible LastR en tant que longtemps
  
  Placer le xlapp = le CreateObject (« Excel.Application »)
  Placer le xlBook = le xlapp. Workbooks.Open (le sExcelFileName)
  Placer le xlSheet = le xlBook.Worksheets (1)

  Placer les rs = le CurrentDb.OpenRecordset (le sQuery)
  Avec le xlSheet
    . Gamme (« 2 :  » et. Rows.Count). Suppression
    . Rs de la gamme (« A2 ») .copyfromrecordset
    LastR =. Cellules (. Rows.Count, les « EA »). Extrémité (- 4162). xlUp  de rangée '= -4162
    . Gamme (« EA » et LastR + 2) = « =SUM (AE2 : Les EA » et le LastR et ") « 
  Extrémité avec
  
  xlapp. Évident = rectifier
  
'
'  Placer le xlSheet = rien
'  Placer le xlBook = rien
'  Placer le xlapp = rien
  
Exit_This :
  Sortir le sous-marin
  
Err_This :
  Appel Error_Action (errent, Err.description, des « modECdatabases @ Excel_This », Erl ())
  Errent = 0
  Résumé Exit_This

Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us