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

[µo°Ý] ½Ð°Ý1¨Ç·h²¾ªº°ÝÃD

¦^´_ 2# mark15jill
Name³¯­z¥y­«·s©R¦WÀɮרñN¤§²¾¨ì¤@­Ó¤£¦Pªº¥Ø¿ý©Î¸ê®Æ§¨¤¤¡C¦p¦³¥²­n¡AName¥i¸ó¶VºÏºÐ¾÷²¾°ÊÀɮסC¦ý·ínewpathname©Moldpathnamebut³£¦b¬Û¦PªººÏºÐ¾÷¤¤®É¡A¥u¯à­«·s©R¦W¤w¸g¦s¦bªº¥Ø¿ý©Î¸ê®Æ§¨¡CName¤£¯à«Ø¥ß·sÀɮסA¥Ø¿ý©Î¸ê®Æ§¨¡C
¨Ï¥Î Name «ü¥O¦b¤@­Ó¤w¶}±ÒªºÀɮפW¡A±N·|²£¥Í¿ù»~¡A·Q­n§ïÅܤ@­Ó¤w¶}±ÒÀɮתº¦WºÙ¤§«e¡A§A¥²¶·¥ýÃö³¬¥¦¡AName ¤Þ¼Æ¤£¯à¥]¬A¸U¥Î¦r¤¸ ( * ©M ? )¡C
  1. Sub Ex()
  2.     Dim TheFile$, A$, F$
  3.     For Each e In Range("G2", [G2].End(xlDown))
  4.         TheFile = ThisWorkbook.Path & "\" & "excel¦s©ñ°Ï\" & e & ".xls"
  5.         A = Dir(TheFile)
  6.         If A <> "" Then
  7.             F = ThisWorkbook.Path & "\" & "¸ê®Æ§¨¦s©ñ°Ï\" & e(1, 2)
  8.             Name TheFile As F & "\" & A
  9.         End If
  10.     Next
  11. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# mark15jill
¦]¬°¦pªG¬O¦PºÏºÐ°Ï¥i¦æªº¸Ü ¨º´N¤£¥Î§â¤ñ¹ïªí·h²¾¹L¥h,¦pªG¤£¥i¦æªº¸Ü ¨º´N±o·h²¾¹L¥h¤F
¬Ý¤£À´§Aªº·N«ä
Name   "D:\TEST.XLS"  As   "C:\TEST1.XLS"   
¬O¥i¦æªº

TOP

¦^´_ 7# mark15jill
  1. Sub Ex()
  2.     Dim E As Range, TheFile$, A$, F$
  3.     For Each E In Range("G2", Cells(Rows.Count, "G").End(xlUp))
  4.         If E <> "" Then
  5.             TheFile = ThisWorkbook.Path & "\" & "excel¦s©ñ°Ï\" & E & ".xls"
  6.             A = Dir(TheFile)
  7.             If A <> "" Then
  8.                 F = ThisWorkbook.Path & "\" & "¸ê®Æ§¨¦s©ñ°Ï\" & E(1, 2)
  9.                 Name TheFile As F & "\" & A
  10.             End If
  11.         End If
  12.     Next
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 9# mark15jill
½Ð¬d¬Ý vbaªº»¡©ú  ¿ù»~ªºÀɮצWºÙ©Î¼Æ¥Ø (¿ù»~ 52)
Àˬd ¬Ý¬Ý§A¦³¥Ç¨ì¨º¸Ìªº¿ù»~

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-18 20:32 ½s¿è

¦^´_ 11# mark15jill
§A¦³¬Ý¨S¦³À´!
¨S¦³§AªºÀɮפΥؿý §Ú¤]µLªk«×.
½Ð¦p1¼ÓªþÀɯë,¦A±N¦³¿ù»~ªºÀɮתþ¤W¨Ó.

TOP

¦^´_ 13# mark15jill
©êºp,®Ú¾ÚªþÀÉ §ä¤£¨ì¿ù»~.

TOP

¦^´_ 15# mark15jill
§Ú©Ò¿×ªº¿ù»~¦³2
1.´N¬O¤W­±ªº¨ººØ±¡§Î©M¹Ï
2.¨S¿ìªk·h²¾¨ì­Ó§O¸ê®Æ§¨

¤£¬O ¿ù»~ªºÀɮצWºÙ©Î¼Æ¥Ø (¿ù»~ 52) ¶Ü?
¤w¨Ì¾Ú§A¤W¶ÇÀÉ®× ´ú¸Õ¨S¦³µo¥Í°Ú!

TOP

¦^´_ 17# mark15jill
¦A´ú¸Õ¤@¦¸¤F,ÁÙ¬O¨S¦³¿ù»~!
Àɮ׳£·h¨ì«ü©wªº¸ê®Æ§¨.

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD