doutes de la feuille Excel dans VBScripting

Question

Je crée un fichier Excel comme indiqué ci-dessous strFileName = « c: \ Test.xls »

  Set objExcel = CreateObject("Excel.Application") 
     objExcel.Visible = True 

     Set objWorkbook = objExcel.Workbooks.Add() 
     objWorkbook.SaveAs(strFileName) 

     objExcel.Quit 

Maintenant, après quelques manipulations de données i renseigner certaines valeurs dans la feuille Excel manuellement feuille1 et feuille2 de la même feuille Excel. Je serais heureux si quelqu'un pouvait tel moi comment comparer deux valeurs dans deux feuilles différentes de la même feuille de excelk Pour exemple: sheet1 a

   **Executables**    **checkbox** 
       E1        yes 
       E2        No 
       E3        yes 

et sheet2 a Exécutables Nombre de paramètres INPUT1 Entrée 2 E1
Envoyer 2 4 {} ENTRER Put 2 Input.xls {} ENTRER Envoyer 2 4 {{ENTRER}} ENTRER
maintenant, je veux que mon vbscript shud recherche dans la feuille 1 pour chaque oui et venir ici et la recherche dans sheet2.How ferais-je une recherche comparitive sur sheet1 et sheet2 dans le même fichiers Excel feuille

 Thanks 
     Maddy 

Answer 1

Est-ce que vos données doivent être stockées dans des éléments de forme, ou pouvez-vous simplement utiliser les fonctions de tableur ? Une simple formule VLookup compare deux feuilles, mais ne peut rechercher que des données contenues dans des cellules.

 SHEET 1 
    Boy  Age 
1 Joe  13 
2 Jimmy 12 
3 Jack 27 

Dans la 2ème feuille, utilisez la formule suivante:

=if(vlookup(a1,'[Sheet 1.xlsx]Sheet1'!$A$1:$B$2,2,false)=a2, "Same", "Different") 

    SHEET 2 
    Boy  Age Formula 
1 Joe  14 Different 
2 Jimmy 12 Same 
3 Jack 27.5 Different 

Answer 2

Qu'en est-il en utilisant deux objets de feuille pour comparer les valeurs
Ce comparera chaque cellule sheet1 à la même cellule dans sheet2.

Set objExcel = CreateObject("Excel.Application") 
Set objWorkbook = objExcel.Workbooks.Open("C:\Test.xls") 
Set objSheet1 = objExcel.ActiveWorkbook.Worksheets(1) 
Set objSheet2 = objExcel.ActiveWorkbook.Worksheets(2) 

For i = 1 To objSheet1.UsedRange.Columns.Count 
    For j = 1 To objSheet1.UsedRange.Rows.Count 
     if (objSheet1.Cells(j, i).Value = objSheet2.Cells(j,i).Value) Then 
      'Equal do something 
     else 
      'Not Equal do something 
     End IF 
    Next 
Next 

objExcel.Quit 
Set objSheet2 = Nothing 
Set objSheet1 = Nothing 
Set objWorkbook = Nothing 
Set objExcel = Nothing