Dynamiquement Créer Range VBA

Question

liaison tardive

essayant de créer dynamiquement des plages en utilisant ceci:

ws.Range(Cells(1, 1), Cells(q + 1, z + 1)).Value2 = xaRR 

cela fonctionne dans Excel comme un charme vba, mais l'accès ne cesse de me donner question. Il n'aime pas la partie des cellules. La chose est ennuyeux ceci ne me donne pas d'histoires

ws.Cells(1,1).Value = blah blah blah 

Quand j'essaie ceci:

 Dim oXL As Object: Dim wb As Object: Dim ws As Object: Dim rNg As Object: Dim cl As Object 
     Set wb = .Workbooks.Add 
     Set ws = wb.Sheets 
     Set rNg = ws.Range 
     Set cl = rNg.Cells 
     ws.rNg(cl(1, 1), cl(q + 1, z + 1)).Value2 = xaRR 

il est dit que RNG ne marche pas en charge cette propriété ou méthode.

Quelqu'un peut-il m'aider à voir le problème évident?

Answer 1

Votre ligne d'origine utilise une référence implicite à la feuille active. Dans Excel, cela fonctionne (mais c'est un bug si vous ne voulez pas utiliser la feuille active), mais dans Access ce sera une erreur. Qualifiez les cellules appellent à la référence de la feuille, pour un appel explicite:

Je suppose que ws est un objet Worksheet et non un objet Worksheets

ws.Range(ws.Cells(1, 1), ws.Cells(q + 1, z + 1)).Value2 = xaRR 

Ou dans votre deuxième exemple:

J'ai supprimé la variable Cells, et j'ai également substitué les séparateurs d'instruction : Dim pour les virgules. Les séparateurs d'instruction sont mauvais.

Votre variable ws est toutes les feuilles, donc je viens de saisir le premier, mais votre implémentation peut avoir besoin de varier.

Dim oXL As Object, wb As Object, ws As Object 
Set wb = .Workbooks.Add 
Set ws = wb.Sheets(1) 
ws.Range(ws.Cells(1, 1), ws.Cells(q + 1, z + 1)).Value2 = xaRR