function - 参考带有公式的临时工作簿

Question

您将如何将此公式=LEFT(A1,SEARCH("invoice",A1,1)-1)放入 VBA 中，以便此公式将放入临时工作簿单元格中？

Answer 1

像这样？

Dim oBook as Excel.workbook 

set oBook = workbooks.add
oBook.sheets(1).range("B1").formula = "=LEFT(A1,SEARCH(""invoice"",A1,1)-1)"

oBook.close