|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):2002
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):winXP
3. CPU (486,PentiumI/II/III/IV...):pen 4
4. RAM (32,64,128,256,512MB,1G...):256
* 아래줄에 질문을 작성하세요 >>
아래와 같은 구문을 사용하여
mdb 화일에 자료를 전송하고 있습니다.
매분당 8회정도 자동으로 실행이되는데요..
main 프로그램에서 아래 코드를 불러서 전송을 한답니다.
그런데 프로그램이 일정 시간 후 자꾸 메모리 부족으로 죽어서
관찰결과 아래 코드가 실행될때마다 메모리를 잡아 먹는것을 알아냈습니다.
그런데 왜 그런지 어떻게 해야하는지 잘 모르겠네요..
도와주시면 감사하겠습니다.
sub transfertomain()
dim dbDB as database
dim strSQL as string
on error resume next
strSQL="Insert into FN_Database in "
strSQL=strSQL & "'" & thisworkbook.path & "\fn_production.mdb" & "'"
strSQL=strSQL & " Select * From 기본자료"
set dbDB=OpenDatabase(thisworkbook.fullname,false,false,"Excel 5.0;")
dbDB.execute strSQL
dbDB.close
set dbDB=nothing
strSQL=""
on error goto 0
end sub |
|