1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

안녕하세요.


XP / 32bit 엑셀 환경에서 작동하는 DLL이 있습니다.

64비트 환경에서도 쓸 수 있게 하려고

수정해보고 있으나 계속 실패하고 있습니다.


win7 64bit / 64bit 엑셀에서 실행하니 #VALUE!가 떨어지고

MsgBox를 통해서 검증을 해보면 DLL함수 호출에 실패하는것 같습니다.


아래처럼 노력해보고 있으나 계속 안되고 있습니다.


XP / 32비트 엑셀에서 성공했던 선언 -------------------------------------

  Public Declare Function MJ_Test1 Lib "D:\프로젝트\VBA_DLL테스트\xl_test.dll" (ByVal mynum As Long) As Long

  Public Declare Sub MJ_Test2 Lib "D:\프로젝트\VBA_DLL테스트\xl_test.dll" (ByRef str As String)

-----------------------------------------------------------------------


win7 64bit / 64bit엑셀에서 작동되게 해볼려고 지금 수정한 내용 ---------------------------

#If VBA7 Then

  #If Win64 Then

    Public Declare PtrSafe Function MJ_Test1 Lib "D:\프로젝트\VBA_DLL테스트\xl_test.dll" (ByVal mynum As Long) As LongPtr

    Public Declare PtrSafe Sub MJ_Test2 Lib "D:\프로젝트\VBA_DLL테스트\xl_test.dll" (ByRef str As String)

  #Else

    Public Declare Function MJ_Test1 Lib "D:\프로젝트\VBA_DLL테스트\xl_test.dll" (ByVal mynum As Long) As Long

    Public Declare Sub MJ_Test2 Lib "D:\프로젝트\VBA_DLL테스트\xl_test.dll" (ByRef str As String)

  #End If

#Else

  Public Declare Function MJ_Test1 Lib "D:\프로젝트\VBA_DLL테스트\xl_test.dll" (ByVal mynum As Long) As Long

  Public Declare Sub MJ_Test2 Lib "D:\프로젝트\VBA_DLL테스트\xl_test.dll" (ByRef str As String)

#End If

---------------------------------------------------------------------------------


제가 작성한 엑셀과, DLL을 첨부합니다.

현재 엑셀에 DLL을 붙이는것을 처음하는것이라 매우 간단한 내용이구요.

DLL은 델파이로 작성한 것입니다. 델파이 소스는 본문에 적겠습니다.


vba문을 어떻게 작성해야하는지 아침부터 뒤져보았으나 도저히 알지 못 하겠습니다.

한심해 보일지 모르지만, vba를 어떻게 써야 하는지 친절을 부탁드립니다.


(엑셀에서 DLL 불러오기를 잘 몰라서 DLL위치는 'D:\프로젝트\VBA_DLL테스트\xl_test.dll"로 박아둔 상태입니다)

-------------------- 델파이 DLL 소스 ----------------------

library xl_test;


uses

  ExceptionLog,

  SysUtils,

  Classes,

  Dialogs;

{$R *.res}


function MJ_Test1(iVar : integer):integer;stdcall;

begin

  showmessage('MJ_Test1 work ( return is Var x 10)');

  showmessage('iVar = ' + IntToStr(iVar));

  result := iVar * 10;

end;


procedure MJ_Test2(var srcStr: string);stdcall;

var

  mystr : String;

begin

  showmessage('MJ_Test2 work');

  showmessage(srcStr);

  mystr := srcStr + ' ' + srcStr;

  showmessage(mystr);


  srcStr := myStr;

end;


exports MJ_Test1;

exports MJ_Test2;


begin

end.

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 40219
» VBA win7 64bit / 64bit 엑셀 / 32bit DLL의 사용법이 궁금합니다. file [레벨:1]컴바치 2013-01-04 4920
541 엑셀수식 순차적으로 정리하고 싶은데.. 질문드립니다. file [2] [레벨:3]빛의행운아 2013-01-04 4062
540 엑셀일반 새해맞이 기념 연속채우기 관련 질문입니다. imagefile [2] [레벨:6]파이스 2013-01-03 4609
539 차트 차트 질문 드립니다. file [3] [레벨:3]빛의행운아 2013-01-02 4516
538 엑셀수식 엑셀 데이터 선택을 통한 차트 자동 업데이트 file [1] [레벨:1]swanage 2012-12-31 4882
537 VBA 데이터 유효성 질문.. 리스트에서 항목 선택하면 기존 항목에 더해져서 표시되게 하기 secretimage [1] [레벨:1]미소가인 2012-12-22 43
536 기타 vlookup 관련하여 질문드립니다. file [1] [레벨:3]블루짱이 2012-12-20 4976
535 기타 해당 단어가 있을경우 추출해 내고 싶습니다. file [2] [레벨:3]블루짱이 2012-12-17 4540
534 엑셀일반 예전에 해결해준 공휴일 조건부서식에 대한 재질문 등 file [2] [레벨:4]성투은자 2012-12-13 5381
533 VBA 엑셀 랜덤돌리기 질문입니다 file [2] [레벨:4]신강현 2012-12-07 5070
532 엑셀일반 저.. 혹 이기능에 대한 단축키가 있나요?? imagefile [3] [레벨:2]큰아빠에요 2012-11-25 5098
531 VBA 파일&폴더 VBA 수정하여 사용하다가 막혀서 문의드립니다. file [2] [레벨:1]예진 2012-11-23 3948
530 VBA 특정폴더 파일 실행 file [4] [레벨:4]고수가되고파 2012-11-22 3842
529 VBA 병합효과 file [3] [레벨:4]고수가되고파 2012-11-22 5933
528 VLookup 앞시트에서 지정 값 정하여 계산 할 수 있나요? file [5] [레벨:3]이구람 2012-11-12 3505
527 피벗테이블 Vlookup 에서 혼동이 와 문의드려요~ file [11] [레벨:1]예진 2012-11-11 2755
526 배열수식 특정 조건 범위내에 가장 큰수들를 출력시키는?... [3] [레벨:2]큰아빠에요 2012-11-09 3116
525 피벗테이블 Pivot file [11] [레벨:1]예진 2012-11-05 2692
524 엑셀수식 max & min 함수활용 file [1] [레벨:0]아민 2012-11-03 2679
523 엑셀일반 빈셀 지정이 안되요. ㅜㅜ file [1] [레벨:3]fmbass98 2012-11-02 3382