Fatal编程技术网
  • function/
  • Function 请参阅带有公式的临时工作簿

Function 请参阅带有公式的临时工作簿

function vba excel

Function 请参阅带有公式的临时工作簿,function,vba,excel,formula,Function,Vba,Excel,Formula,您如何将此公式=LEFT（A1，搜索（“发票”，A1,1）-1）放入VBA中，以便将此公式放入临时工作簿单元格？如下所示 Dim oBook as Excel.workbook set oBook = workbooks.add oBook.sheets(1).range("B1").formula = "=LEFT(A1,SEARCH(""invoice"",A1,1)-1)" oBook.close 什么是临时工作簿单元格？@KimGysen抱歉，我的意思是，公式将在临时工作簿中。您

您如何将此公式
=LEFT（A1，搜索（“发票”，A1,1）-1）
放入VBA中，以便将此公式放入临时工作簿单元格？

如下所示

Dim oBook as Excel.workbook 

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

oBook.close
什么是临时工作簿单元格？@KimGysen抱歉，我的意思是，公式将在临时工作簿中。您是在寻找在临时工作簿范围内填充常规公式的语法，还是在搜索函数方面遇到问题？@KimGysen我对这两个问题都有意见，除此之外，这种编码不起作用，不幸的是它不起作用，它出现了错误：“陈述结束”Kim Gysen：考虑在内部双上加倍。quotes@Gary“学生谢谢你的通知，我编辑了答案。@KimGysen它仍然不起作用，它出现了错误‘运行时错误’1004’，它是应用程序定义的或对象定义的error@Abi迪克·库斯莱卡同时纠正了我的错误。我添加了单引号，而不是Gary的学生提到的双引号。我被目前正在使用的另一种语言弄糊涂了。对不起！