All Forums
 Категория Visio
 Форум Вопросы и ответы
 visio VBA & excel
Author Previous Topic Topic Next Topic  

fafnir

13 Posts
Posted - 01/10/2005 :  15:09:56
Вопрос таков:
у меня в Excele есть таблица данных(координат),по которой я хочу построить сетку(соединить линиями).
Как перебросить их в Visio VB,занести в массив внутри программы.Как написать такую функцию?
Помогите пожалуйста.

Tumanov

Russia
1198 Posts
Posted - 01/10/2005 :  15:57:08
Похожий вопрос был в форуме. Примерно так должно быть и в Вашем случае, только вместо записи в ячейки Excel нужно будет читать из них.
Цитирую:

Разобрался сам
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.
Go to Top of Page
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)