Как в ABAP можно определить язык (тип интерфейса) приложения MS Office?

DFH

Как в ABAP определить версию приложения MS Office (русская, английская или немецкая)?
В частности при работе с Excel есть проблема определения конкретного листа (Лист1, Sheet1, Blatt1 и т. д.)

Jelena

Application.International(xlCountryCode) - см. полный ответ здесь. Это вопрос не ABAP, а скорее VBA программирования.

Но я бы постаралась не использовать"Sheet1", а обращаться по индексу:

Code:

Worksheets(1).Visible = False

Источник

DFH

Jelena написала:

Application.International(xlCountryCode) - см. полный ответ здесь. Это вопрос не ABAP, а скорее VBA программирования.

Но я бы постаралась не использовать"Sheet1", а обращаться по индексу:

Code:

Worksheets(1).Visible = False

Источник

Спасибо Елена, но с VBA проблем нет. Надо в ABAP программе перед экспортом данных в шаблон знать имя страницы в Excele.

__Gennady

В visual basic редакторе есть прекрасная справка. Надо ее открыть, вбить в поиск "object model" и получите то, о чем в ABAPе можно только мечтать.
Там без труда поймете как что вытрясти из Excel

Gustav

Думаю, что самым простым путем будет прочитать имя листа во временном скрытом инстансе Excel

Code:

 
Sub GetSheetName()
    Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")
    MsgBox "Имя первого листа: " & xlApp.Workbooks.Add.Worksheets(1).Name
    xlApp.Quit
End Sub

Jelena

DFH написал(а):

Спасибо Елена, но с VBA проблем нет. Надо в ABAP программе перед экспортом данных в шаблон знать имя страницы в Excele.

Ну так OLE программирование в ABAPе использует те же самые объекты и прочая, что доступны в VBA проектах в самом Excel. Как уже правильно подсказали, можно справкой непосредственно в VB/VBA пользоваться.

Parazit

DFH написал(а):

Спасибо Елена, но с VBA проблем нет. Надо в ABAP программе перед экспортом данных в шаблон знать имя страницы в Excele.

Самое простое - задать имя листа в шаблоне таким, каким нужно. А вообще, имя листа не нужно для вывода в Excel, можно обращаться через именованные RANGE.

SYS

Или использовать регистр

Code:

DATA: lv_language   TYPE  i.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>REGISTRY_GET_DWORD_VALUE
  EXPORTING
      root  = CL_GUI_FRONTEND_SERVICES=>HKEY_CURRENT_USER
      key   = 'Software\Microsoft\Shared'
      value = 'OfficeUILanguage'
  IMPORTING
      reg_value = lv_language.

CALL METHOD CL_GUI_CFW=>FLUSH.

CASE lv_language
  WHEN 1031.  Write 'German'.
  WHEN 1033.  Write 'English'.
  WHEN 1049.  Write 'Russian'.
  WHEN OTHERS.  "<Коды языков можно найти в enum MsoLanguageID используя VBA в Excel>
ENDCASE.

Gustav

Parazit написал:

А вообще, имя листа не нужно для вывода в Excel, можно обращаться через именованные RANGE.

Только в том случае, если в рабочей книге нет больше диапазона с таким же именем. Ведь имена бывают уровня книги и уровня листа. И если имя (уровня листа) определено на одном листе, а вы стоите на другом, то вы не сможете сослаться на этот диапазон, не указав имени первого листа:

Code:

Range("Лист1!МойДиапазон").Value = 1234

NickS

Если поможет, то в оригинале (VBA) это выглядит так
Dim langv As Single
'''' определим язык офиса
langv = Application.LanguageSettings.LanguageID(1)
Перевести на ABAP это пара пустяков

Правила форума

Как в ABAP можно определить язык (тип интерфейса) приложения MS Office?

Кто сейчас на конференции