| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA Autocad 2016 как заполнить подшивку данными из Excel?

VBA Autocad 2016 как заполнить подшивку данными из Excel?

Ответ
Поиск в этой теме
Непрочитано 20.11.2016, 22:15
VBA Autocad 2016 как заполнить подшивку данными из Excel?
KomProekt
 
Регистрация: 12.08.2016
Сообщений: 59

Здравствуйте!

Есть задача: из таблицы Excel нужно взять данные и внести их в подшивку Акадовскую (желательно создать новую подшивку с заданными свойствами, заполненными из Excel). Какими методами это можно сделать? Или удобней использовать не VBA, а что то другое для этой задачи (например .Net) ?

Спасибо!
Просмотров: 15063
 
Автор темы   Непрочитано 24.11.2016, 00:53
#21
KomProekt


 
Регистрация: 12.08.2016
Сообщений: 59


Цитата:
Сообщение от Сергей812 Посмотреть сообщение
Что значит, не открывается?
Код:
[Выделить все]
Set oSheetDb = oSheetSetMgr.OpenDatabase("d:\Подшивка.dst", False)
что в переменной oSheetDb после прохода этой строчки при пошаговой отладке?
Выдает ошибку: Type mismatch (Error 13)
Что бы это могло значить?
KomProekt вне форума  
 
Непрочитано 24.11.2016, 01:10
#22
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,004


несоответствие данных, проверяйте - имя файла скорее всего
Сергей812 вне форума  
 
Непрочитано 24.11.2016, 09:57
#23
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Сообщений: 5,091


Цитата:
Сообщение от KomProekt Посмотреть сообщение
Третий день в поисках, пока без успеха
Выложен в теме по второй ссылке, которая приведена в #2
kp+ вне форума  
 
Непрочитано 24.11.2016, 11:21
#24
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,004


там информация к размышлению, а ТС ищет готовое решение
Цитата:
Сообщение от KomProekt Посмотреть сообщение
а на VBA сложнее, судя по разрозненному материалу и ноль законченных кодов?)
Сергей812 вне форума  
 
Непрочитано 24.11.2016, 11:45
#25
trir


 
Регистрация: 18.12.2010
Сообщений: 5,047


в очередной раз убедился, что сесть и сделать самому - гораздо быстрее чем искать готовое
trir вне форума  
 
Автор темы   Непрочитано 26.11.2016, 00:57
#26
KomProekt


 
Регистрация: 12.08.2016
Сообщений: 59


Цитата:
Сообщение от trir Посмотреть сообщение
в очередной раз убедился, что сесть и сделать самому - гораздо быстрее чем искать готовое
Это точно! Но когда не можешь сам, нужно спросить у других: Как?
KomProekt вне форума  
 
Непрочитано 26.11.2016, 01:11
#27
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,004


и в чем на этот раз затруднение?)
Сергей812 вне форума  
 
Автор темы   Непрочитано 26.11.2016, 16:09
#28
KomProekt


 
Регистрация: 12.08.2016
Сообщений: 59


Цитата:
Сообщение от Сергей812 Посмотреть сообщение
и в чем на этот раз затруднение?)
Простенький код из основ:

Код:
[Выделить все]
Public Sub OpenSheetSet()
'' Create a Reference to the Sheet Set Manager Object   Dim oSheetSetMgr As AcSmSheetSetMgr
 Set oSheetSetMgr = New AcSmSheetSetMgr
 
 ' Open a Sheet Set file
  Dim oSheetDb As AcSmDatabase
  Set oSheetDb = oSheetSetMgr.OpenDatabase("h:\1.dst", False)
 
End Sub
Выдаёт ошибку:

Object required (Error 424)

Все проверил, файл на месте, название верное, в чем дело?
KomProekt вне форума  
 
Непрочитано 26.11.2016, 16:19
#29
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,004


и на какой строчке возникает ошибка? Контроль объявления переменных включен в VBA? Пошагово проходите и смотрите переменные - чем они инициализируются и инициализируются ли вообще

----- добавлено через ~3 мин. -----
и на самом файле подшивки не висит в свойствах - "файл скачен с другого компьютера..." и вообще как с правами доступа на него
Сергей812 вне форума  
 
Непрочитано 26.11.2016, 16:23
#30
trir


 
Регистрация: 18.12.2010
Сообщений: 5,047


в reference добави AcSmComponents Type Library?
что в oSheetSetMgr?
trir вне форума  
 
Автор темы   Непрочитано 26.11.2016, 23:07
#31
KomProekt


 
Регистрация: 12.08.2016
Сообщений: 59


Цитата:
Сообщение от trir Посмотреть сообщение
в reference добави AcSmComponents Type Library?
что в oSheetSetMgr?
AcSmComponents19 1.0 Type Library - добавлена
Print screen в приложении.

