[µo°Ý] EXCEL 2003 ¥i¥H¥Îªº«ü¥O 2010«o¥X²{¿ù»~

arp¤p«Ó³J

½Ð°Ý¦U¦ì¤j¤j«e½ú¥ý¶i¡G
¤p§Ìªº³o­Óµ{¦¡¦bOFFICE 2003 °õ¦æ°_¨Ó¬O¥¿±`ªº¡A¥i¬O¤@¨ì2010«o¥X²{°õ¦æ¶¥¬q¿ù»~ "429"¡A½Ð°ª¤â­Ì¨ó§U¡AÁÂÁÂ
¿ù»~ÂI¡G
    Set db = Workspaces(0).OpenDatabase(datapath _
         & FF)
µ{¦¡½X¦p¤U¡G
Option Explicit
Public datapath As String
Public FF As String
Public dataSource As String, CheckDb, ar(30)
Public ExcelDB As Database, db As Database, RecSet As Recordset, NumRecs
Public RecArrary, i As Integer, j As Integer, counter As Integer, List1, Choicess
Public Sub EE()
    FF = "\CALCU_RITZ.mdb"
End Sub
Sub ACESSTAKE()
    Application.ScreenUpdating = True
   
    ¦^³]­pµe­±
   
    Dim txtsql As String
    ActiveWorkbook.PrecisionAsDisplayed = False
    C¼Ñ¶}ÀÉ
  If Range("¦s¨ú¸ê®Æ¦ì¸m") = DD Then
     Àɮ׸ô®|
     
     Else: L¼Ñ¶}ÀÉ
     datapath = BB
  End If
    EE
Workbooks("GNL.xls").Sheets("INPUT").Activate
    Set db = Workspaces(0).OpenDatabase(datapath _
         & FF)
    Set RecSet = db.OpenRecordset("MADATA", dbOpenDynaset)
    RecSet.MoveFirst
    txtsql = "¦s¨ú½s¸¹" & "='" & Range("²£«~¥N¸¹").Value & "'"
    RecSet.FindFirst txtsql
   
  If RecSet.Fields(1).Value <> Range("²£«~¥N¸¹").Text Then
     MsgBox "¤j­ô! §ä¤£¨ì¸ê®Æ! ½ÐÀˬd [²£«~¥N¸¹]"
     Range("²£«~¥N¸¹").Select
     db.Close
     
     End
  End If
      
        ¤â°Ê¹Bºâ
   
      
        With RecSet
           
        Range("²£«~¥N¸¹").Value = .Fields(1).Value
        Range("DATA002").Value = .Fields(2).Value
        Range("DATA003").Value = .Fields(3).Value
        Range("DATA004").Value = .Fields(4).Value
        Range("DATA005").Value = .Fields(5).Value
        Range("DATA006").Value = .Fields(6).Value
        Range("DATA007").Value = .Fields(7).Value
        Range("DATA008").Value = .Fields(8).Value
        Range("DATA009").Value = .Fields(9).Value
        Range("DATA010").Value = .Fields(10).Value
        Range("DATA011").Value = .Fields(11).Value
        Range("DATA012").Value = .Fields(12).Value
        Range("DATA013").Value = .Fields(13).Value
        Range("DATA014").Value = .Fields(14).Value
        Range("DATA015").Value = .Fields(15).Value
        Range("DATA016").Value = .Fields(16).Value
        Range("DATA017").Value = .Fields(17).Value
        Range("DATA018").Value = .Fields(18).Value
        Range("DATA019").Value = .Fields(19).Value
        Range("DATA020").Value = .Fields(20).Value
        Range("DATA021").Value = .Fields(21).Value
        Range("DATA022").Value = .Fields(22).Value
        Range("DATA023").Value = .Fields(23).Value
        Range("DATA024").Value = .Fields(24).Value
        Range("DATA025").Value = .Fields(25).Value
        Range("DATA026").Value = .Fields(26).Value
        Range("DATA027").Value = .Fields(27).Value
        Range("DATA028").Value = .Fields(28).Value
        Range("DATA029").Value = .Fields(29).Value
        Range("DATA030").Value = .Fields(30).Value
        Range("DATA031").Value = .Fields(31).Value
        Range("DATA032").Value = .Fields(32).Value
        Range("DATA033").Value = .Fields(33).Value
        Range("DATA034").Value = .Fields(34).Value
        Range("DATA035").Value = .Fields(35).Value
        Range("DATA036").Value = .Fields(36).Value
        Range("DATA037").Value = .Fields(37).Value
        Range("DATA038").Value = .Fields(38).Value
        Range("DATA039").Value = .Fields(39).Value
        Range("DATA040").Value = .Fields(40).Value
        Range("DATA041").Value = .Fields(41).Value
        Range("DATA042").Value = .Fields(42).Value
        Range("DATA043").Value = .Fields(43).Value
        Range("DATA044").Value = .Fields(44).Value
        Range("DATA045").Value = .Fields(45).Value
        Range("DATA046").Value = .Fields(46).Value
        Range("DATA047").Value = .Fields(47).Value
        Range("DATA048").Value = .Fields(48).Value
        Range("DATA049").Value = .Fields(49).Value
        Range("DATA050").Value = .Fields(50).Value
        Range("DATA051").Value = .Fields(51).Value
        Range("DATA052").Value = .Fields(52).Value
        Range("DATA053").Value = .Fields(53).Value
        Range("DATA054").Value = .Fields(54).Value
        Range("DATA055").Value = .Fields(55).Value
        Range("DATA056").Value = .Fields(56).Value
        Range("DATA057").Value = .Fields(57).Value
        Range("DATA058").Value = .Fields(58).Value
        Range("DATA059").Value = .Fields(59).Value
        Range("DATA060").Value = .Fields(60).Value
        Range("DATA061").Value = .Fields(61).Value
        Range("DATA062").Value = .Fields(62).Value
        Range("DATA063").Value = .Fields(63).Value
        Range("DATA064").Value = .Fields(64).Value
        Range("DATA065").Value = .Fields(65).Value
        Range("DATA066").Value = .Fields(66).Value
        Range("DATA067").Value = .Fields(67).Value
        Range("DATA068").Value = .Fields(68).Value
        Range("DATA069").Value = .Fields(69).Value
        Range("DATA070").Value = .Fields(70).Value
        Range("DATA071").Value = .Fields(71).Value
        Range("DATA072").Value = .Fields(72).Value
        Range("DATA073").Value = .Fields(73).Value
        Range("DATA074").Value = .Fields(74).Value
        Range("DATA075").Value = .Fields(75).Value
        Range("DATA076").Value = .Fields(76).Value
        Range("DATA077").Value = .Fields(77).Value
        Range("DATA078").Value = .Fields(78).Value
        Range("DATA079").Value = .Fields(79).Value
        Range("DATA080").Value = .Fields(80).Value
        Range("DATA081").Value = .Fields(81).Value
        Range("DATA082").Value = .Fields(82).Value
        Range("DATA083").Value = .Fields(83).Value
        Range("DATA084").Value = .Fields(84).Value
        Range("DATA085").Value = .Fields(85).Value
        Range("DATA086").Value = .Fields(86).Value
        Range("DATA087").Value = .Fields(87).Value
        Range("DATA088").Value = .Fields(88).Value
        Range("DATA089").Value = .Fields(89).Value
        Range("DATA090").Value = .Fields(90).Value
        Range("DATA091").Value = .Fields(91).Value
        Range("DATA092").Value = .Fields(92).Value
        Range("DATA093").Value = .Fields(93).Value
        Range("DATA094").Value = .Fields(94).Value
        Range("DATA095").Value = .Fields(95).Value
        Range("DATA096").Value = .Fields(96).Value
        Range("DATA097").Value = .Fields(97).Value
        Range("DATA098").Value = .Fields(98).Value
        Range("DATA099").Value = .Fields(99).Value
        Range("DATA100").Value = .Fields(100).Value
        Range("DATA101").Value = .Fields(101).Value
        Range("DATA102").Value = .Fields(102).Value
        Range("DATA103").Value = .Fields(103).Value
        Range("DATA104").Value = .Fields(104).Value
        Range("DATA105").Value = .Fields(105).Value
        Range("DATA106").Value = .Fields(106).Value
        Range("DATA107").Value = .Fields(107).Value
        Range("DATA108").Value = .Fields(108).Value
        Range("DATA109").Value = .Fields(109).Value
        Range("DATA110").Value = .Fields(110).Value
        Range("DATA111").Value = .Fields(111).Value
        Range("DATA112").Value = .Fields(112).Value
        Range("DATA113").Value = .Fields(113).Value
        Range("DATA114").Value = .Fields(114).Value
        Range("DATA115").Value = .Fields(115).Value
        Range("DATA116").Value = .Fields(116).Value
        Range("DATA117").Value = .Fields(117).Value
        Range("DATA118").Value = .Fields(118).Value
        Range("DATA119").Value = .Fields(119).Value
        End With
        db.Close
     ¦Û°Ê¹Bºâ
    ActiveWorkbook.PrecisionAsDisplayed = False

    ¸ê®Æ¦æ¶Z½Õ¾ã
'         ActiveSheet.Protect
End Sub