- ©«¤l
- 129
- ¥DÃD
- 25
- ºëµØ
- 0
- ¿n¤À
- 159
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-12-24
- ³Ì«áµn¿ý
- 2022-12-12
|
¦^´_ 2# GBKEE
¦b®a´ú¸Õ~~§ï¦¨®à±¤WªºTEST¸ê®Æ§¨¸Ì±~©ñ¤u§@ªí1¤é.xls~¤u§@ªí2¤é.xls~¤u§@ªí3¤é.xls~
¤u§@ªíªºsheet1§ï¦W¬° "¤pp"
¸ô®|¬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("¤pp").Select '¿ï¸ÓÀɪº¤ppsheet
t = t + .Sheets("¤pp").Cells(1, 1).Value '²Ö¥[¸ÓÄæ¦ìªºÈ
.Close SaveChanges:=False 'ÃöÀÉ
End With
Next
Workbooks("¤u§@ªíµ²ºâ").Sheets("1").Cells(1, 1) = t '§â²Ö¥[µ²ªG©ñ¨ìµ²ºâ.xls¥h
End Sub |
|