Просто любопытство касаемо [A1]="Hello" в Excel...

[zHackLeX]

Доброго времени суток всем экспертам, собсно сабж...
Просто интересно, как это вообще возможно?
Ведь не патчили же язык особым образом специально для excel?

[VVitafresh]

Не совсем понятно, о чем речь...

[GSerg]

Почему же, совершенно понятно, о чём речь...
Как точно это сделано, не скажу, но маппится, скорее всего, параметром для Application.Cells(), потому что и само application "необязательное", и cells у него дефолтовый метод.

[VVitafresh]

После ответа GSerg стало понятно, о чем речь.

[KL]

В отличие от GSerg, мне не совсем ясно о чем речь, но если о том, почему синтаксис [A1] возвращает объект Range, то насколько мне известно, синтаксис [...]

- по своей сути функция
- по свойствам практически полностью идентичен функции Evaluate(), только принимает формулу не в виде текстовой строки.
- скорее всего использует тот же мотор, что и формулы на листе прописанный в Си.
- также как и формулы на листе способен возвращать значения, массивы или ссылки, ср.:
MsgBox [A1].Address
x=[{1,2,3,4}]: msgbox x(4)
MsgBox [A1*2]
- мимоходом: свойство Range, также способно интерпретировать формулы, но только если они возвращают ссылку, напр.:
MsgBox Range("INDEX(A1:A10,5)").Address

Но если вопрос в том, почему значение "Hello" присваивается без указания соответствующей проперти, то GSerg уже практически ответил: у объекта Range проперть по-умолчанию Value

[zHackLeX]

Спасибо за разъяснение)
Специально для екселя [ ] переопределены?
Ведь квадратным скобкам и без того было применение...

[KL]

Ведь квадратным скобкам и без того было применение...

Три (с половиной) встречных вопроса:

1) Где им было другое применение? В VBA?
2) Какое применение?
3) Можно пример?

[dormouse]

только в акцессе для упоминания длинных имён объектов на русском языке и с пробелами (жуткое сочетание)

[tyomitch]

KL, в VBA они применяются для указания имён, содержащих недопустимые символы (например те же пробелы), либо совпадающих с зарезервированными. Обычно при использовании TLB, в которых заданы такие нехорошие имена.

Пример без TLB:

Код: Выделить всё

