Лист Excel сомневается в vbscripting

Question

Я создаю файл Excel, как показано ниже strFileName = "c:\test.xls"

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

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

         objExcel.Quit

Теперь, после некоторых манипуляций с данными, я вручную заполняю некоторые значения в листе Excel в sheet1 и sheet2 того же листа Excel. Я был бы рад, если бы кто-нибудь мог сказать мне, как сравнить два значения в двух разных листах одного листа ExcelK. Например:

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

а лист2 имеет Исполняемые файлы Количество параметров input1 Input 2 E1
Отправить 2 4 {ENTER} Положить 2 Input.xls {ENTER} Отправить 2 4 {ENTER} {ENTER}
Теперь я хочу, чтобы мой VBScript шуд поиска в листе 1 для каждого да, а затем прийти сюда и искать в sheet2.Как я бы сделать сравнительный поиск на sheet1 и sheet2 в тех же файлах Excel лист

        Thanks
        Maddy   

Answer 1

Как насчет использования двух объектов листа для сравнения значений
Это позволит сравнить каждую ячейку в sheet1 с той же ячейкой в ​​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 

Answer 2

Ваши данные должны храниться в элементах формы, или вы можете просто использовать функции электронной таблицы? Простая формула VLookup сравнивает два листа, но может искать только данные, содержащиеся в ячейках.

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

На втором листе используйте следующую формулу:

 =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