リアルタイブパス（VBA）を使用して行データを別のブックに保存

Question

間違いを探すのを手伝ってもらえますか？私は= 47 47`するためには、それは一度だけ行いますラデクについて `別のブックへのボタンによって、いくつかの値を送信し、保存して閉じる必要があります（相対パス）

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