VBNet - Форум - помогите пожалуйста!

Вопрос: помогите пожалуйста! Добавлено: 14.06.10 16:54

Автор вопроса: DEmoN

Ув. VBшники, помогите плииз!
есть модуль, написанный и работающий на шестерке, мне нужно перевеси его на .NET
модуль экспортирует данные из Автокада в Эксель

Public Module Module1
Attribute VB_Name = "Module1"

Sub AD_ExpData()
Dim I As short
Dim Obj_ As Object
Dim ObjPoint As AcadBlockReference
Dim S as Short
Dim AdoConn As Object
Dim fs As New Object
Dim TxtFile as VariantType
fs = CreateObject(Scripting.FileSystemObject)
Set TxtFile = fs.CreateTextFile("c:\AcadExportPoints.txt", True)
Kill ("C:\For_Import\Book1.xls")
FileCopy ("C:\For_Import\Book_templ.xls", "C:\For_Import\Book1.xls")
Set AdoConn = CreateObject("ADODB.Connection")
AdoConn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=For_Import"
AdoConn.Open
'AdoConn.Execute ("Delete * From " & Chr(34) & "EXP_ACAD$" & Chr(34))

For Each Obj_ In ActiveDocument.ModelSpace
    If TypeOf Obj_ Is AcadBlockReference Then
       Set ObjPoint = Obj_
       'MsgBox ObjPoint.InsertionPoint (0) & ";" & ObjPoint.InsertionPoint(1)
       S = ObjPoint.InsertionPoint(0) & ";" & ObjPoint.InsertionPoint(1) & ";" & ObjPoint.InsertionPoint(2)
       S = S & ";" & ObjPoint.Layer
       TxtFile.WriteLine S

       S = "Insert Into " & Chr(34) & "EXP_ACAD$" & Chr(34) & " (F7,F8,F9) " & " Values (" & ObjPoint.InsertionPoint(0) & "," & ObjPoint.InsertionPoint(1) & "," & ObjPoint.InsertionPoint(2) & ")"
       AdoConn.Execute (S)
    End If

Next

TxtFile.Close
msgbox("Данные экспортированны!")

End Sub
End Module

Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: PROgrammIST ICQ: 403099048 Вопросов: 22 Ответов: 94	Web-сайт: forum.quotedev.org.ru Профиль \| \| #1	Добавлено: 14.06.10 19:37
	Была у меня программка, которая переводила формы и модули 6 в .Нет. Поищи в гугле. Правда она платная, но я умудрился найти с кряком. Удачи! Ответить

Номер ответа: 2 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #2	Добавлено: 15.06.10 13:38
	crack.com, и тп. (обез с антивирусом и антишпионом и антихакером) или xeka.ru, google.ru, yandex.ru, rambler.ru Ответить

Номер ответа: 3 Автор ответа: gekko Вопросов: 39 Ответов: 127	Web-сайт: kalamfur.ru Профиль \| \| #3	Добавлено: 15.06.10 23:11
	О брат,давно я не был на митуе, а тут спамеры))) Ответить

Страница: 1 |