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

EXCEL VBA §ì¨ú¸ê®Æ°ÝÃD

EXCEL VBA §ì¨ú¸ê®Æ°ÝÃD

§Ú¦³¤@­Óµ{¦¡¦p¤U  §Ú·|¥h§ìtmp ¸ê®Æ
¦ý¬O§ÚÂI¨ì­þ­ÓSHEET  ¥L´N·|³o­Ó­ÓSHEET °õ¦æ¤U­±µ{¦¡½X
½Ð°Ý  §Ú¬O·QÅý¥LSHEET3 °õ¦æ¤U­±ªºµ{¦¡½X?
¦³¤H·|§ï¼g¶Ü?



Sub GetValue()
    Dim sPath As String
    sPath = ThisWorkbook.Path & "\"
    Range("A1:A999").FormulaArray = "='" & sPath & "[tmp.xlsx]tmp'!A1:A999"
    Range("B1:B999").FormulaArray = "='" & sPath & "[tmp.xlsx]tmp'!C1:C999"

End Sub

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD