ªð¦^¦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ª¦¤å¨ìµ{¦¡½X¦p¤U
  1. Sub DATA_INPUT()
  2. Sheets("¤u§@ªí1").Activate     '''''''''¬°§Ú§â¥¨¶°«ü¥O©ñ¦b"¤u§@ªí1"

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

  9. Sheets("¤u§@ªí1").Activate

  10. For Each a In Range([A2], Cells(Rows.Count, 1).End(xlUp))
  11.     [color=Yellow]With Workbooks.Open(a)[/color]..........................................................error ¨Ó·½
  12.     .Sheets.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
  13.     .Close 0
  14.   End With
  15.   Next
  16. Sheets("¤u§@ªí1").Activate
  17. End Sub
½Æ»s¥N½X
³Â·Ðª©¤Wªº¤j¯«
tks
Ian

µ{¦¡½X¬Ý¨Ó¨S°ÝÃD,
¤]¥i¥¿½T°õ¦æ~~

TOP

¦^´_ 2# ­ã´£³¡ªL


    Hello ª©¥D
½Ð±Ð????
  §Úµo²{­ì¨Ó¦bA column­n§¹¥þªÅ¥Õ;¥u­n¦³¥ô¦ó¤å¦rerror´N·|²£¥Í
  ¨D¸Ñ???

ISSUE1.png
2020-1-31 17:35
Ian

TOP

¥»©«³Ì«á¥Ñ jackyq ©ó 2020-1-31 20:23 ½s¿è

on error resume next  ' §â¿ù»~¸õ¹L¥h´N¦n¤F

For Each a In Range([A2], Cells(Rows.Count, 1).End(xlUp))
    With Workbooks.Open(a)
    .Sheets.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    .Close 0
   End With
  Next
Sheets("¤u§@ªí1").Activate

on error goto 0

TOP

¦^´_ 3# iverson105

¸ü¤JÀɮײM³æ«e, À³±NAÄæ²MªÅ
Sub DATA_INPUT()
Sheets("¤u§@ªí1").Activate
Range([A2], Cells(Rows.Count, 1).End(xlUp)(2)).ClearContents
Äò~­ìµ{¦¡½X~~
End Sub

=========================
¶}±ÒÀɮ׫e, ¥ý¥ÎDIRÀˬd¬O§_¦s¦b~~
If Dir(A) <> "" Then   
    With Workbooks.Open(A)
         .Sheets.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
         .Close 0
    End With
End If  


========================

TOP

¦^´_ 4# jackyq

ok..·d©w¤F,ÁÂÁ«ü±Ð
·PÁÂ
Ian

TOP

¦^´_ 5# ­ã´£³¡ªL

oK,·d©w¤F
·PÁª©¥DÀ°¦£
Ian

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD