Board logo

¼ÐÃD: [µo°Ý] ·Q½Ð±Ð¬O§_¦³¤ñ¸û²³æªº§@ªk [¥´¦L¥»­¶]

§@ªÌ: ¤p¸ô¦èªk    ®É¶¡: 2018-8-8 10:45     ¼ÐÃD: ·Q½Ð±Ð¬O§_¦³¤ñ¸û²³æªº§@ªk

[attach]29168[/attach]·Q½Ð±Ð¦U¦ì«e½ú~§Ú¦³¤@­ÓÀÉ®×ùØ­±ªº¸ê°T­n¤À§O¦s¨ì³æ¿Wªº¬¡­¶Ã¯¸Ì­±¨Ã³]©wÀÉ®×ùØ­±ªº¬Y¤@Àx¦s®æ¬°ÀɦW~
·Q½Ð°Ýªº¬O¦³§ó²³æªºvba¼gªk¶Ü?ÁÙ¬O¥u¯à³o¼Ë­«½Æ½Æ»s2-30­Ó³o¼Ëªºvba~·Pı¦n¦h@@

·PÁÂ!!{:3_46:}
§@ªÌ: a5007185    ®É¶¡: 2018-8-8 15:05

¥Ø«e¬Ý¤U¨Ó§A°ß¤@·|Åܪº´N¥u¦³¬¡­¶Ã¯1¡B¬¡­¶Ã¯2¡B¬¡­¶Ã¯3¡B¬¡­¶Ã¯4....
§A¥i¥H°w¹ï³o³¡¤À°µ³]­p¡A
¤£¹L§A¦³§ó¨ãÅé§ó§¹¾ãªº¤º®e¶Ü¡H

³o¼Ë«Ü®e©ö·|»~·|§Aªº»Ý¨D¡C
§@ªÌ: ¤p¸ô¦èªk    ®É¶¡: 2018-8-8 16:20

[attach]29171[/attach]¦^´_ 2# a5007185
¤£¦n·N«ä~¦]¬°¤p§Ì¥u·|²³æªº¿ý»s³oÃä¿ý¤@¬q¨ºÃä¿ý¤@¬q~µM«á¦bªF«÷¦è´êªº@@¦³®É°ÝÃD­Y¤£©ú½T½Ð¨£½Ì~¥t¥~·Q½Ð±Ð¤@­Ó°ÝÃD~¦pªþ¹Ï~«D±`·PÁÂ
§@ªÌ: a5007185    ®É¶¡: 2018-8-8 16:24

½Ð°Ý§A¥D­nªº¥Øªº¬O¤£¬O­n±N·J¾ã¦nªº¤u³æ¡A
¥H¤À­¶§@¬°³æ¦ì¡AµM«á©î¤À¦¨¿W¥ßÀɮסH
­Y¤u³æ¤ºµL¤º®e«hª½±µ¸õ¹L¡H
§@ªÌ: ¤p¸ô¦èªk    ®É¶¡: 2018-8-8 16:53

¥»©«³Ì«á¥Ñ ¤p¸ô¦èªk ©ó 2018-8-8 16:55 ½s¿è

¦^´_ 4# a5007185
¬Oªº!!
­ì¨Ó§Úªí¹F¯à¤OÁÙ¤£°÷£½£¿«D±`©êºp
§@ªÌ: a5007185    ®É¶¡: 2018-8-8 17:05

¤è«K´£¨Ñ½d¨ÒÀɶܡH
§@ªÌ: ¤p¸ô¦èªk    ®É¶¡: 2018-8-9 10:37

[attach]29183[/attach]¦^´_ 6# a5007185

¥Hªþ¤WÀÉ®×~·PÁÂ
§@ªÌ: Kubi    ®É¶¡: 2018-8-9 20:56

¦^´_ 7# ¤p¸ô¦èªk
½Ð±Ð¤@¤U¡G
1.·í¶×¥XªºÀɮצsÀɮɡAµo²{¸ô®|¤¤¤w¦s¦b¬Û¦PÀɦW®ÉÀ³¦p¦ó³B²z¡H
2.¬O¥t¥~¥Î¤@­ÓÀÉ®×(*.xlsm)¨Ó¾Þ±± "¥X³fªí1070807-0808¦­.xlsx" ªº¸ê®Æ¶×¥X¦¨·sÀÉ¡H
ÁÙ¬O±N"¥X³fªí1070807-0808¦­.xlsx"Âন§t¥¨¶°ªºxlsmÀɨӳB²z¶×¥X¡H
§@ªÌ: a5007185    ®É¶¡: 2018-8-10 08:47

¦^´_ 7# ¤p¸ô¦èªk


§Ú¤w¸g¬Ý¨ì§AªºÀɮסA
¦ý§Ú¸ò§Ú·Q¹³¤¤ªº¦³ÂI¸¨®t¡A
§Ú·Q§ó½T»{§A¹ê»Úªºª¬ªp¡A
³o¼Ë¤ñ¸û¦nµ¹§A¤ñ¸û·Ç½Tªºµª®×¡A
¥H¨p°T§A§ÚªºLine¡A
¦pªG¦³¨ä¥LªºÁpô¤è¦¡¡A
§Ú­Ì¨p¤U·¾³q¡C

p.s ³Ì«á§Ú¤]·|§â¹Lµ{PO¤W¨ÓÅý¤j®a¤@°_°Ñ¦Ò
§@ªÌ: ¤p¸ô¦èªk    ®É¶¡: 2018-8-10 09:20

¦^´_ 8# Kubi
§A¦n~°ò¥»¤W¦]¸Ó¤£·|¦³­«½Æªº~¦³³]©wf1¬°ÀɦW~
§@ªÌ: GBKEE    ®É¶¡: 2018-8-11 09:38

¦^´_ 10# ¤p¸ô¦èªk
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng(1 To 2) As Range, xPath As String
  4.     xPath = "C:\Users\Eternity\Desktop\·s¼W¸ê®Æ§¨ (3)\"
  5.     Set Rng(1) = Workbooks("¥X³fªí1070807-0808¦­ (version 1).xlsb").Sheets("¤u§@ªí1").Range("A2:H9")
  6.                                     '**Rng(1)-> ©Ò«ü©wªº²Ä¤@­Ó½d³ò
  7.     Set Rng(2) = Rng(1).Range("F1") '**«ü©w½d³òªº"F1"
  8.     Do While Rng(2) <> ""           '**«ü©w½d³òªº"F1"¦³¦sÀɪº¦WºÙ,¬O°j°é°õ¦æ¤U¥hªº±ø¥ó.
  9.         With Workbooks.Add(1)       '**½Ð¬d¬Ý Excel ¶}µo¤H­û°Ñ¦Ò¸ê®Æ-> Workbooks.Add ¤èªk °Ñ¼Æ 1 ¬° xlWBATWorksheet
  10.             Rng(1).Copy .Sheets(1).Range("a1")
  11.             .SaveAs xPath & Rng(2)
  12.             .Close
  13.         End With
  14.         Set Rng(1) = Rng(1).Offset(9)  '** ¤U¤@­Ó©Ò«ü©wªº½d³ò»P¤W¤@­Ó½d³ò©T©w®t9­Ó¦C
  15.         Set Rng(2) = Rng(1).Range("F1")
  16.     Loop
  17. End Sub
½Æ»s¥N½X

§@ªÌ: a5007185    ®É¶¡: 2018-8-16 16:22

¦^´_ 10# ¤p¸ô¦èªk

½Ð°Ñ¦Ò
    [attach]29230[/attach]




Åwªï¥úÁ{ ³Â»¶®a±Ú°Q½×ª©ª© (http://forum.twbts.com/)