| Author |
 Topic  |
|
|
lantari
Russia
20 Posts |
 Posted - 10/28/2003 : 11:02:58
|
| Подскажите, пожалуйста, как из Visio из процедуры на VBA получить доступ к листу в книге Excel. |
|
|
WiseChen
Russia
12 Posts |
Posted - 10/28/2003 : 15:41:10
|
quote:
Originally posted by lantari
Подскажите, пожалуйста, как из Visio из процедуры на VBA получить доступ к листу в книге Excel.
Так же интересует обратная проблема
Генерация файла Excel из Визио |
 |
|
|
lantari
Russia
20 Posts |
Posted - 10/29/2003 : 07:38:56
|
Разобрался сам
TO WiseChen:
Sub ReadExcel()
Dim ExcelObject As Object
Set ExcelObject = CreateObject("Excel.Application")
ExcelObject.Workbooks.Add ' Добавляем новую книгу
ExcelObject.Workbooks.Open FileName:="C:\Work\Opis.xls" ' Открываем файл
ExcelObject.Visible = True ' делаем excel видимым
ExcelObject.Range("A1", "A1").Value = "Test:"
ExcelObject.Range("A1", "A1").HorizontalAlignment = 1
ExcelObject.Range("A1", "A1").VerticalAlignment = 2
ExcelObject.Range("A1", "A1").WrapText = 1
' ExcelObject.Quit ' для закрытия excel
End Sub
Соответственно можно только открыть какойто файл или только создать пустую книгу. Остальные команды и форматы записи управления Excelем можно узнать используя запись макросов в самом Excel, а затем посмотрев текст в редакторе VBA.
P.S. К большому сожалению в Visio нет подобной записи макросов.
 |
|
|
|
Digitall
Russia
389 Posts |
Posted - 10/30/2003 : 07:33:37
|
quote:
Originally posted by lantari
Остальные команды и форматы записи управления Excelем можно узнать используя запись макросов в самом Excel, а затем посмотрев текст в редакторе VBA.
P.S. К большому сожалению в Visio нет подобной записи макросов.
В Visio 2003 есть. |
|
|
| |
Topic |
|
|
|
All Forums
Как получить данные из книги Excel