Кто может подсказать как сделать что бы макросы написанные на 93 офисе  работали в 2007 ?

Помогите пожалуста. на работе попросили переделать макрос с 2003 на 2007, сама не когда не сталкивалась с этим... нашла тему на вашем форуме , но не поняла куда надо быол вписывать эту строчку...

вот код:
Option Explicit

Public Const FoxDBFS As String = "C:\SERTIF\TRANS"
Public dbs As Database
Public rst As Recordset

Function Book_Init()
Dim sheet As Worksheet
Set sheet = ActiveSheet
If Dir(FoxDBFS & "\AUNIF.DBF") <> "" Then
If MsgBox("Обновить данные плавок и анализов?", 36) = vbYes Then
Show_Unif1
End If
End If
sheet.Activate
ActiveCell.Activate
End Function

Private Sub Show_Unif1()
Dim lis As Worksheet
Dim kk As Integer
Dim nn As Integer

If Dir(FoxDBFS & "\AUNIF.DBF") = "" Then
Exit Sub
End If
Set dbs = DBEngine.Workspaces(0) _
.OpenDatabase(FoxDBFS, 0, 1, "FoxPro 2.5")
Set rst = dbs.OpenRecordset("AUNIF", dbOpenTable)

Set lis = ActiveSheet

kk = 1
nn = 6
With rst
Do While Not .EOF
If kk < 33 Then Worksheets("Стр.2").Activate
If kk > 32 And kk < 65 Then Worksheets("Стр.3").Activate
If kk > 64 And kk < 97 Then Worksheets("Стр.4").Activate
If kk > 96 And kk < 128 Then Worksheets("Стр.5").Activate
'-- Вывод данных на лист:
ActiveSheet.Cells(nn, 3).Value = kk
ActiveSheet.Cells(nn, 2).Value = !Plavka
ActiveSheet.Cells(nn, 4).Value = IIf(!Massa > 0, !Massa, "")
ActiveSheet.Cells(nn, 5).Value = IIf(!Si_u > 0, !Si_u, "")
ActiveSheet.Cells(nn, 6).Value = IIf(!Fe_u > 0, !Fe_u, "")
ActiveSheet.Cells(nn, 7).Value = IIf(!Cu_u > 0, !Cu_u, "")
ActiveSheet.Cells(nn, 8).Value = IIf(!Mn_u > 0, !Mn_u, "")
ActiveSheet.Cells(nn, 9).Value = IIf(!Mg_u > 0, !Mg_u, "")
ActiveSheet.Cells(nn, 10).Value = IIf(!Zn_u > 0, !Zn_u, "")
ActiveSheet.Cells(nn, 11).Value = IIf(!Ga_u > 0, !Ga_u, "")
ActiveSheet.Cells(nn, 12).Value = IIf(!Ti_u > 0, !Ti_u, "")
ActiveSheet.Cells(nn, 13).Value = IIf(!V_u > 0, !V_u, "")
ActiveSheet.Cells(nn, 14).Value = IIf(!Cr_u > 0, !Cr_u, "")
ActiveSheet.Cells(nn, 15).Value = IIf(!Pb_u > 0, !Pb_u, "")
ActiveSheet.Cells(nn, 16).Value = IIf(!Na_u > 0, !Na_u, "")
ActiveSheet.Cells(nn, 17).Value = IIf(!As_u > 0, !As_u, "")
ActiveSheet.Cells(nn, 18).Value = IIf(!Li_u > 0, !Li_u, "")
kk = kk + 1
nn = nn + 1
If nn > 37 Then nn = 6
.MoveNext
If !Si_u = 0 Then Exit Do
Loop
End With

rst.Close
dbs.Close

End Sub

и второй модуль
Sub Вставка_простая()
'
' Вставка_простая Макрос
' Макрос записан 30.12.2004 (Парфентьев)
'
' Сочетание клавиш: Ctrl+m
'
ActiveSheet.PasteSpecial Format:="Текст", Link:=False, DisplayAsIcon:= _
False
End Sub

пожалуста, кому не трудно... помогите

Лесенок писал(а) 11.02.2011 :: 08:22:09:

ты же ее и создала не?

в этом куске кода никуда не надо такую строку вписывать.
вообще было бы не плохо конкретизировать что именно у тебя не работает или как в той теме по ссылке выше просто запросами задалбливает?

зы. "плавки и анализы" это из оперы "наша сила в плавках"?))