将行数据保存到具有实际路径的不同工作簿（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）

回答

相关问题