ªð¦^¦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 : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD