Добрый день! Подскажите, пожалуйста, как мне добавить объект для активной книги и для активного листа excel? Имеется следующий код:
...
Через vba я устанавливаю соответствие с другой программой (Golden Software Surfer), строю там объект(карту - ClassedPostMap) по книге excel (по 3 колонкам) и затем копирую ее обратно в excel. Мне необходимо в строке Set MapFrame = Shapes.AddClassedPostMap(DataFileName:="X:\EOL_report_R\test.xlsx") обратиться к книге excel не по конкретному пути как у меня и написано в коде, а к активной книге и к активному листу. Возможно ли это сделать в данном случае? Просто необходимо прогнать построение карт для нескольких листов для многих книг по циклу, поэтому обращаться к книге по конкретному пути было бы неудобно.
Код |
---|
Dim SurferApp As Object 'установка соответствия между переменной SurferApp и программой Surfer: Set SurferApp = CreateObject("Surfer.Application") SurferApp.Visible = True Dim Plot As Object Set Plot = SurferApp.Documents.Add(1) Dim Shapes As Object Set Shapes = Plot.Shapes Dim MapFrame As Object Set MapFrame = Shapes.AddClassedPostMap(DataFileName:="X:\EOL_report_R\test.xlsx") Dim ClassedPostLayer As Object Set ClassedPostLayer = MapFrame.Overlays(1) |
Через vba я устанавливаю соответствие с другой программой (Golden Software Surfer), строю там объект(карту - ClassedPostMap) по книге excel (по 3 колонкам) и затем копирую ее обратно в excel. Мне необходимо в строке Set MapFrame = Shapes.AddClassedPostMap(DataFileName:="X:\EOL_report_R\test.xlsx") обратиться к книге excel не по конкретному пути как у меня и написано в коде, а к активной книге и к активному листу. Возможно ли это сделать в данном случае? Просто необходимо прогнать построение карт для нескольких листов для многих книг по циклу, поэтому обращаться к книге по конкретному пути было бы неудобно.