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

EXCEL §ì¨ú¥t¤@­Ó EXCEL ªÅ¥Õ¥X²{0

EXCEL §ì¨ú¥t¤@­Ó EXCEL ªÅ¥Õ¥X²{0

Sub «ö¶s12_Click()
    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

§Ú¥ÎEXCEL §ì¨ú Tmp EXCEL ¸ê®Æ  ¦ý¬O§Ú¤£½T©w³o­Ó¸ê®Æ¨ì´X¦æ  ©Ò¥H¼g¨ì999   ¦ý¬O   ªÅ¥ÕÀx¦s­Ó·|¦^¶Ç0
³o³¡¤À¦³¤H²M·¡¦p¦ó§ó§ï¶Ü?
ªÅ¥Õ°Ï¶ô§ÚÁÙ¬O­nÅý¦o¦^¶ÇªÅ¥Õªü

¦^´_ 1# iwiniwin


    ¨º´N¥Î¬d¸ß¸ÓÄ檺³Ì«á¦ì§}ªº¤è¦¡¥h°µ

Sub «ö¶s12_Click()
    Dim sPath As String
    sPath = ThisWorkbook.Path & "\"
   
    Workbooks.Open (sPath & "tmp.xlsx")
        ARow = Workbooks("tmp.xlsx").Sheets("tmp").Columns(1).Find("*", , , , , 2).Row
        CRow = Workbooks("tmp.xlsx").Sheets("tmp").Columns(3).Find("*", , , , , 2).Row
    Workbooks("tmp.xlsx").Close
   
    Range("A1:A" & ARow).FormulaArray = "='" & sPath & "[tmp.xlsx]tmp'!A1:A" & ARow
    Range("B1:B" & CRow).FormulaArray = "='" & sPath & "[tmp.xlsx]tmp'!C1:C" & CRow
   
End Sub

TOP

¦^´_ 1# iwiniwin


   
ªÅ¥ÕÀx¦s­Ó·|¦^¶Ç0 ³o³¡¤À¦³¤H²M·¡¦p¦ó§ó§ï¶Ü?


·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD