Перевод макросов Excel 2007 для работы в Excel 2016

@Skreper · Регистрация: 27.02.2016

Author24 — интернет-сервис помощи студентам

Здравствуйте.
Перешли вынуждено на Офис 2016 и макросы созданные в Офисе 2007 для Excel перестали работать.
Проблема на поверхности, но не доходит как ее решить. Помогите пожалуйста.

@Hugo121 · 11.02.2020, 23:30

Ответ по ссылке из подвала страницы:
Макрос для загрузки картинок - работал в Excel 2013, но не работает в Excel 2016

@Skreper · 11.02.2020, 23:35 **[ТС]**

Спасибо. Видел, пока что-то не получается

@fever brain · 12.02.2020, 06:55

Сообщение от Skreper

пока что-то не получается

Исправь в декларированных функицях: вместо ... As Long >> ... As LongPtr

@Hugo121 · 12.02.2020, 12:27

Про типы тоже написано в первом ответе по ссылке.

@Skreper · 12.02.2020, 22:46 **[ТС]**

Пока ничего не получается.
Может вопрос в Windowsе, вместо 7-ки перешел на 10-ку. Попытался перекинуть shell32.dll из 7-ки в 10-ку, не разрешает.
Нашел какое-то решение сдесь http://forum.oszone.net/post-2766794.html но увы, пока ничего не выходит

@Hugo121 · 12.02.2020, 23:04

А говорят что получалось:

all I had to do was change lines of code like this:

Visual Basic

1
2

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

To This:

Visual Basic

#If VBA7 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If

@Skreper · 12.02.2020, 23:43 **[ТС]**

Не по теме:

Спасибо. Приболел немного, пойду в пятницу посмотрю что и как

@Skreper · 13.02.2020, 07:42 **[ТС]**

Не по теме:

Спасибо. Приболел немного, пойду в пятницу посмотрю что и как
А как удалить свое сообщение?

@Skreper · 14.02.2020, 17:54 **[ТС]**

Большое спасибо всем, особенно Hugo121, СПАСИБО.
Мучился вводить исправления вручную пока не вспомнил про Ctrl+C и Ctrl+V и все заработало. Ввел

Visual Basic

1
2

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Логично использовать переключение операционных систем, однако оказалось что VBA в Excel2016 не воспринимает операторы в русской транскрипции: Лист, Если, Или, ...

@viper-x · 17.02.2020, 08:35

Skreper, так FormulaLocal больше не работает?

@Skreper · 17.02.2020, 12:07 **[ТС]**

Работает. Уже все нормально. Но появилась еще проблема. Выскакивает:
Unable to get Object property of the OLEObject class
при

Visual Basic

1	p = Sh3.Shapes("B" & g).OLEFormat.Object.Object.Value

@fever brain · 23.02.2020, 19:36

Сообщение от Skreper

.Object.Object

один класс убери

@Skreper · 24.02.2020, 17:46 **[ТС]**

Проблема в другом. Excel 2016 (Windows 10) не видит CheckBox ActiveX созданные в Excel 2007 (Windows 7), а Excel 2007 (Windows 7) не видит CheckBox ActiveX созданные в Excel 2010 (Windows 10). Видимо какая-то нестыковка между ними.

В общем решил вопрос по простому. Заменил CheckBox на “*”, можно любой символ, букву (пробел (“”) лучше не использовать, не всегда пустая ячейка является пустой) и IFом определяю что вывести на печать

Ожидали что на новом ПК программа будет летать (для этого и купили), но увы, сбоит на ровном месте, больше чем на старом. При выполнении то вылетает что команды нет или что буфер пустой, то еще какая-то хрень, и в разных местах переноса в файл Wordа.

Visual Basic

  With wrdDoc
            .Bookmarks(tabl).Range.Paste  
            .Parent.Visible = True
         End With

Наверно какой-то другой метод использовать нужно. А какой не знаю.

@Skreper · 28.02.2020, 20:01 **[ТС]**

Не могу не раскрыть свое решение, вдруг кому-то в помощь.
В общем отказался от использование закладок в шаблонах Word, заменив их на {FIO1}, {FIO2}, ...{FIO30}
Работает как часики (с закладками были проблемы и в Ofis-е 2007 и 2010)

Visual Basic

For x=30
   ' ................. 
   If predmet = "Mex" Then fio = Sheets("Mex").Cells((r + ss + (g - 1) * s), 2) '.Copy
   If predmet = "Mex" Then dl = Sheets("Mex").Cells((r + ss + (g - 1) * s), 3) '.Copy
   tabl = "{" & "FIO" & r & "}"
   ct = "{" & "st" & r & "}"
   wrdDoc.Range.Find.Execute FindText:=ct, ReplaceWith:=dl, Replace:=2
   wrdDoc.Range.Find.Execute FindText:=tabl, ReplaceWith:=fio, Replace:=2  
 Next x

@Skreper 3 / 3 / 0 Регистрация: 27.02.2016 Сообщений: 82
		1
	Перевод макросов Excel 2007 для работы в Excel 2016 11.02.2020, 22:39. Показов 4292. Ответов 14 Метки нет (Все метки) Здравствуйте. Перешли вынуждено на Офис 2016 и макросы созданные в Офисе 2007 для Excel перестали работать. Проблема на поверхности, но не доходит как ее решить. Помогите пожалуйста. Миниатюры 0

@Hugo121 6953 / 2856 / 550 Регистрация: 19.10.2012 Сообщений: 8,737
	11.02.2020, 23:30	2
	Ответ по ссылке из подвала страницы: Макрос для загрузки картинок - работал в Excel 2013, но не работает в Excel 2016 2

@Skreper 3 / 3 / 0 Регистрация: 27.02.2016 Сообщений: 82
	11.02.2020, 23:35 [ТС]	3
	Спасибо. Видел, пока что-то не получается 0

@fever brain oh my god 1455 / 794 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	12.02.2020, 06:55	4
	Сообщение от Skreper пока что-то не получается Исправь в декларированных функицях: вместо ... As Long >> ... As LongPtr 2

@Hugo121 6953 / 2856 / 550 Регистрация: 19.10.2012 Сообщений: 8,737
	12.02.2020, 12:27	5
	Про типы тоже написано в первом ответе по ссылке. 0

@Skreper 3 / 3 / 0 Регистрация: 27.02.2016 Сообщений: 82
	12.02.2020, 22:46 [ТС]	6
	Пока ничего не получается. Может вопрос в Windowsе, вместо 7-ки перешел на 10-ку. Попытался перекинуть shell32.dll из 7-ки в 10-ку, не разрешает. Нашел какое-то решение сдесь http://forum.oszone.net/post-2766794.html но увы, пока ничего не выходит 0

@Skreper
	12.02.2020, 23:43 [ТС] #8
	Не по теме: Спасибо. Приболел немного, пойду в пятницу посмотрю что и как 0

@Skreper
	13.02.2020, 07:42 [ТС] #9
	Не по теме: Спасибо. Приболел немного, пойду в пятницу посмотрю что и как А как удалить свое сообщение? 0

@viper-x 65 / 22 / 7 Регистрация: 28.02.2018 Сообщений: 214
	17.02.2020, 08:35	11
	Skreper, так FormulaLocal больше не работает? 0

@fever brain oh my god 1455 / 794 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	23.02.2020, 19:36	13
	Сообщение от Skreper .Object.Object один класс убери 1

Перевод макросов Excel 2007 для работы в Excel 2016

Решение