права не ограничены, подшивка создана мною, контроль переменных выключен...
Что то тут не так!
Миниатюры
Нажмите на изображение для увеличения
Название: Безымянный.png
Просмотров: 53
Размер:	23.8 Кб
ID:	179815  
KomProekt вне форума  
 
Непрочитано 26.11.2016, 23:14
#32
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,004


VBA в акаде - это одно большое не так, как ушел в 2013 с него в Net|Interrop - и забыл о его глюках, особенно в 64 битных версиях)

Попробуйте объявить
Код:
[Выделить все]
Dim oSheetDb As Variant
и посмотрите, что будет в переменной и вылетит ли ошибка
Сергей812 вне форума  
 
Непрочитано 26.11.2016, 23:16
#33
trir


 
Регистрация: 18.12.2010
Сообщений: 5,047


Цитата:
You can view the Sheet Set Manager objects in the AutoCAD VBA integrated development environment (VBA IDE) and in Microsoft Visual Studio. To view the objects using the Object Browser in the VBA IDE, add a reference to the AcSmComponents20 1.0 Type Library. The file, AcSmComponents20.tlb, is in the following folder: C:\Program Files\Common Files\Autodesk Shared.
http://help.autodesk.com/view/ACD/20...4-8C909B989F24

Внимательно! читайте документацию
trir вне форума  
 
Автор темы   Непрочитано 26.11.2016, 23:45
#34
KomProekt


 
Регистрация: 12.08.2016
Сообщений: 59


Цитата:
Сообщение от trir Посмотреть сообщение
http://help.autodesk.com/view/ACD/20...4-8C909B989F24

Внимательно! читайте документацию
Запустил на другом компе с 20 библиотекой, результат тот , та же ошибка Object required (Error 424) на том же месте

----- добавлено через ~4 мин. -----
Цитата:
Сообщение от Сергей812 Посмотреть сообщение
VBA в акаде - это одно большое не так, как ушел в 2013 с него в Net|Interrop - и забыл о его глюках, особенно в 64 битных версиях)

Попробуйте объявить
Код:
[Выделить все]
Dim oSheetDb As Variant
и посмотрите, что будет в переменной и вылетит ли ошибка
выдал ошибку дубликата объявления переменной
KomProekt вне форума  
 
Непрочитано 27.11.2016, 00:02
#35
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,004


Цитата:
Сообщение от KomProekt Посмотреть сообщение
выдал ошибку дубликата объявления переменной
старое определение переменной закомментируйте
Сергей812 вне форума  
 
Автор темы   Непрочитано 27.11.2016, 00:09
#36
KomProekt


 
Регистрация: 12.08.2016
Сообщений: 59


Цитата:
Сообщение от Сергей812 Посмотреть сообщение
старое определение переменной закомментируйте
Всмысле? Это сарказм?
KomProekt вне форума  
 
Непрочитано 27.11.2016, 00:20
#37
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,004


если дубликат переменной - значит оставили старое определение и добавили строчку с тем же именем переменной, но тип Variant. Какие еще могут быть варианты?
Сергей812 вне форума  
 
Автор темы   Непрочитано 27.11.2016, 16:59
#38
KomProekt


 
Регистрация: 12.08.2016
Сообщений: 59


Цитата:
Сообщение от Сергей812 Посмотреть сообщение
если дубликат переменной - значит оставили старое определение и добавили строчку с тем же именем переменной, но тип Variant. Какие еще могут быть варианты?
убрал старое определение, Variant оставил, один хрен та же ошибка 424.
KomProekt вне форума  
 
Непрочитано 27.11.2016, 17:08
#39
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,004


на какой строчке вылетает то-создание ссылки на менеджер подшивок или при попытке открыть саму подшивку? Что в переменных? Умеете смотреть значения переменных в редакторе VBA?
Сергей812 вне форума  
 
Автор темы   Непрочитано 28.11.2016, 00:31
#40
KomProekt


 
Регистрация: 12.08.2016
Сообщений: 59


Цитата:
Сообщение от Сергей812 Посмотреть сообщение
на какой строчке вылетает то-создание ссылки на менеджер подшивок или при попытке открыть саму подшивку? Что в переменных? Умеете смотреть значения переменных в редакторе VBA?
все так же, вылетает на последней строке, скрин в #31.
KomProekt вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA Autocad 2016 как заполнить подшивку данными из Excel?

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Связка AutoCAD с Excel через командную строку. raffnec AutoCAD 9 19.09.2016 10:54
Заполнение размеров в Autocad из Excel zenija2007 AutoCAD 9 18.09.2015 12:53
Как добавить префикс к однострочному тексту в AutoCAD 2016 andrey_artphoto AutoCAD 5 27.05.2015 17:11
Привязка таблицы Excel к чертежу AutoCad Teo-one Программирование 5 22.03.2014 00:11
Таблица из Excel в AutoCAD Elbrus AutoCAD 56 11.06.2012 11:41