VBA - После обновления Microsoft Office не работают макросы / Visual Basic

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA - После обновления Microsoft Office не работают макросы

24 сообщений из 74, страница 3 из 3

все

VBA - После обновления Microsoft Office не работают макросы

#38679684

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

А если
SELECT 1 AS W
?

...

Рейтинг:

0 / 0

25.06.2014, 13:49

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679686

Crywolf

Гость

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

...

Рейтинг:

0 / 0

25.06.2014, 13:50

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679689

Crywolf

Гость

Shocker.ProА если
SELECT 1 AS W
?

та же ошибка.

strSQL = "SELECT 1 AS W"
rst.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
rst.Close

...

Рейтинг:

0 / 0

25.06.2014, 13:51

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679692

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.

Public Sub Test()
Dim rst as ADODB.Recordset
Dim cnn as ADODB.Connection
Dim SQL as String

On Error Goto Err_Debug


Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.Open "DSN=stat", "stat", "stat"

Set rst = New ADODB.Recordset
SQL = "SELECT 1 as fld FROM dual"
Set rst.ActiveConnection = cnn
rst.Open SQL, , adOpenStatic, adLockReadOnly
If Not (rst.BOF Or rs.EOF) Then
   MsgBox "OK"
Else
   MsgBox "no record"
End If

lb_out:
   Set rst = Nothing
   Set cnn = Nothing
Exit Sub

Err_Debug:
    Msgbox Err.Number & ": " & Err.Description
    Resume lb_out:
End Sub

выполните Test()

...

Рейтинг:

0 / 0

25.06.2014, 13:53

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679693

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

Код: vbnet

1.
2.

 Resume lb_out
End Sub

: выше двоеточие лишнее, опечатка

...

Рейтинг:

0 / 0

25.06.2014, 13:54

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679723

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

Код: vbnet

... Or rst.EOF) ...

ещё опечатка

...

Рейтинг:

0 / 0

25.06.2014, 14:09

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679727

Crywolf

Гость

Создать отдельный макрос и откомпилить?

...

Рейтинг:

0 / 0

25.06.2014, 14:14

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679729

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

создать отдельный модуль в книге и откомпилить и вызвать потом

...

Рейтинг:

0 / 0

25.06.2014, 14:15

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679741

Crywolf

Гость

Konst_Oneсоздать отдельный модуль в книге и откомпилить и вызвать потом

а как это сделать?)

...

Рейтинг:

0 / 0

25.06.2014, 14:20

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679745

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

открыть вкладку VBA и создать

...

Рейтинг:

0 / 0

25.06.2014, 14:21

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679768

Crywolf

Гость

Konst_Oneоткрыть вкладку VBA и создать

в excel? а где именно вкладка находится?

...

Рейтинг:

0 / 0

25.06.2014, 14:32

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679772

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

не знаю, у меня вашего экселя нет под рукой, поищите FAQ по экселю в гугле или на микрософте

...

Рейтинг:

0 / 0

25.06.2014, 14:33

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679818

Crywolf

Гость

Public Sub Test()
Dim rst As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim SQL As String

On Error GoTo Err_Debug

Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.Open "DSN=stat", "stat", "stat"

Set rst = New ADODB.Recordset
SQL = "SELECT 1 as fld FROM dual"
Set rst.ActiveConnection = cnn
rst.Open SQL, , adOpenStatic, adLockReadOnly
If Not (rst.BOF Or rst.EOF) Then
MsgBox "OK"
Else
MsgBox "no record"
End If

lb_out:
Set rst = Nothing
Set cnn = Nothing
Exit Sub

Err_Debug:
MsgBox Err.Number & ": " & Err.Description
Resume lb_out
End Sub

выдал табличку "ОК"

...

Рейтинг:

0 / 0

25.06.2014, 14:57

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679823

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

значит переписывайте свои макросы по этому образцу

...

Рейтинг:

0 / 0

25.06.2014, 14:58

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679865

Crywolf

