Лист Excel сомневается в vbscripting - PullRequest
Новая
       48

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

0 голосов
/ 05 августа 2009

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

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

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

         objExcel.Quit

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

             **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

Ответы [ 2 ]

1 голос
/ 05 августа 2009

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

Нужно ли хранить ваши данные в элементах формы, или вы можете просто использовать функции электронной таблицы? Простая формула 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
...