尝试在Excel VBA中创建自动开票

我正在尝试从excel中的客户数据列表创建自动发票。我有使用宏和一些VBA的经验，但以前没有这么深入的经验。我复制我想要的基本模板。我复制了大部分结构并改变了我所需要的，但它对我不起作用。我试图自己解决这个问题，并研究其他方法，但恐怕我现在已经不知所措了。这是我的代码，我得到一个“运行时错误1004”。如果有人能告诉我需要什么来修复它，我将不胜感激

代码：

---

也许您应该试试这个，找到列A中的最后一行，并解决“运行时错误1004”：

With Sheets("Greenway")
    lastrow = .Range("A" & .Rows.Count).End(xlUp).Row
End With

或：

而不是：

lastrow = Sheets("Greenway").Range(“A” & Rows.Count).End(xlUp).Row

customer = ThisWorkbook.Sheets(“Greenway”).Cells(r, 3).Value

请注意

行

之前的点（

）分隔符，以指示您要获取图纸的属性行（“绿道”）对象

---

对于现在出现的错误“运行时错误9”，请尝试：

customer = Sheets("Greenway").Cells(r, 3).Value

而不是：

lastrow = Sheets("Greenway").Range(“A” & Rows.Count).End(xlUp).Row

customer = ThisWorkbook.Sheets(“Greenway”).Cells(r, 3).Value

---

希望有用

哪一行抛出了错误？这一行：lastrow=Sheets（“Greenway”）.Range（“A”&Rows.Count”）.End（xlUp）。row为什么我们需要超出该行的任何代码？谢谢，解决了这个问题！但现在我在这一行得到了“运行时错误9”：customer=Sheets（“Greenway”）.Cells（r，3）。Value@asutter：我更新了答案以解决运行时错误9。如果有效，您应该对其他变量customerid、providercount、basefee等应用相同的解决方案@asutter:My荣幸：）