Гость

Konst_Oneзначит переписывайте свои макросы по этому образцу

Кажется что-то получилось, я к сожалению не такой специалист в оракле как вы, вот скриншот. Ошибка другая.

...

Рейтинг:

0 / 0

25.06.2014, 15:14

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679869

Crywolf

Гость

Если убираю вот эту строку:
cnn.CursorLocation = adUseClient

То выскакивает ошибка про ODBC драйвер.

...

Рейтинг:

0 / 0

25.06.2014, 15:15

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679875

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.

...

Msgbox dd1

strSQL = ...

выведите свой параметр, у вас там похоже неверный формат данных

...

Рейтинг:

0 / 0

25.06.2014, 15:20

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679895

Crywolf

Гость

Konst_One

Код: vbnet

1.
2.
3.
4.
5.

...

Msgbox dd1

strSQL = ...

выведите свой параметр, у вас там похоже неверный формат данных

Подправил вот так:

Public Sub âîçíàãðàæäåíèÿ()
'
' âîçíàãðàæäåíèÿ Ìàêðîñ
' Ìàêðîñ çàïèñàí 10.03.2011 (u02635)
'
Dim rst As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim strSQL As String

Dim dd1 As Date
Dim dd2 As Date

dd1 = CDate("01.01.2010")
dd2 = CDate("31.01.2010")

Set rst = New ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.Open "DSN=stat", "stat", "stat"

strSQL = "SELECT 1 as fld FROM dual"
rst.Open strSQL, cnn, adOpenStatic, adLockReadOnly

MsgBox dd1
End Sub

Выдал 01.01.2010

...

Рейтинг:

0 / 0

25.06.2014, 15:26

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679901

Crywolf

Гость

получается ошибка в выборке? из-за этого ругался?

...

Рейтинг:

0 / 0

25.06.2014, 15:27

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679931

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

Код: sql

TO_DATE('2003/07/09', 'yyyy/mm/dd')

9 июля 2003

...

Рейтинг:

0 / 0

25.06.2014, 15:43

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679932

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

переписывайте свой оракловый запрос и задавайте правильный параметр

...

Рейтинг:

0 / 0

25.06.2014, 15:44

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679959

Crywolf

Гость

Konst_Oneпереписывайте свой оракловый запрос и задавайте правильный параметр

t.d_report >= to_date(" & Chr(39) & dd1 & Chr(39) & ") and t.d_report <= to_date(" & Chr(39) & dd2 & Chr(39) & ")

Ошибка здесь, ну как ее подправить понятия не имею)
Без этой строчки макрос компилится.

...

Рейтинг:

0 / 0

25.06.2014, 15:54

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38679999

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Dim d1 as String
Dim d2 as String


...

d1 = Year(dd1) & "/" & Right("0" & CStr(Month(dd1)), 2) & "/" & Right("0" & CStr(Day(dd1)), 2)
d2 = Year(dd2) & "/" & Right("0" & CStr(Month(dd2)), 2) & "/" & Right("0" & CStr(Day(dd2)), 2)

... 
t.d_report >= to_date(" & Chr(39) & d1 & Chr(39) & ", 'yyyy/mm/dd') and t.d_report <= to_date(" & Chr(39) & d2 & Chr(39) & ", 'yyyy/mm/dd')
...

...

Рейтинг:

0 / 0

25.06.2014, 16:16

| Ответить | Цитировать | Написать

VBA - После обновления Microsoft Office не работают макросы

#38680655

Crywolf

Гость

Благодарю за вашу помощь, макрос работает.

...

Рейтинг:

0 / 0

26.06.2014, 11:45

| Ответить | Цитировать | Написать

24 сообщений из 74, страница 3 из 3

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA - После обновления Microsoft Office не работают макросы

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=38679895&tid=2156294]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	161ms
get topic data:	10ms
get forum data:	3ms
get page messages:	53ms
get tp. blocked users:	1ms
others:	290ms

total:	548ms