将指定表的数据保存到指定表中，谢谢！

ztd123 · 发表于 2023-7-5 16:15

将指定表的数据保存到指定表中，谢谢！

gwjkkkkk · 发表于 2023-7-5 16:34

请参考附件。。。

yynrzwh · 发表于 2023-7-5 16:48

Private Sub CommandButton1_Click()
nm = [a1].Value
With Sheets("单项")
lr = .Cells(Rows.Count, 2).End(3).Row
.Range("A2:V" & lr).Copy Sheets(nm).Cells(Rows.Count, 1).End(3).Offset(1)
End With
End Sub

复制代码

limonet · 发表于 2023-7-5 17:13

本有更简单的，可惜菜单没有统一。

limonet · 发表于 2023-7-5 17:14

Sub limonet()
Dim Cn As Object, StrSQL$
Set Cn = CreateObject("adodb.connection")
Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
StrSQL = "select * from [单项$]"
Worksheets(Sheet1.Range("A1").Value).Cells(Sheets(Sheet1.Range("A1").Value).Range("A65536").End(xlUp).Row + 1, "A").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

ztd123 · 发表于 2023-7-5 17:21

感谢楼上两位老师！再次感谢！

feilanga · 发表于 2023-7-5 17:27

....................

		自动登录	找回密码
密码			免费注册

[求助] 将指定表的数据保存到指定表中，谢谢！

评分

评分

评分

评分

评分