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

«æ!«æ!·Q½Ð°Ý¼g¥X¿ï¾Ü©Ê¶×¤J¸ê®Æªº¤èªk(¤w¦³¤@¬qµ{¦¡½X,¦ý¤£ª¾¹D¦p¦ó§ï¼g))

¦p¦ó¸Ñ?????°õ¦æ¶¥¬q¿ù»~"1004"

¦¹µ{¦¡·|¥X²{ERRORª«¥ó©w¸q¿ù»~

issue_2.png
2020-1-30 11:17


¦U¦ì¤j¤j¦n

¤§«e¦b¦¹½×¾Â¤W¨Ï¥Î¤@­Óvbaµ{¦¡,¥i¿ï¨ú¸ô¸g¸ê®Æ§¨ªºÀɮרèϨä¦ÛªF½Æ»s«á¶K¤W«ü©wªºSHEET
¦ý«o¥X²{             °õ¦æ¶¥¬q¿ù»~"1004"   
                              §ä¤£¨ì". ½ÐÀˬdÀɦW¬O§_¦³«÷¿ù,©ÎÀɮצì¸m¬O§_¥¿½T.

µ{¦¡¦p¤U
Sheets("¤u§@ªí1").Activate

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¥y¥X²{ERROR
    .Sheets.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    .Close 0
  End With
  Next

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

Range("A2").Select
Columns("A:A").EntireColumn.AutoFit
Sheets("¤u§@ªí1").Activate
   
End Sub

·Q³Â·Ð¦U¦ì¤j¤j¬Ý¤U,À°­Ó¦£¶Ü?
Ian

TOP

«æ!«æ!·Q½Ð°Ý¼g¥X¿ï¾Ü©Ê¶×¤J¸ê®Æªº¤èªk(¤w¦³¤@¬qµ{¦¡½X,¦ý¤£ª¾¹D¦p¦ó§ï¼g))

½Ð°Ý¦U¦ì¤j¤j
¥H¤U¨â¬qµ{¦¡½X¬O
1.¶}±Ò¸ê®Æ§¨Åª¨ú©Ò­nªºÀɮ׸ô®|³sµ²
2.§â¶}±Òªº³sµ²ÀÉ®×¥´¶} ¨Ã±NÀɮפºªºsheet¸ê®Æ¶×¤J
°ÝÃD¬O·í·Q­n¶×¤Jªº¸ê®Æ¦³«Ü¦hsheet,·Q«ü©w¶×¤J¬Y­Ósheetªº¬Y¤@Äæ¦ì©Î¬Y¤@¦C¸ê®Æ®É,­n«ç»ò§ï¼g

ÁÂÁ¦U¦ì«ü±Ðªü
  1. Sub DATA_INPUT()

  2. fds = Application.GetOpenFilename("Excel Files (*.xlsm;*.xlsx), *.xlsm;*.xlsx", , , , True)
  3.                                 
  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. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  10. On Error Resume Next  '''''' ¿ù»~¸õ¹L
  11. For Each a In Range([A2], Cells(Rows.Count, 1).End(xlUp))
  12.   With Workbooks.Open(a)
  13.       .Sheets.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
  14.      .Close 0
  15.   End With
  16. Next
  17. On Error GoTo 0 '''''''''''''¿ù»~¸õ¹L'''''''''''
  18. End Sub
½Æ»s¥N½X
Ian

¦^´_ 4# GBKEE
½Ð°Ý¤@¤U
§Ú·Q§ï¼gªº¬O

    .Sheets.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
¤W¦¡**¬°©Ò¶}±Ò¬¡­¶Ã¯¤W©Ò¦³¤u§@ªí½Æ»s¨ìThisWorkbook(°õ¦æ¥¨¶°ªº¬¡­¶Ã¯)¤U

(§â©Ò¦³¶}±Òªº¬¡­¶Ã¯¤Wªº¬Y¤@¤u§@ªí ¤¤ªº(¦C¦p:Sheet("C").Range("A39:D99")¦Û°Ê½Æ»s¨ì§Ú«ü©wªºsheet(ie:"¤u§@ªí2")ªºA1¶}©l)
¦]¬°¶}±Òªº¤u§@ªí¥i¯à¦³«Ü¦h­Ó(ie:sheet("C")/Sheet("C1") /Sheet("C2")....¦ý¨C­Ósheet¸Ì §Ú¥u­nRange("A39:D99"),
¥i¥H§ï¼g¦¨   .Sheets.Range("A39:D99").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

TKS
Ian

TOP

¦^´_ 2# GBKEE

·P¿E¤£ºÉ
Ian

TOP

Error1.png
2020-4-29 13:47
Error2.png
2020-4-29 13:49
¦^´_ 7# GBKEE


    ½Ð°Ý¤j¤j
§Ú¦³ªþ¤W¨â±i¹Ï¤ù
1.¬O ¿ù»~°T®§
2.¬O§Úªº¾Þ§@·§©À
¤£ª¾¹D§A³o¼Ë¦³¨S¦³¤ñ¸û©ú¥Õ§Úªº·N«ä


·PÁ«ü±Ð
Error1.png
Ian

TOP

¦^´_ 9# GBKEE

ÁÂÁÂ!¤j¤jªºÀ°§U!
    ·P¿E¤£ºÉ!
Ian

TOP

        ÀR«ä¦Û¦b : «Î¼e¤£¦p¤ß¼e¡C
ªð¦^¦Cªí ¤W¤@¥DÃD