Преобразование vba в vb6 и создание .dll - инструкции - подсказки, советы и риски

@Том

Хорошо, я на самом деле изучаю это вместе с вами, так что давайте,

Код VB.Net (я использую .net 2.0)

В Visual Studio 2005 откройте новый проект библиотеки классов. Затем удалите весь уже написанный там мусор и вставьте код.

'First thing to do is add a reference the Excel Runtime

Imports Microsoft.Office.Interop.Excel
Imports System.Runtime.InteropServices


Namespace ExcelExample

' the following is an Attribute spcifying that the class can be accesses in a unmanaged (non-.net) way

Imports Microsoft.Office.Interop.Excel
Imports System.Runtime.InteropServices


 Public Class ExcelVB


    Public Function getParameterNumberOfMaterial() As Integer
        On Error Resume Next
        Dim a As String
        Dim appInst As New Microsoft.Office.Interop.Excel.Application
        a = appInst.Sheets("Parameters").name

        If IsNumeric(appInst.Worksheets(a).range("C3").Value) Then
            If appInst.Worksheets(a).range("C3").Value > 0 Then

                getParameterNumberOfMaterial = appInst.Worksheets(a).range("C3").Value
            Else
                MsgBox("Please check cell C3 in the sheet 'Parameters'. It should include a numeric value which is greater than zero")
                MsgBox("Parameter Number of Material/Cost is set to the default value of 10")
                getParameterNumberOfMaterial = 10
            End If
        Else
            MsgBox("Please check cell C3 in the sheet 'Parameters'. It should include a numeric value which is greater than zero")
            MsgBox("Parameter Number of Material/Cost is set to the default value of 10")
            getParameterNumberOfMaterial = 10
        End If
        On Error GoTo 0
    End Function
End Class

End Namespace

Создайте решение, нажав F6, перейдите в Project-> Project Proerties и проверьте регистр для взаимодействия COm.

Таким образом, на выходе получается .DLL и .tlb, файл Excel должен ссылаться на файл .tlb,

вам необходимо зарегистрировать DLL с помощью regasm / codebase c: \ Excel \ dllname.dll

Затем вы можете получить доступ к функции из Excel.

Вот ссылка на мою папку проекта, разархивируйте ее, и вы найдете книгу Excel, которая содержит ссылку на .dll через .tlb

http://cid-4af152a1af4d7db8.skydrive.live.com/self.aspx/Documents/Debug.rar

Вот еще одна отличная статья

http://richnewman.wordpress.com/2007/04/15/a-beginner%E2%80%99s-guide-to-calling-a-net-library-from-excel/

Конвертировать в VB6 легко.

1. Создайте проект DLL VB6. Поищите в Интернете инструкции, как это сделать и как предоставлять методы, классы и функции.

2. Добавьте ссылку на «Библиотеку Microsoft Office Excel ##».

3. В процедуру проекта, которая будет представлена ​​как метод в DLL, добавьте следующий код:

   Dim E As Excel.Application
   Set E = GetObject(, "Excel.Application")
   'or if Excel is not running use CreateObject("Excel.Application")
   'You can use error handling to figure out which one you need.
   

4. Продолжайте использовать свой обычный код VBA с одной модификацией: глобально доступные объекты, такие как ActiveSheet, ActiveWorkbook или Sheets, должны стать E.ActiveSheet, E.ActiveWorkbook и E.Sheets.

Если у вас есть формы в вашем проекте VBA, будет немного больше работы по их преобразованию, потому что формы совершенно разные в VB6 и VBA (они не работают одинаково, по большому счету).

@Tom Tom

У вас не должно возникнуть проблем с преобразованием кода из .VBA в vb6. Фактически, в этом нет необходимости.

Проблема в контексте VB6, langugae не может понять, что

«Application.Worksheets (a) .range (« C3 »). Value)» означает,

объект Application имеет другое значение в VB6

VBA (имеющаяся у вас версия VBA) - это почти индивидуальная реализация VB6 в Excel (или word, или что-либо еще, что поставляется с MSO).

Было бы плохой идеей попытаться получить доступ к пользовательскому интерфейсу Excel из VB6 (я даже не уверен, возможно ли это)

вам следует отделить бизнес-логику от кода, а затем превратить ее в библиотеку VB6.

Например ваш код (насколько я понимаю) возвращает значение ячейки C3

Он очень сильно привязан к пользовательскому интерфейсу Excel, поэтому было бы очень непродуктивно, если вообще возможно, преобразовать ваш код в VB6.

потому что даже если вы конвертируете код, большинство переменных, таких как (Application.Worksheets (a) .range ("C3"). Value), должны вызываться из VBA, что бессмысленно

однако, если у вас есть другая чистая бизнес-логика, ее можно легко портировать (это забавно, потому что портировать действительно нечего)