+
1 6 6
  1. #1
    Epsilon       Epsilon
    14.09.2006
    2,067
    ()
    0
    : 0 (: 0).

     DLL Excel/Access

    , VBA.

    - ?

    VBA DLL C++ Builder?
    25 . .

  2. #2
    _snake_       _snake_
    02.02.2007
    nsk || brdsk
    319
    ()
    0
    : 0 (: 0).

    Epsilon
    VBA DLL C++ Builder?
    MS vs Borland ))))

    -

  3. #3
    Epsilon       Epsilon
    14.09.2006
    2,067
    ()
    0
    : 0 (: 0).

    , DLL

    1

    , -
    25 . .

  4. #4
    Epsilon       Epsilon
    14.09.2006
    2,067
    ()
    0
    : 0 (: 0).

    Epsilon
    VBA DLL C++ Builder?
    , Excel Builder .
    25 . .

  5. #5
    _snake_       _snake_
    02.02.2007
    nsk || brdsk
    319
    ()
    0
    : 0 (: 0).

    ,
    :
    #import "mso.dll"
    #import "vbe6ext.olb"
    #import "msword.olb" rename("ExitWindows","_ExitWindows")
    //#import "EXCEL9.OLB" rename("DialogBox","_DialogBox"), rename("RGB","_RGB"), exclude("I","IPicture")
    #import "dao360.dll" rename("EOF","EndOfFile"), rename("BOF","BegOfFile")
    //#import "msacc.olb"
    
    #include <stdio.h>
    #include <conio.h>
    
    
    void main()
    ....
    	::CoInitialize(NULL);
    	try 
    	....
    		using namespace Word;
    		_ApplicationPtr word(L"Word.Application");
    		word->Visible = false;
    		word->Activate();
    
    		_DocumentPtr wdoc1 = word->Documents->Add();
    
    		RangePtr range = wdoc1->Content;
    		range->LanguageID = wdRussian;
    		range->InsertAfter(" ");
    
    		wdoc1->SaveAs(&_variant_t("est.htm"), &_variant_t(long(wdFormatHTML)));
    
    		//_DocumentPtr wdoc2 = word->Documents->Open(&_variant_t("est.doc"));
    		//word->Run("Macro1");
    	} 
    	catch (_com_error& er) 
    	....
    		char buf[1024];
    		sprintf(buf, "_com_error:\n" \
                    	"Error       : .lX\n" \
                    	"ErrorMessage: %s\n" \
                    	"Description : %s\n" \
                    	"Source      : %s\n",
                    	er.Error(),
                    	(LPCTSTR)_bstr_t(er.ErrorMessage()),
                    	(LPCTSTR)_bstr_t(er.Description()),
                    	(LPCTSTR)_bstr_t(er.Source()));
    
    		CharToOem(buf, buf); //    
    		printf(buf);
    	}
    	::CoUninitialize();
    	_getch();
    }

  6. #6
    Epsilon       Epsilon
    14.09.2006
    2,067
    ()
    0
    : 0 (: 0).

    VBA- DLL

    "" .

    30

    , DLL VS2005 ......
    25 . .