VBA 从电子表格最后一行的单元格获取数字时遇到问题，将 1 添加到该数字并粘贴到不同的、已打开的电子表格中

Question

已经四处寻找并尝试了很多方法来实现上述目的。 我有一个“我的报价”模板电子表格，其中“报价”表的单元格“I1”中有一个报价编号。 打开该电子表格后，我希望 VBA 代码转到另一个（未打开的）“报价列表”电子表格，找到最后一行并查看“报价”表 A 列中的最后一个报价编号。 然后，我希望复制该数字，添加“1”并将其粘贴到已打开的“我的报价”电子表格的单元格“I1”中（即找到最后一个报价编号，例如“报价列表”电子表格中的 3001，复制并将 3002 粘贴到“我的报价”电子表格中）。

下面是我到目前为止所尝试过的，尽管它立即错误地显示“Set wb1 = Workbooks("C:\Quotes\Quote List.xlsx")”。

（路径和电子表格名称/类型正确。）。我使用的是 Office 2019 中的 Excel。

Sub Workbook_Open()
Dim wb1 As Workbook 'Quote List
Dim wb2 As Workbook 'My Quote
Dim ws1 As Worksheet 'Quotes
Dim ws2 As Worksheet 'Quote

Set wb1 = Workbooks("C:\Quotes\Quote List.xlsx")
Set ws1 = wb1.Sheets("Quotes")
Set wb2 = ActiveWorkbook
SourcePath = "C:\Quotes"
Set ws2 = wb2.Sheets("Quote")
lastrow = ws1.Cells(ws.Rows.Count, "A").End(xlUp).Row
ws2.Range("I1").Value = ws1.Range(lastrow).Value + 1

End Sub

感谢您的帮助。

Answer 1

Sub Workbook_Open()
    Dim wb1 As Workbook 'Quote List
    Dim wb2 As Workbook 'My Quote
    Dim ws1 As Worksheet 'Quotes
    Dim ws2 As Worksheet 'Quote

    Set wb2 = ThisWorkbook
    Set wb1 = Workbooks.Open("C:\Quotes\Quote List.xlsx")
    Set ws1 = wb1.Sheets("Quotes")
    ' SourcePath = "C:\Quotes"
    Set ws2 = wb2.Sheets("Quote")
    ws2.Range("I1").Value = ws1.Cells(ws.Rows.Count, "A").End(xlUp).Value + 1
End Sub