⇢ Помогите переделать из VB на Delphi пожалуйста???
Помогите переделать из VB на Delphi пожалуйста??? Голова не варит. Руководитель сказал надо сделать на delphi.
Sub svod()
'********************** Блок 1 **************************
Dim path As String
Dim SvodSheet As String
Dim RazrabSheet As String
Dim SvodFile As String
Dim MFile(2) As String
Dim MSheet(2) As String
Dim Buf As Integer
Dim W As Workbook
Dim ff As Integer
Dim i As Integer
Dim j As Integer
'********************** Блок 2 **************************
path = "D:\Программы\задание\"
SvodFile = "itog.xls"
SvodSheet = "itog_sheet"
RazrabSheet = "razrab_sheet"
MFile(1) = "file21.xls"
MFile(2) = "file22.xls"
MSheet(1) = "sheet11"
MSheet(2) = "sheet12"
'********************** Блок 3 **************************
Workbooks(SvodFile).Worksheets(SvodSheet).Activate
Range("A2:B3").Select
Selection.ClearContents
Workbooks(SvodFile).Worksheets(RazrabSheet).Activate
Range("B2:E3").Select
Selection.ClearContents
'********************** Блок 4 **************************
MsgBox "Проверяем открыты ли наши файлы"
ff = 0
For Each W In Workbooks
For i = 1 To 2
If W.Name = MFile(i) Then
MsgBox "Файл " & MFile(i) & " уже открыт"
ff = ff + 1
End If
Next i
Next
If ff = 2 Then
MsgBox "Все файлы открыты"
Else
MsgBox "Открываем файлы"
For i = 1 To 2
StrFile = Dir(path + MFile(i))
If StrFile = "" Then
MsgBox "Не могу найти файл: " & path & MFile(i)
Exit Sub
Else
Workbooks.Open Filename:=path + MFile(i)
End If
Next i
End If
'********************** Блок 5 **************************
MsgBox "Мы начинаем свод файлов"
For j = 1 To 2
For i = 1 To 2
Buf = 0
For k = 1 To 2
Buf = Buf + Workbooks(MFile(k)).Worksheets(MSheet(k)).Cells(i + 1, j).Value
Next k
Workbooks(SvodFile).Worksheets(SvodSheet).Cells(i + 1, j).Value = Buf
Next i
Next j
'********************** Блок 6 **************************
Workbooks(SvodFile).Worksheets(RazrabSheet).Activate
For k = 1 To 2
For j = 1 To 2
For i = 1 To 2
Cells(k + 1, i + 1 + 2 * (j - 1)) = Workbooks(MFile(k)).Worksheets(MSheet(k)).Cells(i + 1, j).Value
Next i
Next j
Next k
'********************** Блок 7 **************************
For i = 1 To 2
Workbooks(MFile(i)).Close SaveChanges:=False
Next i
End Sub