ник: snipe
чета вход длинный
Dim dfg As Object
Dim asd As String
asd = CurrentProject.Path
Set dfg = CreateObject("Excel.Application")
dfg.Workbooks.Open (asd & "\Файл1.xls")
dfg.Visible = True
dfg.Worksheets("Лист1").Select
dfg.cells(1, 1) = "Привет мир"
да и действия там однотипные цикл можно применить