|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
엑셀에서 오라클에 접속해서 자료를 가져오는 건데요....
Set cn = New ADODB.Connection
cn.ConnectionString = "dsn=......;uid=parmas;pwd=......"
cn.Open
Sql = "..........................................."
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open Sql, cn
Worksheets.Move [Sheet1]
For intcol = 0 To rs.Fields.count - 1
ActiveSheet.Cells(1, intcol + 1).Value = rs.Fields(intcol).name
Next
Range("a2").Select
ActiveCell.CopyFromRecordset rs
ActiveCell.CurrentRegion.Columns.AutoFit
rs.Close
cn.Close
이렇게 실행하면 일부 PC에서는 아무 문제없이 잘되는데..
어떤 PC(저사양)에서는 에러가 납니다........
ActiveCell.CopyFromRecordset rs 이부분에서...
매크로 실행시 PC 사양에도 좌우를 하는건가요???
잘되는 PC - 팬4 - 1.9 이상
안되는 PC - 팬4 - 866 정도
|
|