使用实际路径（VBA）将行数据保存到不同的工作簿

Question

你可以帮我找错吗？我需要通过按钮将一些值发送到不同的工作簿并保存并关闭（相对路径）

Sub test()
Dim radek As Integer
Dim radeklist As Integer
Dim seznam As Workbook

For radek = 47 To 47
Set seznam = Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & "SEZNAM_VYDANYCH_DOKUMENTU.xlsm")
radeklist = seznam.Sheets("SEZNAM_VYDANYCH_DOKUMENTU").Cells(Rows.Count, 1).End(xlUp).Row + 1

seznam.Sheets("SEZNAM_VYDANYCH_DOKUMENTU").Range("A" & radeklist & ":G" & radeklist).Value = .Range("B" & radek & ":H" & radek).Value
seznam.Save '<~ save and close the target workbook
seznam.Close savechanges:=False
Next radek
End Sub

Answer 1

工作代码

Sub test()
Dim radek As Integer
Dim radeklist As Integer
Dim seznam As Workbook

For radek = 47 To 47
Set seznam = Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & "SEZNAM_VYDANYCH_DOKUMENTU.xlsm")
radeklist = seznam.Sheets("SEZNAM_VYDANYCH_DOKUMENTU").Cells(Rows.Count, 1).End(xlUp).Row + 1

seznam.Sheets("SEZNAM_VYDANYCH_DOKUMENTU").Range("A" & radeklist & ":G" & radeklist).Value = ThisWorkbook.Sheets("PREHLED").Range("B" & radek & ":H" & radek).Value
seznam.Save '<~ save and close the target workbook
seznam.Close savechanges:=False
Next radek
End Sub