將行數據保存到具有實際路徑的不同工作簿（VBA）

您能幫我找到錯誤嗎？我需要通過按鈕來發送一些值，以不同的工作簿保存並關閉（相對路徑）將行數據保存到具有實際路徑的不同工作簿（VBA）

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

來源

2016-12-14 Nataniell

'對於拉狄克= 47 47'使得它做一次。檢查該行。也許它應該是'For radek = 1 To 47' – Moacir

它可以。我只需要一行。但是，此代碼不會在工作簿中插入任何數據。 – Nataniell

好的，然後嘗試在'Sheets（「SEZNAM_VYDANYCH_DOKUMENTU」）之前添加'seznam.'。Range（「A」' – Moacir

工作代碼

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

來源

2016-12-15 05:40:34 Nataniell

將行數據保存到具有實際路徑的不同工作簿（VBA）

回答

相關問題