¶à¸öexcelºÏ²¢ºóÐµĹ¤×÷±íûÓÐÊý¾Ý

ÒѾٱ¨ »Ø´ð
¶à¸öexcelºÏ²¢ºóÐµĹ¤×÷±íûÓÐÊý¾Ý
ÎÊÔÚÏß¿Í·þ
ɨÂëÎÊÔÚÏß¿Í·þ
  • »Ø´ðÊý

    8

  • ä¯ÀÀÊý

    2,022

8¸ö»Ø´ð ĬÈÏÅÅÐò
  • ĬÈÏÅÅÐò
  • °´Ê±¼äÅÅÐò

ÒѲÉÄÉ
±¾ÈËÒÔǰҲд¹ýÕâÑùµÄVBA£¬³öÏÖ¹ýÕâÑùµÄÎÊÌâ¡£²»ÖªÊÇ·ñºÃÊÇÄúÒ²ÊdzöÏÖÁË¡£
Æäʵ¾ÍÊÇÎļþûÓб»ÕÒµ½¡£
Äú¿´Ï£¬ÄúµÄÎļþÃûÊÇ·ñÄÜ¿´µ½À©Õ¹Ãû£¬ÔÚÏÔʾ·½Ê½ÖиÄÏ¿´Ðв»ÐС£
µ«Ô¸ÊÇÕâÑùµÄÔ­Òò¡£×£Ò»ÇÐ˳Àû£¡£¡
È¡Ïû ÆÀÂÛ
ÄãÊÇÔõôºÏ²¢µÄ
È¡Ïû ÆÀÂÛ
ÔÚwin7µÄ´ÅÅ̹ÜÀíÖн«Ã»ÓÐÊý¾ÝµÄ·ÖÇøɾ³ý£¬È»ºóÓÒ»÷ ÓÐÊý¾ÝµÄÖ÷·ÖÇø À©Õ¹¾í¡£Èç¹ûÊÇϵͳ·ÖÇø¿ÉÄܲ»ÔÊÐí²Ù×÷£¬³¢ÊÔÔÚwin 7 PEϽøÐвÙ×÷
È¡Ïû ÆÀÂÛ
delete from aa where (select count(*) from aa ) =0
È¡Ïû ÆÀÂÛ
Â¥Ö÷¿´¿´ÕâÖֺϲ¢ÊDz»ÊÇÄãÐèÒªµÄ¡£
È¡Ïû ÆÀÂÛ
Èç¹ûÄú»³ÒɵçÄÔÖж¾£¬½¨ÒéÄú°²×°ÈðÐÇɱ¶¾Èí¼þV16+°æ±¾Éý¼¶µ½×îв¡¶¾¿âºó£¬ÖØÆô¼ÆËã»ú°´F8¼üÑ¡Ôñ°²È«Ä£Ê½£¬½øÐв¡¶¾É¨Ãè²éɱ£¬ÏÂÔصØÖ·£ºhttp://pc.rising.com.cn/
È¡Ïû ÆÀÂÛ
1¡¢Ð½¨Ò»¸öÎļþ¼Ð¡¢½«ÒªºÏ²¢µÄ±í¸ñ·Åµ½ÀïÃ桢н¨Ò»¸ö±í¸ñ¡¢ÓÃexcel´ò¿ª¡¢ÓÒ»÷Sheet1
2¡¢Ñ¡Ôñ²é¿´´úÂ루PS£ºexcelÓÐ×ÅÒ»ÏWPSûÓУ©
3¡¢½«ÏÂÁдúÂ븴ÖƵ½Îı¾¿òÖУº
Sub ºÏ²¢µ±Ç°Ä¿Â¼ÏÂËùÓй¤×÷²¾µÄÈ«²¿¹¤×÷±í()
Dim MyPath, MyName, AWbName
Dim Wb As workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & \ & *.xls)
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName
If MyName AWbName Then
Set Wb = Workbooks.Open(MyPath & \ & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range(B65536).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range(B65536).End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range(B1).Select
Application.ScreenUpdating = True
MsgBox ¹²ºÏ²¢ÁË & Num & ¸ö¹¤×÷±¡ÏµÄÈ«²¿¹¤×÷±í¡£ÈçÏ£º & Chr(13) & WbN, vbInformation, Ìáʾ
End Sub
4¡¢µã»÷ÔËÐС¢Ò»¶Îʱ¼ä£¨È¡¾öÓÚ±í¸ñµÄ´óСºÍ¶àÉÙ£©ºó£¬ºÏ²¢Íê³ÉÁË¡£
È¡Ïû ÆÀÂÛ
count(*)=0
È¡Ïû ÆÀÂÛ
ZOLÎÊ´ð > ¶à¸öexcelºÏ²¢ºóÐµĹ¤×÷±íûÓÐÊý¾Ý

¾Ù±¨

¸ÐлÄúΪÉçÇøµÄºÍг¹±Ï×Á¦Á¿ÇëÑ¡Ôñ¾Ù±¨ÀàÐÍ

¾Ù±¨³É¹¦

¾­¹ýºËʵºó½«»á×ö³ö´¦Àí
¸ÐлÄúΪÉçÇøºÍг×ö³ö¹±Ï×

ɨÂë²ÎÓëÐÂÆ·0ÔªÊÔÓÃ
ɹµ¥¡¢¶¥Â¥ºÀÀñµÈÄãÄÃ

ɨһɨ£¬¹Ø×¢ÎÒÃÇ
Ìáʾ

È·¶¨ÒªÈ¡Ïû´Ë´Î±¨Ãû£¬Í˳ö¸Ã»î¶¯£¿