- ©«¤l
- 36
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 93
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2018-2-27
- ³Ì«áµn¿ý
- 2022-2-25
|
¸ê®Æ·JÁ`
קï«á¥X²{µ{¦¡¿ù»~¡A½Ð°Ý§Ú¸Ó¦p¦óקï©O¡H
¥Øªº¬O±N°V½m»Ý¨D¸Ìªº©Ò¦³ExcelÀÉsheet2¸ê®Æ·JÁ`¨ìÁ`ªí- Sub ¶×Á`()
- Dim myfile, mypath, wkb
- 'Application.ScreenUpdating = False 'Ãö³¬¿Ã¹õ§ó·s
- Sheets("Á`ªí").UsedRange.Offset(1, 0).Clear '²M°£ªíÀY¤§¥~ªº©Ò¦³¤º®e
- mypath = Sheets("³]©w¶").Range("b9") '§ä¨ì¥Ø«e¬¡¶Ã¯ªº¸ô®|
- MsgBox (mypath)
- myfile = Dir(mypath & "\*.xls*") 'ÂsÄý¥Ø«e¸ê®Æ§¨¤UªºExcel¤å¥ó
- MsgBox (myfile)
- Do While myfile <> "" '·í§ä¨ìªº¤å¥ó¤£¬°ªÅ®É
- If myfile <> ThisWorkbook.Name Then '·í§ä¨ìªº¤å¥ó¤£¬O¥Ø«eExcel¬¡¶Ã¯®É
- Set wkb = GetObject(mypath & "\" & myfile) '±o¨ìdir§ä¨ìªº¬¡¶Ã¯ªº¤º®e¡A³]¬°wkb
- With wkb.Sheets(2) '¹ï§ä¨ìªº¬¡¶Ã¯ªºsheet1¶i¦æ¾Þ§@
- '½Æ»swkbªºsheet1°£²Ä¤@¦Cªº©Ò¦³¤º®e
- .UsedRange.Offset(6, 0).Copy Sheet2.Range("A6:I25")
- End With
- wkb.Close False 'Ãö³¬wkb¬¡¶Ã¯¥B¤£Àx¦s
- End If
- myfile = Dir '´M§ä¤U¤@ÓExcel¬¡¶Ã¯
- Loop
- 'Application.ScreenUpdating = True '«ì´_¿Ã¹õ§ó·s
- End Sub
½Æ»s¥N½X |
|