Обновление таблицы. Работа с формами

[Tavrida]

Здравствуйте, уважаемые формучане!

Моя проблема состоит в следующем.
Имеется исходная таблица (Поля: код, номенклатура, ед.изм. , преиод, склад, поставщик, количество, сумма)
Каждый месяц данные этой таблицы должны обновляться.
Исходная таблица не всегда является активной при начале работы.
Исходная таблица и таблица-источник обновления находятся в разных книгах.

Я создаю форму. На ней TextBox1 и 3 кнопки:
Выбрать, Проверить и Обновить.
Кнопка Обновить недоступна при начале работы с формой.

При нажатии кнопки Выбрать должен выбирать файл-источник обновления и его имя
записывается в Textbox
С этом я более-менее разобралась:

  Private Sub SelectUpdateSource_Click()
   fileToOpen = Application _
    .GetOpenFilename("Excel Files (*.xls), *.xls")
  If fileToOpen <> False Then
      TextBox1.Text = fileToOpen
  Else: MsgBox "Файл не выбран!"
  End If
End Sub

Дальше сложнее:
При нажатии кнопки "Проверить" осуществляется проверка идентичности структур
источника обновления и обновляемой таблицы.
То есть, как я понимаю, можно проверить идентичность первые строки этих таблиц (названия полей).

Если структуры таблиц идентичны, то кнопка Обновить становится доступной.
Если нет, то сообщение MsgBox "Структуры таблицы источника-обновления и обновляемой таблицы неидентичны!", vbCritical, "Ошибка!" и кнопка обновить остается недоступной.

Принажатии на кнопку Обновить в исходную таблицу переносятся УНИКАЛЬНЫЕ (не содержащиеся в ней)
строки из таблицы источника-обновления.

Пожалуйста, помогите, очень поджимают сроки.
Заранее спасибо!!!

[Tavrida]

Было бы здорово, если бы Вы помогли мне разобраться, как
можно устроить Цикл For для сравнения таблиц из разных книг по первой строке.
И как только уникальные строки скопировать в конец таблицы.

[IgorGO]

приблизительно так:

Function IsEqual(wb1 As String, wb2 As String) As Boolean
  Dim c As Integer
  IsEqual = False
  For c = 1 To 10
    If Workbooks(wb1).ActiveSheet.Cells(1, c) <> Workbooks(wb2).ActiveSheet.Cells(1, c) Then Exit Function

  Next
  IsEqual = True
End Function

wb1, wb2 - имена книг, в которых приисходит сравнение 10 первых ячеек первой строки, активных листов.

[Tavrida]

Спасибо, что быстро среагировали!

Я не умею работать с листами и книгами.
Можете объяснить, мне сделать так, чтобы
сравнивался конкретный лист книги1 (например C:\Книга1.xls лист "Лист1") и лист книги 2 (D:\Книга2.xls лист "Лист2")

Листы книг не активны

[IgorGO]

1. Обе книги должны быть открыты (в одной из них будет находиться даный макрос)

Function IsEqual As Boolean
  Dim c As Integer
  IsEqual = False
  For c = 1 To 10
    If Workbooks("Книга1.xls").Sheets("Лист1").Cells(1, c) <> Workbooks("Книга2.xls").Sheets("Лист2").Cells(1, c) Then Exit Function
  Next
  IsEqual = True
End Function

[Tavrida]

Почему-то не получается:
Имя 1й таблицы у меня хранится в TextEdit

Задаю функцию

Function IsEqual() As Boolean
  Dim c As Integer
  IsEqual = False
  For c = 1 To 10
    If Workbooks(TextBox1.Text).Sheets("TDSheet").Cells(1, c) <> Workbooks("C:\Table.xls").Sheets("Suppliers").Cells(1, c) Then Exit Function
  Next
  IsEqual = True
End Function

Потом пишу в процедуре нажатия кнопки:

     flagOpen = False
    'Проверяем, открыт ли файл Таблицы-источника обновления
    
    For Each TableSource In Workbooks
        If TableSource.Name = TextBox1.Text Then flagOpen = True: Exit For
    Next
 
    'Если файл "Таблица" не открыт, открываем его
    
    If flagOpen = False Then
        Set TableSource = Workbooks.Open(TextBox1.Text)
    End If

 If IsEqual = False Then
        MsgBox "Неидентичны!", vbCritical, "Ошибка!"
    Else
        MsgBox "Идентичны!"
    End If

Почему-то все время выводит неидентичны=(
Что не так?

[Tavrida]

Мне кажется я что-то не так делаю с именами книг и листов. Помогите, пожалуйста!

[Tavrida]

Может быть я непонятно объясняю, могу я что-то уточнить?

[mchip]

Выложите пожалуйста весь пример

[Tavrida]

Прикрепляю пример таблиц и формы