¶}±Ò¦hÓÀÉ®× ½Æ»s¶K¤W(¶i¶¥°õ¦æ°ÝÃD).....«æ
- ©«¤l
- 27
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 38
- ÂI¦W
- 0
- §@·~¨t²Î
- window
- ³nÅ骩¥»
- window7
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2019-12-12
- ³Ì«áµn¿ý
- 2021-4-21
|
¶}±Ò¦hÓÀÉ®× ½Æ»s¶K¤W(¶i¶¥°õ¦æ°ÝÃD).....«æ
¤j®a¦n¡Aª¦¤F«Ü¦h ¤å ¬Ý¨ì¶W¯Åª©¥DHsieh ªºµ{¦¡¤À¨É¨Ó¥Î,«oÁÙ¬O¤£ª¾¸Ó«ç»ò§¹¦¨§Ú·Qnªº¥\¯à
§Ú·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- Sub DATA_INPUT()
- Sheets("¤u§@ªí1").Activate '''''''''¬°§Ú§â¥¨¶°«ü¥O©ñ¦b"¤u§@ªí1"
- 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))
- [color=Yellow]With Workbooks.Open(a)[/color]..........................................................error ¨Ó·½
- .Sheets.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
- .Close 0
- End With
- Next
- Sheets("¤u§@ªí1").Activate
- End Sub
½Æ»s¥N½X ³Â·Ðª©¤Wªº¤j¯«
tks |
|
Ian
|
|
|
|
|
- ©«¤l
- 27
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 38
- ÂI¦W
- 0
- §@·~¨t²Î
- window
- ³nÅ骩¥»
- window7
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2019-12-12
- ³Ì«áµn¿ý
- 2021-4-21
|
¦^´_ 2# ã´£³¡ªL
Hello ª©¥D
½Ð±Ð????
§Úµo²{ì¨Ó¦bA columnn§¹¥þªÅ¥Õ;¥un¦³¥ô¦ó¤å¦rerror´N·|²£¥Í
¨D¸Ñ???
|
|
Ian
|
|
|
|
|
- ©«¤l
- 27
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 38
- ÂI¦W
- 0
- §@·~¨t²Î
- window
- ³nÅ骩¥»
- window7
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2019-12-12
- ³Ì«áµn¿ý
- 2021-4-21
|
¦^´_ 4# jackyq
ok..·d©w¤F,ÁÂÁ«ü±Ð
·PÁÂ |
|
Ian
|
|
|
|
|
- ©«¤l
- 27
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 38
- ÂI¦W
- 0
- §@·~¨t²Î
- window
- ³nÅ骩¥»
- window7
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2019-12-12
- ³Ì«áµn¿ý
- 2021-4-21
|
¦^´_ 5# ã´£³¡ªL
oK,·d©w¤F
·PÁª©¥DÀ°¦£ |
|
Ian
|
|
|
|
|