Экспорт/Импорт диапазона ячеек в текст и обратно

[gaurabhakta]

Доброго времени суток всем!
Столкнулся с задачей сохранения данных.
Есть необходимость регулярной выгрузки данных определенных ячеек в C:\MIDI\dadra_*.txt.
где * - всякий раз новое имя
Затем когда возникает необходимость - то импортировать данные снова на лист из C:\MIDI\dadra_*.txt
Желательно все реализовать с помощью 2-х кнопок: 1. Экспорт и 2. Импорт(см. файл)
Предполагается что лист будет защищен, но как я понял это не мешает отправке данных в файл.
Диапазоны ячеек для сохранения: Range ("B1:P21")
К примеру "Экспорт" можно так:

Private Sub CommandButton2_Click()
   Open "C:\MIDI\dadra_i.txt" For Output As #1
        Range("B1:P21").Copy
        With New DataObject
             .GetFromClipboard
             Print #1, Replace(.GetText(1), vbTab, "&")
        End With
        Application.CutCopyMode = False
   Close #1
End Sub

Как создать диалоговое окошко и выполнить обратную операцию "Импорт" также с диалоговым окном?
Хотелось бы при импорте проверку на соответствие по первой строчке dadra_*.txt

[doober]

Не знаю,правильно ли я вас понял.