已解决

狂笨的孔明 · 发表于 2019-3-13 15:23

本帖最后由狂笨的孔明于 2019-3-14 10:44 编辑

已解决，谢谢

狂笨的孔明 · 发表于 2019-3-13 15:57

求助大神！

网海遨游 · 发表于 2019-3-13 16:12

本帖最后由网海遨游于 2019-3-13 16:15 编辑

mp= ThisWorkbook.Path & "\"
mf=dir(mp & "数据\Sheet1.xlsx")
set DestinationFile=workbooks.open(mp & mf)

改动下试试。另方件路径及文件名一定要正确。否则也找不到要打开的文件。

狂笨的孔明 · 发表于 2019-3-13 16:17

本帖最后由狂笨的孔明于 2019-3-14 10:44 编辑

网海遨游发表于 2019-3-13 16:12
mp= ThisWorkbook.Path & "\"
mf=dir(mp & "数据\Sheet1.xlsx")
set DestinationFile=workbooks.open(m ...

已解决，谢谢

朱荣兴 · 发表于 2019-3-13 16:31

提示: 作者被禁止或删除内容自动屏蔽

狂笨的孔明 · 发表于 2019-3-13 16:43

本帖最后由狂笨的孔明于 2019-3-14 10:45 编辑

已解决!谢谢

狂笨的孔明 · 发表于 2019-3-13 16:44

朱荣兴发表于 2019-3-13 16:31
自己弄不了就上传你的附件让别人帮你弄

谢谢，已上传。

网海遨游 · 发表于 2019-3-13 20:40

不知可行否。

Sub test()
Application.DisplayAlerts = False ' (禁警告)
mp = ThisWorkbook.Path & "" '有VBA代码工作薄地址.
Wk = Array(, "数据1.xlsx", "数据2.xlsx") '预定文件名
For i = 1 To UBound(Wk)
mf = Dir(mp & Wk(i)) '显示指定文件（可能有，可能无）
If mf <> "" Then Kill mp & Wk(i) '删除指定工作薄（如果文件夹中有这个工作薄，就删除它）
Workbooks.Add '新建工作薄
ActiveWorkbook.SaveAs (mp & Wk(i)) '对新建工作薄保存到指定路径，并取工作薄名。
ThisWorkbook.Sheets(i).Copy Workbooks(Wk(i)).Sheets(1) '拷贝工作表
Workbooks(Wk(i)).Sheets(1).Name = "数据" & i '对复制过来的工作表取名
Workbooks(Wk(i)).Close True '关闭并保存新建工作薄
Next i
Application.DisplayAlerts = True
End Sub

复制代码

狂笨的孔明 · 发表于 2019-3-13 23:54

网海遨游发表于 2019-3-13 20:40
不知可行否。

非常感谢。如果想导出的是s1中制定区域应该怎么写呢？A1到M1000

网海遨游 · 发表于 2019-3-14 08:14

改这一句试试。
ThisWorkbook.Sheets(i).range("a1:m1000").Copy Workbooks(Wk(i)).Sheets(1).range("a1")'拷贝工作表

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

[已解决] 已解决

最新热点 /1

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-3-13 16:31 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报