Private Enum Sample
    [First Value]
    [1337 v41u3]
    [='"*()]
End Enum


[KL]

только в акцессе для упоминания длинных имён объектов на русском языке и с пробелами (жуткое сочетание)

А можно взглянуть как это в коде выглядит? А то я в Access лет 10 как не программировал. Помню только, что использовал "brackets" ([]) для имен таблиц при написании "expressions" для Query, SQL и для макросов. Но это, по-моему, для VBA текстовая строка.

[tyomitch]

Такой пример прокатит?

Код: Выделить всё

Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
rs.Fields.Append "1337 f!31d", vbString
rs.Open
rs.AddNew
rs![1337 f!31d] = "привет"


[KL]

KL, в VBA они применяются для указания имён, содержащих недопустимые символы (например те же пробелы), либо совпадающих с зарезервированными. Обычно при использовании TLB, в которых заданы такие нехорошие имена.

Пример без TLB:

Код: Выделить всё

Private Enum Sample
    [First Value]
    [1337 v41u3]
    [='"*()]
End Enum


А-ааа! Тады ой! Никогда не приходилось сталкиваться - издержки постоянного программирования в англ. версиях Office Возможно принцип действия здесь тот же, что и [A1], [MyNamedRange], [2+2], [[name.xls]Sheet1!A1] и т.д., но не возьмусь утверждать (???)

[KL]

Такой пример прокатит?

Код: Выделить всё

Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
rs.Fields.Append "1337 f!31d", vbString
rs.Open
rs.AddNew
rs![1337 f!31d] = "привет"


tyomitch, совершенно ясно, что ты пишешь быстрее меня Мне уже твой первый пример прокатил. Пасип. Но этот хорош тем, что напомнил мне о том, что я сам делал не раз, но как-то даже не сопоставил. Хотя синтаксис здесь заметно отличается.

[zHackLeX]

[[name.xls]Sheet1!A1]

Ужас однако...
(не работал толком в МИФе, поэтому удивляюсь...)
С точки зрения языка - и компилятора - что означает эта инструкция?
Особенность ли это языка, или есть способ ввернуть что-то
такое в VB, в контексте какого-нть класса?

[KL]

[[name.xls]Sheet1!A1]

Ужас однако...
(не работал толком в МИФе, поэтому удивляюсь...)
С точки зрения языка - и компилятора - что означает эта инструкция?
Особенность ли это языка, или есть способ ввернуть что-то
такое в VB, в контексте какого-нть класса?

Данная "функция", как ты уже подметил, принадлежит библиотеке Excel. C точки зрения Excel, как я уже сказал, это означает:

Код: Выделить всё

    Evaluate("[name.xls]Sheet1!A1")
    'при этом файл name.xls должен быть открыт

или полнее

Код: Выделить всё

    Application.Evaluate("[name.xls]Sheet1!A1")

т.е. расчет заданной формулы.

Скорее всего в VB надо будет сначала задать объект Excel.Application, а уж потом использовать что-то типа

Код: Выделить всё

    Dim appXL As Excel.Application
    MsgBox appXL.[[name.xls]Sheet1!A1]

хотя я этого и не пробовал

[tyomitch]

Я пробовал. Не робит.

[KL]

Я пробовал. Не робит.

Я вот попробовал след. код в VBA из-под PowerPoint (VB у меня не установлен), предварительно создав ссылку на библиотеку Excel, и все работает:

Код: Выделить всё

Sub test()
    Dim oXLapp As Excel.Application
    Dim oXLwb As Excel.Workbook
   
    Set oXLapp = CreateObject("Excel.Application")
    Set oXLwb = oXLapp.Workbooks.Open("h:\name.xls")
   
    MsgBox oXLapp.[[name.xls]Sheet1!A1]
   
    oXLwb.Close False
    Set oXLwb = Nothing
    oXLapp.Quit
    Set oXLapp = Nothing
End Sub

(!!!) файл должен быть открыт и в нем должен существовать лист "Sheet1".

[tyomitch]

(!!!) файл должен быть открыт

Ага, я этим от невнимательности пренебрёг

Работает, собственно, даже с таким синтаксисом:

Код: Выделить всё

With Excel.Application
    .Workbooks.Add
    .Visible = True
End With
[A1] = "Hello!"


Проверял из VB6.

[KL]

Работает, собственно, даже с таким синтаксисом:

Код: Выделить всё

With Excel.Application
    .Workbooks.Add
    .Visible = True
End With
[A1] = "Hello!"


Проверял из VB6.

Наверное в этом случае по умолчанию берется активное приложение

[zHackLeX]

А самому в VB создать класс, к которому можно будет вот так наворачивать в квадратных скобках, можно?

[tyomitch]

Нет. Как минимум, потребуется доработка TLB напильником, чтобы убрать с интерфейса атрибут nonextensible.

[ANDLL]

Вроде это ему не мешает, в excel'е у интерфейса _Global он то же стоит
Даже dispid -5(кстати, что это значит?) задать можно.
Проблема вроде в том, что у метода lcid-параметр, а вот этого уже бейсик переварить в собственном классе не сможет

[tyomitch]

Ну и при чём тут _Global?

[ANDLL]

Ну когда ты пишешь скажем Worksheet.XXX вызываются свойство Worksheet класса _Global а не Application.
Чтото мне подсказывает, что в случае с [a1] то же вызывается метод класса _Global

[ANDLL]

само application "необязательное",

То есть "необзяательный" это класс _Global а не Application. Это такой скрытый класс

[tyomitch]

Ага, сдаюсь. Ты прав.

[tyomitch]

Проблема вроде в том, что у метода lcid-параметр, а вот этого уже бейсик переварить в собственном классе не сможет

Кстати, оказалось, что этого и не надо.
Работает и так.
Ура.

-5 -- это DISPID_EVALUATE

[zHackLeX]

Прикольно однако...
Прёт...

Код: Выделить всё

Class Class1
  Attribute Evaluate.VB_UserMemId = -5
  Public Function Evaluate(x As String)
    Evaluate = x
  End Function
End Class

...
Private Sub Form_Load()
    Dim a As Object
    Set a = New Class1
    x = a.[Ag]
    MsgBox x
End Sub

[tyomitch]

1) да, что и демонстрируют примеры выше
2) да

[zHackLeX]

Кстати... здесь обязательно писать a.[Ag]
Оператор присоединения With не пашет...
Можно как-то привести к виду "Msgbox [Ag]"?

Потому что мне удалось использовать только As Object...