ªð¦^¦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 : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD