跨工作簿及工作表取数问题

小星光 · 发表于 2022-12-12 23:00

跨工作簿及工作表取数问题

mmwwdd · 发表于 2022-12-13 06:37

mmwwdd · 发表于 2022-12-13 06:39

给你写了一个，自己测试一下，这个没什么难度

小星光 · 发表于 2022-12-13 07:26

小星光 · 发表于 2022-12-13 07:31

小星光发表于 2022-12-13 07:26

老师你好：里面有点错误请帮我修改。谢谢！

liulang0808 · 发表于 2022-12-13 08:48

Sub 按钮2_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("服务部").Select
Set sh = Sheets("服务部")
f = ThisWorkbook.Path & "\" & sh.[m1] & ".xls"
If Dir(f) <> "" Then
      With Workbooks.Open(f)
         .Sheets(sh.[m2].Value).UsedRange.Copy sh.[a1]
         .Close False
      End With
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2022-12-13 08:49

当工作簿以及对应表都存在的时候运行
如果不确定，请增加判断语句

小星光 · 发表于 2022-12-13 08:58

liulang0808 发表于 2022-12-13 08:49
当工作簿以及对应表都存在的时候运行
如果不确定，请增加判断语句

老师你好：导过去之后,却将两个工作表的资料都删除掉了。

mmwwdd · 发表于 2022-12-13 08:58

小星光发表于 2022-12-13 07:31
老师你好：里面有点错误请帮我修改。谢谢！

没问题啊,你怎么运行不了?

liulang0808 · 发表于 2022-12-13 09:00

小星光发表于 2022-12-13 08:58
老师你好：导过去之后,却将两个工作表的资料都删除掉了。

都删除了？？？
楼主运行的是刚才上传的附件吗？

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