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

module ªº¦ì¸m?

¦^´_ 1# alex520188
¬O³o¼Ë¶Ü?
  1. Sub Ex()
  2.     Dim FileName As String, FilePath As String
  3.         FileName = Range("A1")          'ÀɮצWºÙ
  4.         FilePath = "D:\"                '¸ô®|
  5.         Workbooks.Open FilePath & FileName
  6.         Run FileName & "!TEST"          '¨C¤@ÀÉ®×¶·¬O¤@¼Ëªº¥¨¶°¦WºÙ
  7. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD