Проблемы с базой данных

[СтаниславАВ]

Добрый день. Новичок в изучении макросов. Может кто подскажет.

Option Explicit
Public shHome As Integer
Public rowH As Integer 

Public Sub InitPublicVars()
   Set shHome = Workbooks("Репо (облигации).xls").Worksheets("Банки").Range("A2:C200").Value
   With shHome.UsedRange
      rowH = .Rows.Count
   End With
End Sub

Public Sub DeletePublicVars()
   Set shHome = Nothing
End Sub

Проблемы возникли ссылкой на базу данных Set shHome = Workbooks("Репо (облигации).xls").Worksheets("Банки ").Range("A2:C200").Value. Выдает 91 ошибку.
Спасибо, если поможете.

[IgorGO]

пробуйте так:
Public Sub InitPublicVars()
Set shHome = Workbooks("Репо (облигации).xls").Worksheets("Банки")
With shHome.UsedRange
rowH = .Rows.Count
End With
End Sub

или так:
Public Sub InitPublicVars()
With Workbooks("Репо (облигации).xls").Worksheets("Банки").UsedRange
rowH = .Rows.Count
End With
End Sub

ладно, Вы в синтаксисе путаетесь... но зачем писать
"Банки ". Вы думаете это одно и то же что
"Банки"

[VictorM]

Новичок в изучении макросов

В таком случае, на будущее, прислушайтесь к IgorGO

но зачем писать "Банки ". Вы думаете это одно и то же что Банки"

И настоятельный совет, опять же, на будущее, старайтесь избегать всевозможных символов и пробелов в именах книги и рабочих листов, были замечены проблемы.
Репо (облигации) например, правильнее было бы написать Репо_облигации или РепоОблигации

[СтаниславАВ]

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

пробуйте так:
Public Sub InitPublicVars()
Set shHome = Workbooks("Репо (облигации).xls").Worksheets("Банки")
With shHome.UsedRange
rowH = .Rows.Count
End With
End Sub

или так:
Public Sub InitPublicVars()
With Workbooks("Репо (облигации).xls").Worksheets("Банки").UsedRange
rowH = .Rows.Count
End With
End Sub

ладно, Вы в синтаксисе путаетесь... но зачем писать
"Банки ". Вы думаете это одно и то же что
"Банки"

Спасибо. Но все равно сообщает об ошибке.

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

В таком случае, на будущее, прислушайтесь к IgorGO

И настоятельный совет, опять же, на будущее, старайтесь избегать всевозможных символов и пробелов в именах книги и рабочих листов, были замечены проблемы.
Репо (облигации) например, правильнее было бы написать Репо_облигации или РепоОблигации

Спасибо. Не помогло к сожалению. В оригинале макрос начинался с Public shHome As Worksheet, а я исправил на Public shHome As Integer. Но в оригинале тоже ошибку выдаёт.

[IgorGO]

и этот?

Public Sub InitPublicVars()
With Workbooks("Репо (облигации).xls").Worksheets("Банки").UsedRange
rowH = .Rows.Count
End With
End Sub

(второй из предложенных)

[СтаниславАВ]

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

и этот?

Public Sub InitPublicVars()
With Workbooks("Репо (облигации).xls").Worksheets("Банки").UsedRange
rowH = .Rows.Count
End With
End Sub

(второй из предложенных)

Ага. Оба перепробывал. Еще пробывал:

Public Sub InitPublicVars()
Set shHome = Workbooks("Репо (облигации).xls").Worksheets("Банки").Range("A2:C200").Value
With shHome.UsedRange
rowH = .Rows.Count
End With
End Sub

Public Sub InitPublicVars()
Set shHome = Workbooks("Репо (облигации).xls").Worksheets("Банки").Range("A2:C200")
With shHome.UsedRange
rowH = .Rows.Count
End With
End Sub

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

[IgorGO]

это
"Репо (облигации).xls"
открыто, когда работает макрос?

[СтаниславАВ]

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

это
"Репо (облигации).xls"
открыто, когда работает макрос?

Да открыто.

[VictorM]

У меня второй макрос IgorGO работает!
вот этот

Public Sub InitPublicVars()
With Workbooks("Репо (облигации).xls").Worksheets("Банки").UsedRange
rowH = .Rows.Count
End With
End Sub

rowH = 1786.
так?

[СтаниславАВ]

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

это
"Репо (облигации).xls"
открыто, когда работает макрос?

После нажатия на кнопку "Для всех банков" должна появится такая форма: