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

[µo°Ý] ¥i¥H§âvariable©w¸qÀɦW¡H

[µo°Ý] ¥i¥H§âvariable©w¸qÀɦW¡H

Fname ¥i¥H«ç¼Ë©w¸q¤~¦pthisworkbook¤@¼Ë¥i¥Î.name/.path ªº¤èªk¨ú±o¸ô®|¤ÎÀɦW¡H
¦]¬°¦³¦h­ÓÀɮ׻ݭn¦s¨ú¦ÓselectÀɮ׮ɭn¥ÎµuÀɦW¡A¦s¨ú®É«o­n¥Î¨ìªøÀɦW
³o¼Ë·|¥Î¤W¤Ó¦hvariable¦Ó¥B¤ñ¸û²V¶Ã¡C¦³¤èªk¶Ü¡H·PÁ¡I

a = C:\excel
b = abc.xlsx
c = C:\excel\abc.xlsx
  1. Sub Macro1()
  2. Dim Fname As ?????
  3. Fname = "C:\excel\abc.xlsx"
  4. a = Fname.Path
  5. b = Fname.Name
  6. c = Fname.Fullname
  7. End Sub
½Æ»s¥N½X

¦^´_ 2# GBKEE
§Ú·Q±NFname¥i¥H¥Î¤W.name¤Î.path¡AÅý§Ú¥i¥H¥Î Fname.path ¥Nªí C:\excel¡A Fname.name ¥Nªí abc.xlsx
Ãþ¦üthisworkbookªºÃþ§Î¡C

¯¬ ·s¦~¶i¨B¡I

TOP

¦^´_ 4# GBKEE
¤j¬ù¦p¦¹¡A¦ý¥i§_¦b¤£»Ý­n¶}±ÒFname ±¡ªp¤U§@workbook©w¸q¡H
¦]¬°Fname¥i¯à¤w¸g¥Ñ¤H¤â©Î¨ä¥Lsub©Ò¶}±Ò¤F

TOP

¦^´_  zxcxz
¸Õ¸Õ¬Ý
GBKEE µoªí©ó 2014-2-1 10:58

«Ü¾A¦X¡I·P¿E:handshake

TOP

¤S¹J¤W·s°ÝÃD©w¸q¬°GetObject«á
Workbooks.Open (Fname.FullName) ¥i¥Î
Fname.Name.Select ¤£¯à¥Î
Windows(Fname.Name).Close ¤£¯à¥Î

TOP

¦^´_ 9# GBKEE
Thanks anyway

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD