Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

[5分]VBA怎么导入EXCEL中的一个窗体？

殷小宝　发表于：2013-04-10 23:06:25 　

怎么将别的表中的窗体导入到本工作簿中呢？用VBA写。

叶海峰发表于：2013-04-11 09:19:46

Application.VBE.VBProjects(1).VBComponents("userform10").Export "c:\1.frm" '导出窗体文件

Application.VBE.VBProjects(3).VBComponents.Import ("C:\1.frm")'导入窗体文件

Top

殷小宝发表于：2013-04-11 20:13:49

叶老师，应用出现下面错误，还请指教。

Top

殷小宝发表于：2013-04-11 20:15:35

Top

殷小宝发表于：2013-04-11 20:22:51

Top

叶海峰发表于：2013-04-12 08:53:12

检查一下是不是该文档已经有userform2了.我测试过代码是没有问题的

Top

殷小宝发表于：2013-04-12 21:07:33

新建的文档没有userform2窗体，但原文档中有。

Top

殷小宝发表于：2013-04-12 21:13:47

叶老师，我想实现的功能是：将工作簿中的每个表导出到新工作簿，而且给这些簿都导入userform2窗体，不是你单纯的导入一个窗体

Top

叶海峰发表于：2013-04-13 18:10:47

一个工作簿能导入一个userform，那么N个工作簿还成问题吗？

Top

殷小宝发表于：2013-04-15 18:09:39

叶老师，还是没有做成。提示下列错误：

详见附件点击下载此附件

Top

叶海峰发表于：2013-04-15 22:01:09

你的UserForm2.frm文件有错误，在VBE里面用导入的功能都提示错误，重新导出一个frm文件吧，另外应该还有一个userform2.frx的文件是frm文件是一起的。

另外，你的这个要求还有一个思路，不需要导入窗体的

模板文件saveas一个新的xls文件（带userform2），删除多余的sheet，保存

Top

殷小宝发表于：2013-04-16 10:58:18

太感谢叶老师，就差一步呀，第二个思路是多复制几份，然后再删除多余的表。是这个意思吗？

Top

叶海峰发表于：2013-04-16 13:19:32

就是这个意思

for i= 1 to 3

另存为一个新的xls文件

for j= 1 to 3

if j<>i then sheet(j).delete

next

next

Top

总记录：12篇页次：1/1 9 1 :

Access软件网版权所有 CopyRight 2006-2030
上海盟威软件有限公司提供支持
沪ICP备12024966号-4