Google了一下，想用VBA寫，但目前狀況Sub可執行但不能改成Function。
求解，程式碼如下：
(成功)
Sub pullout()
path = "D:\"
workbookName = "Book1.xls"
worksheetName = "sheet1"
CELL = "A1"
returnedValue = "'" & path & "[" & workbookName & "]" & _
worksheetName & "'!" & Range(CELL).Address(True, True, xlR1C1)
Debug.Print returnedValue
[D2] = ExecuteExcel4Macro(returnedValue)
End Sub
(失敗)
Private Function RETRIEVE(path, workbookName, worksheetName, CELL)
returnedValue = "'" & path & "[" & workbookName & "]" & worksheetName & "'!" & Range(CELL).Address(True, True, xlR1C1)
RETRIEVE = ExecuteExcel4Macro(returnedValue)
End Function |
發表於 2014-9-22 12:08
| 
