Форум на Краснотурьинск.ру | |
/cgi-bin/yabb2/YaBB.pl
Технический >> Программное обеспечение >> макросы с 2003 на 2007 /cgi-bin/yabb2/YaBB.pl?num=1297351083 Сообщение написано Лесенок в 10.02.2011 :: 20:18:03 |
Заголовок: макросы с 2003 на 2007 Создано Лесенок в 10.02.2011 :: 20:18:03
Кто может подсказать как сделать что бы макросы написанные на 93 офисе работали в 2007 ?
|
Заголовок: Re: макросы с 2003 на 2007 Создано Vzlomshik в 11.02.2011 :: 00:18:06 |
Заголовок: Re: макросы с 2003 на 2007 Создано Лесенок в 11.02.2011 :: 08:22:09
Помогите пожалуста. на работе попросили переделать макрос с 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 пожалуста, кому не трудно... помогите |
Заголовок: Re: макросы с 2003 на 2007 Создано Vzlomshik в 11.02.2011 :: 10:26:50
@ Лесенок
попробуйте задать этот же вопрос на форуме по макросам. |
Заголовок: Re: макросы с 2003 на 2007 Создано remx в 11.02.2011 :: 15:29:17 Лесенок записан в 11.02.2011 :: 08:22:09:
ты же ее и создала не? в этом куске кода никуда не надо такую строку вписывать. вообще было бы не плохо конкретизировать что именно у тебя не работает или как в той теме по ссылке выше просто запросами задалбливает? зы. "плавки и анализы" это из оперы "наша сила в плавках"?)) |
Заголовок: Re: макросы с 2003 на 2007 Создано Лесенок в 11.02.2011 :: 16:44:33 remx записан в 11.02.2011 :: 15:29:17:
это из оперы начальник что то хочет а чего сам не знает |
Форум на Краснотурьинск.ру » Powered by YaBB 2.5 AE YaBB © 2000-2011. Все права защищены. |