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

¶}±Ò¦h­ÓÀÉ®× ½Æ»s¶K¤W(¶i¶¥°ÝÃD)???

¶}±Ò¦h­ÓÀÉ®× ½Æ»s¶K¤W(¶i¶¥°ÝÃD)???

¤j®a¦n¡Aª¦¤F«Ü¦h ¤å   ¬Ý¨ì¶W¯Åª©¥DHsieh ªºµ{¦¡¤À¨É¨Ó¥Î,«oÁÙ¬O¤£ª¾¸Ó«ç»ò§¹¦¨§Ú·Q­nªº¥\¯à
§Ú·Q°µªº¨Æ¬O:
¥´¶} "¶}ÀɶK¤W.xlsm"
1. «ö"¥[¤JÀÉ®×"ªº«ö¶s¡A¿ï¾Ü¦h­ÓÀÉ®×
2. ±N¿ï¾ÜªºÀɮ׸ô³w+ÀɮצWºÙ ¶ñ¼g¨ì AÄæ¦ì
3. ±N AÄæ¦ìªº¸ê®Æ¥´¶},¨Ã¦Û°Ê¶K¦b¦Û°Ê·s¼WªºSheet¤W   ..............¤@ª½bug
¥Ø«e¤wÁo©¹½àª¦»D¨ìµ{¦¡½X¦p¤U


fds = Application.GetOpenFilename("Excel Files (*.xlsm;*.xlsx), *.xlsm;*.xlsx", , , , True)
                                
If IsArray(fds) Then
For i = 1 To UBound(fds)
   [A2].Offset(i - 1) = fds(i)
Next
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sheets("¤u§@ªí1").Activate
For Each a In Range([A2], Cells(Rows.Count, 1).End(xlUp))
    With Workbooks.Open(a)...............................................................................................³o¸Ì¥X²{¿ù»~
    .Sheets.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    .Close 0
  End With
  Next
°õ¦æ®É¥i°õ¦æ¦ý°õ¦æ§¹«á³£·|¥X²{

1004  §ä¤£¨ì". ½Ð½T»{ÀɦW¬O§_¥¿½T¤Î¸ô®|¬O§_¥¿½Tªº°ÝÃD       ¦p¤U:
issue3.png
2020-1-30 15:25



½Ð¦U¦ì¤j¯«À°¦£
Ian

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD