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

¦p¦ó¦h­Óexcel ©ñ¦b¤@­Óexcel?

¦p¦ó¦h­Óexcel ©ñ¦b¤@­Óexcel?

³Ìªñ¹J¨ì¤@­ÓÃøÃD>''<¡A±¡§Î¬O³o¼Ëªº:

§Ú¦³¤@­Ó¸ê®Æ§¨(¥i¯à©ñ¦b¤£¦P¦ì¸m¡A©Ò¥H¥i¯à»Ý­n¤@­Ó¥i¥H¿ï¸ê®Æ§¨ªºµøµ¡)¡A¸Ì­±¦³«Ü¦hexcelÀÉ¡A¥i¯à±¡§Î¦p¤U:

1.AÀɦWªºexcel ¦³¨â­Ósheet,BÀɦWªºexcel ªº¦³10­Ósheet,....(¨C¤@­Óexcel ¸Ì­±ªºsheet¼Æ¥Ø¤£¤@©w¤@¼Ë)
2.excel ÀɦW¤£¤@¼Ë¡A¦ýsheetÀɦW¥i¯à¤@¼Ë

¦³¿ìªk±N¦h­Óexcel©ñ¦b¤@­Óexcel¡A¤£¦Pexcel ªºsheetÀɦW¥i¥H¥Î: excelÀɦW"_"sheetÀɦW¨Ó©R¦W?

¤£ª¾¹D³o­Ó°ÝÃD·|¤£·|¤ÓÃø? .....

¦^´_ 1# ui123
½Ð¤W¶ÇÀɮסC

TOP

ÁÂÁ c_c_lai ¤jªº¼ö¤ß~!§Ú¦n¹³¤£ÁÙ¨S¦³Åv­­­C~
ÁÙ¬O§Ú¦A±Ô­z§ó²M·¡¤@¤U:
°²¦pªG®à­±¦³­Ó¸ê®Æ§¨¡A¦WºÙ¬°"AllFile"
¸Ì­±¦³¨â­Óexcel(¥i¯à§ó¦h)¡A
¤@­Óexcel¦WºÙ¬°:
Data1 ¨Ã¥B¦³2­ÓSHEET,¦WºÙ¬°SHEET1,SHEET2
¥t¤@­Óexcel¦WºÙ¬°:
Data2 ¨Ã¥B¦³3­ÓSHEET,¦WºÙ¬°SHEET1,SHEET2,SHEET3
(¹ê»Ú¤Wexcel¼Æ¥i¯à§ó¦h¡A¨C­Óexcel SHEET¼Æ¶q¤£¤@©w¡A·Q©ñ¦b¤@­ÓEXCEL¸Ì)
À³¸Ó¥i¥H¥Î°j°é¶Ü?ÁÙ¬O·j´M?...¦Û¤vªº·Qªk¦p¤U:
For i=excel¦WºÙ
¼Æ¦³´X­Ósheet ­«·s©Rsheet¦WºÙ¬°"excelÀɦW_­ìSHEET¦WºÙ"
Next i
µM«á§â§ï¦nªºÀɮשñ¦b¤@°_....¥¿¦b¾Ç²ß»yªk,·PÁ«ü±Ð!

ÁÙ¦³¦A¦¸ÁÂÁÂGBKEE¤j~ ­è­è¤~¬Ý¨ì±zªº´£¿ô¡ASorry&ÁÂÁ´£¿ôÅo!

TOP

ÁÂÁ c_c_lai ¤jªº¼ö¤ß~!§Ú¦n¹³¤£ÁÙ¨S¦³Åv­­­C~
ÁÙ¬O§Ú¦A±Ô­z§ó²M·¡¤@¤U:
°²¦pªG®à­±¦³­Ó¸ê®Æ§¨¡A¦WºÙ¬°" ...
ui123 µoªí©ó 2013-11-10 19:03

©p¥i¥H±NAllFiles ¥Ø¿ý¤ÎÀɮפ@°_À£ÁY¦¨ .rar ©Î .zip À£ÁYÀÉ¡A
©p«K¥i¥H¤W¶Ç¤F¡C

TOP

AllFile.rar (12.33 KB)
Ya~§Ú·|¤W¶Ç¤F
¤£ª¾¹D§A¦³¬Ý¨ì¶Ü?
À³¸ÓÁÙ­n¥Î¼Æsheet?ªº»yªk Worksheets.Count ?
µM«áFor each i .....¤£ºÞ¦³¨S¦³¸Ñ¡A³£­n·PÁ±z¡AÁÂÁÂ!~

TOP

¦^´_ 5# ui123
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim xFileAr, i As Integer, x As Integer, S As Integer
  4.     Dim wB As Workbook
  5.     With Application.FileDialog(msoFileDialogFilePicker)    '¿ï¸ê®Æ§¨ªºµøµ¡
  6.         Do                                                  '°j°é: ¥i¦h¦¸¿ï¸ê®Æ§¨
  7.             .Show                                           'Åã¥Ü:¸ê®Æ§¨ªºµøµ¡
  8.             For i = 1 To .SelectedItems.Count               '¿ï¾ÜªºÀɮפ§­Ó¼Æ
  9.                 xFileAr = xFileAr & "," & .SelectedItems(i) '¬ö¿ý¦r¦ê:¿ï¾ÜªºÀɮפ§§¹¾ã¸ô®|
  10.             Next
  11.         Loop Until .SelectedItems.Count = 0                 '¤@ª½¨ì¨S¦³¿ï¾ÜÀÉ®×
  12.         If xFileAr = "" Then Exit Sub
  13.      End With
  14.      xFileAr = Split(Mid(xFileAr, 2), ",")                   '¬ö¿ý¿ï¾ÜªºÀɮצr¦êÂà´«¬°°}¦C
  15.      Set wB = ThisWorkbook        '³oµ{¦¡½X©Ò¦bªº¬¡­¶Ã¯      '©Î¬O Workbooks("AAA.XLS") '¦h­Óexcel©ñ¦b¤@­Óexcel
  16.      For i = 0 To UBound(xFileAr)
  17.         With Workbooks.Open(xFileAr(i))  '­n¶}±Òªº¦h­Óexcel...
  18.             x = wB.Sheets.Count                                 '³o¬¡­¶Ã¯ªº¤u§@ªí¼Æ¶q
  19.             For S = 1 To .Sheets.Count
  20.                 .Sheets(S).Copy wB.Sheets(x)           '¤u§@ªí½Æ»s,
  21.                 ActiveWorkbook.ActiveSheet.Name = .Name & "_" & .Sheets(S).Name
  22.             Next
  23.             .Close False
  24.         End With
  25.      Next
  26. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

GBKEE¶W¯Åª©¤j~¥i¥H¥Î¡A¦Ó¥B³ºµM¥i¥H¦h¼h­C!   ÁÂÁ§A ^^~

(·íµMÁÙ¦³ÁÂÁ c_c_lai ¤pª¯ª¯±Ð§Ú¤W¶Ç¸ê®Æ)

¦³­Ó¤p¤pºÃ°Ý¡A¦³¿ìªk¨Ì·ÓData1.xlsx_Sheet1µM«áData1.xlsx_Sheet2±Æ¦C¶¶§Ç?
­è­è¸Õ¤@¤U¡A¦n¹³­è¦n¬Û¤Ï¤F

ÁÙ¦³§Ú·|§V¤O§â§A¼gªºµ{¦¡¬ÝÀ´ªº~

ªGµM¬O¶W¯Åª©¥D¡A¶W¯Å¼F®`ªº!

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-11-10 20:48 ½s¿è

¦^´_ 7# ui123
  1.     For S = .Sheets.Count To 1 Step -1         '¯Á¤Þ­È¥Ñ«á©¹«e
  2.                 .Sheets(S).Copy wB.Sheets(1)  '½Æ»s¤u§@ªí,¦b³o¬¡­¶Ã¯ªº²Ä1­Ó¤u§@ªí¤§«e
  3.                 ActiveWorkbook.ActiveSheet.Name = .Name & "_" & .Sheets(S).Name
  4.             Next  
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

§Ú¦³¸Õ¤F!  ¦¨¥\¤F~¶W¶}¤ß
³o´X¤Ñ§Ú·|§V¤O&¸ÕµÛ ŪÀ´¥¦~ ÁÂÁ  ¶W¯Åª©¤j (◕‿◕✿

TOP

GBKEE¶W¯Åª©¤j~¥i¥H¥Î¡A¦Ó¥B³ºµM¥i¥H¦h¼h­C!   ÁÂÁ§A ^^~

(·íµMÁÙ¦³ÁÂÁ c_c_lai ¤pª¯ª¯±Ð§Ú¤W¶Ç¸ê®Æ) ...
ui123 µoªí©ó 2013-11-10 20:22

¤pª¯ª¯¥u¬O¦bÃh¦Ӥw¡A·³¤ë¤w³u¡I
¶¶«K¦A´£¥Ü©p¡A·í­n¦^µª¹ï¤è®É¡A½Ð¤@©w­n¥ýÂI«ö ¥ª¤U¤èªº "¦^´_" ¿ï¶s
¦A¦æ§@µª¡C§_«h¹ï¤è¬O¤£ª¾¹D©p¤w¦^´_¤F¡A´N¦n¤ñ¬O§A·|¬Ý¨ì "¦³(1)®ø®§" ªº°T®§±¡ªp¡C
ÁÙ¦n GBKEE ª©¤j¦³¯d·N¨ì¡A§_«h¤@¯ë·í¨Æ¤H·|¤£ª¾¹D¦]¦¹¦ÓµLªkµªÂЩpªº¡C   
®¥³ß©p²×©ó±o¨ì¸Ñµª¤F¡I  
(P.S.  ³o¬O¤Þµo©p¥ý¦æ¤W¶ÇÀɮתº¥Øªº¡AGBKEE ª©¤j¤£¦n·N«ä®@)

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD