ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¼´ÀÉ®×~ª¦¤å«áÁÙ¬O¼g¤£¥X¨Ó(¤w¸Ñ¨M)

[µo°Ý] ¼´ÀÉ®×~ª¦¤å«áÁÙ¬O¼g¤£¥X¨Ó(¤w¸Ñ¨M)

¥»©«³Ì«á¥Ñ iceandy6150 ©ó 2012-3-1 17:10 ½s¿è

§Ú¦³4­ÓxlsÀÉ¡A¤À§O¬O    ³Â»¶1¤é.xls¡A³Â»¶2¤é.xls¡A³Â»¶3¤é.xls¡Aµ²ºâ.xls
«e¤T­ÓÀɮפ¤¦U¦³­Ósheet¥s"¤p­p"¡AÄæ¦ì(1,1)¦³­Ó­È

§Ú¦b   µ²ºâ.xls   ¤¤¼g¤F¤@­Ó«ö¶s¡A¥i¥H§â
³Â»¶1¤é.xls¡A³Â»¶2¤é.xls¡A³Â»¶3¤é.xls¤¤ªº¤p­p¤¤ªº(1¡A1)ªº­Èµ¹¥[°_¨Ó
©ñ¨ìµ²ºâ.xls¤¤ªº(1¡A1)

³o´X­ÓÀɮ׳£©ñ¦bc:/§Úªº¸ê®Æ§¨/

Private Sub CommandButton1_Click()
Dim t, i As Integer
Dim fd, fs As String

fd = "C:\§Úªº¸ê®Æ§¨\"
t = 0
For i = 1 To 3
       fs = fd & "³Â»¶" & CStr(i) & "¤é.xls"                '§â¸ô®|§Ë¥X¨Ó¥[¤WÀɦW
       Workbooks(fs).Open                                          '¶}±Ò¸ÓÀÉ
      .Sheets("¤p­p").Select                                           '¿ï¸ÓÀɪº¤p­psheet
      t = t + Workbooks(fs).Sheets("¤é³ø").Cells(1, 1).Value       '²Ö¥[¸ÓÄæ¦ìªº­È
      Workbooks(fs).Close SaveChanges:=False      'ÃöÀÉ
Next
Workbooks("µ²ºâ").sheets("1").cells(1,1)=t            '§â²Ö¥[µ²ªG©ñ¨ìµ²ºâ.xls¥h
End Sub

¥i¬O³£·|¥X¿ù¡A±Ð±Ð§Ú§a¡AÁÂÁÂ
«¢Åo~¤j®a¦n§r

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-2-23 08:45 ½s¿è

¦^´_ 1# iceandy6150
  1. With Workbooks.Open(fs)                           '¶}±Ò¸ÓÀÉ
  2.       .Sheets("¤p­p").Select                          '¿ï¸ÓÀɪº¤p­psheet
  3.       t = t + .Sheets("¤é³ø").Cells(1, 1).Value       '²Ö¥[¸ÓÄæ¦ìªº­È
  4.       .Close SaveChanges:=False                       'ÃöÀÉ
  5.     End With
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE


    .Sheets("¤p­p").Select
¤j¤j~¨ì³o¤@¦æ³£·|Åã¥Ü ¿ù»~9 °}¦C¯Á¤Þ¶W¥X½d³ò
¬°¤°»ò·|³o¼Ë?
«¢Åo~¤j®a¦n§r

TOP

¦^´_ 3# iceandy6150


    ½T©w¤@¤U§Aªº¸ê®Æ¸ô®|¦³¨S¦³¿ù»~~

TOP

¦^´_ 2# GBKEE

¦b®a´ú¸Õ~~§ï¦¨®à­±¤WªºTEST¸ê®Æ§¨¸Ì­±~©ñ¤u§@ªí1¤é.xls~¤u§@ªí2¤é.xls~¤u§@ªí3¤é.xls~
¤u§@ªíªºsheet1§ï¦W¬° "¤p­p"  
¸ô®|¬OC:\Users\ice\Desktop\TEST

Private Sub CommandButton1_Click()
Dim t, i As Integer
Dim fd, fs As String

fd = "C:\Users\ice\Desktop\TEST\"
t = 0
For i = 1 To 3
       fs = fd & "¤u§@ªí" & CStr(i) & "¤é.xls"                '§â¸ô®|§Ë¥X¨Ó¥[¤WÀɦW
      
With Workbooks(fs).Open                             '¶}±Ò¸ÓÀÉ-----¥Ø«e¿ù»~¥X¦b³o¤@¨B¡A°}¦C¯Á¤Þ¶W¥X½d³ò
       .Sheets("¤p­p").Select                          '¿ï¸ÓÀɪº¤p­psheet
       t = t + .Sheets("¤p­p").Cells(1, 1).Value       '²Ö¥[¸ÓÄæ¦ìªº­È
      .Close SaveChanges:=False                       'ÃöÀÉ
    End With

Next
Workbooks("¤u§@ªíµ²ºâ").Sheets("1").Cells(1, 1) = t         '§â²Ö¥[µ²ªG©ñ¨ìµ²ºâ.xls¥h
End Sub
«¢Åo~¤j®a¦n§r

TOP

¦^´_ 4# dino1978


    §A¦n~Àˬd¹L¤F³£¨S¿ù
¥Ø«e´N¦p«e¤@½g¤å³¹¤º®e
³£¥d¦b¶}ÀɮרºÃä
With Workbooks(fs).Open
©Î¬O¿ï¾Ü©Ò¶}ªºÀɮתºSHEET´N·|¥X¿ù
.Sheets("¤p­p").Select
¤£ª¾¬°¦ó
«¢Åo~¤j®a¦n§r

TOP

¦^´_ 6# iceandy6150
¹ï¤£°_ µ¹§Aªºµ{¦¡¤¤  With Workbooks(fs).Open »yªk¬O¿ù»~ªº ¤w§ó¥¿¤F

TOP

¦^´_ 7# GBKEE


    okok¤F~~

­ì¨Ó.open©ñ«e­±¸ò©ñ«á­±®t³o»ò¦h§r

·PÁ¤j¤j¼ö¤ß¸Ñµª
«¢Åo~¤j®a¦n§r

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD