lpk187

¦^´_ 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