- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-21
|
¤£½T©w§Aªºª©¥»¬O§_¾A¥Î, °ÆÀɦW ".xls" ¦Û¦æ§ó§ï¡G
- Sub TEST()
- Dim A As Range, B As Range, N%
- Dim X As New Application, FN$, xB As Workbook
- For Each A In [F4:G4]
- N = N + 1
- FN = ThisWorkbook.Path & "\" & A.Value & ".xls"
- If Dir(FN) = "" Then GoTo 101
- Set xB = X.Workbooks.Open(FN)
- For Each B In [E5:E14]
- On Error Resume Next
- If Range(B.Value) Is Nothing Then GoTo 102
- On Error GoTo 0
- xB.Sheets(1).Range(B).Value = B(1, N + 1)
- 102: Next
- xB.Close 1
- 101: Next
- End Sub
½Æ»s¥N½X |
|