社区
VB基础类
帖子详情
有关在多个excel文件间复制sheet的问题(不用copy,paste的方法)
appow
2006-06-05 04:00:12
已经取得了某excelA.sheet1的对象,能否将这个对象直接赋给excelB.sheet1,
让excelB.sheet1的内容与excelA.sheet1相等?
...全文
294
4
打赏
收藏
有关在多个excel文件间复制sheet的问题(不用copy,paste的方法)
已经取得了某excelA.sheet1的对象,能否将这个对象直接赋给excelB.sheet1, 让excelB.sheet1的内容与excelA.sheet1相等?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
faysky2
2006-06-14
打赏
举报
回复
还是用Copy方法:
Private Sub Command1_Click()
Dim xlapp As Object
Dim xlBook As Object
Set xlapp = CreateObject("Excel.Application")
Set xlBook = xlapp.Workbooks.Open(App.Path + "\test.xls")
xlapp.Visible = True
xlBook.Sheets("Source").Copy Before:=xlBook.Sheets(1)
xlBook.Sheets("Destination").Delete
xlBook.ActiveSheet.Name = "Destination"
Set xlBook = Nothing
Set xlapp = Nothing
End Sub
appow
2006-06-05
打赏
举报
回复
http://community.csdn.net/Expert/topic/4777/4777147.xml?temp=.4077112
有点文不对题.
http://community.csdn.net/Expert/topic/4743/4743621.xml?temp=.190716
提供了两种方法
1,是模拟成数据库(此种肯定不能使用)
2,用剪贴板
我的初衷是,已经有了source sheet的对象,为什么还通过剪贴板来写复制的程序?
难道不能按照传统的程序思维角度,直接用简单的两条语句,把source sheet赋给dest sheet吗?
ilove8
2006-06-05
打赏
举报
回复
http://community.csdn.net/Expert/topic/4743/4743621.xml?temp=.190716
ilove8
2006-06-05
打赏
举报
回复
可以的
http://community.csdn.net/Expert/topic/4777/4777147.xml?temp=.4077112
LINGO软件的学习
LINGO是用来求解线性和非线性优化
问题
的简易工具。LINGO内置了一种建立最优化模型的语言,可以简便地表达大规模
问题
,利用LINGO高效的求解器可快速求解并分析结果。 §1 LINGO快速入门 当你在windows下开始运行LINGO系统时,会得到类似下面的一个窗口: 外层是主框架窗口,包含了所有菜单命令和工具条,其它所有的窗口将被包含在主窗口之下。在主窗口内的标题为LINGO Model – LINGO1的窗口是LINGO的默认模型窗口,建立的模型都都要在该窗口内编码实现。下面举两个例子。 例1.1 如何在LINGO中求解如下的LP
问题
: 在模型窗口中输入如下代码: min=2*x1+3*x2; x1+x2>=350; x1>=100; 2*x1+x2<=600; 然后点击工具条上的按钮 即可。 例1.2 使用LINGO软件计算6个发点8个收点的最小费用运输
问题
。产销单位运价如下表。 单 位 销地 运 价 产地 B1 B2 B3 B4 B5 B6 B7 B8 产量 A1 6 2 6 7 4 2 5 9 60 A2 4 9 5 3 8 5 8 2 55 A3 5 2 1 9 7 4 3 3 51 A4 7 6 7 3 9 2 7 1 43 A5 2 3 9 5 7 2 6 5 41 A6 5 5 2 2 8 1 4 3 52 销量 35 37 22 32 41 32 43 38 使用LINGO软件,编制程序如下: model: !6发点8收点运输
问题
; sets: warehouses/wh1..wh6/: capacity; vendors/v1..v8/: demand; links(warehouses,vendors): cost, volume; endsets !目标函数; min=@sum(links: cost*volume); !需求约束; @for(vendors(J): @sum(warehouses(I): volume(I,J))=demand(J)); !产量约束; @for(warehouses(I): @sum(vendors(J): volume(I,J))<=capacity(I)); !这里是数据; data: capacity=60 55 51 43 41 52; demand=35 37 22 32 41 32 43 38; cost=6 2 6 7 4 2 9 5 4 9 5 3 8 5 8 2 5 2 1 9 7 4 3 3 7 6 7 3 9 2 7 1 2 3 9 5 7 2 6 5 5 5 2 2 8 1 4 3; enddata end 然后点击工具条上的按钮 即可。 为了能够使用LINGO的强大功能,接着第二节的学习吧。 §2 LINGO中的集 对实际
问题
建模的时候,总会遇到一群或多群相联系的对象,比如工厂、消费者群体、交通工具和雇工等等。LINGO允许把这些相联系的对象聚合成集(sets)。一旦把对象聚合成集,就可以利用集来最大限度的发挥LINGO建模语言的优势。 现在我们将深入介绍如何创建集,并用数据初始化集的属性。学完本节后,你对基于建模技术的集如何引入模型会有一个基本的理解。 2.1 为什么使用集 集是LINGO建模语言的基础,是程序设计最强有力的基本构件。借助于集,能够用一个单一的、长的、简明的复合公式表示一系列相似的约束,从而可以快速方便地表达规模较大的模型。 2.2 什么是集 集是一群相联系的对象,这些对象也称为集的成员。一个集可能是一系列产品、卡车或雇员。每个集成员可能有一个或
多个
与之有关联的特征,我们把这些特征称为属性。属性值可以预先给定,也可以是未知的,有待于LINGO求解。例如,产品集中的每个产品可以有一个价格属性;卡车集中的每辆卡车可以有一个牵引力属性;雇员集中的每位雇员可以有一个薪水属性,也可以有一个生日属性等等。 LINGO有两种类型的集:原始集(primitive set)和派生集(derived set)。 一个原始集是由一些最基本的对象组成的。 一个派生集是用一个或
多个
其它集来定义的,也就是说,它的成员来自于其它已存在的集。 2.3 模型的集部分 集部分是LINGO模型的一个可选部分。在LINGO模型中使用集之前,必须在集部分事先定义。集部分以关键字“sets:”开始,以“endsets”结束。一个模型可以没有集部分,或有一个简单的集部分,或有
多个
集部分。一个集部分可以放置于模型的任何地方,但是一个集及其属性
python按照模板
复制
sheet
页,python实现跨
excel
的工作表
sheet
之
间
的
复制
方法
如何将某个
Excel
文件
中的特定
sheet
复制
到一个另一如何将某个
Excel
文件
中的特定
sheet
复制
到一个另一个
Excel
文件
中去?小编给你倒一杯热水。可你惦记着其他饮料,所以你将它放置一旁。等你想起那杯水时,可惜它已经变得冰冷刺骨。在电脑桌面里将两个表格都打开,也就是要
复制
的原
EXCEL
文件
,还有目标
EXCEL
文件
。 感情有很多种,对一个人好,不一定要和这个人在一起。因为你知道她最宝贵的是什么...
利用VBA快速整合
多个
excel
文件
心得(一):关于VBA如何把同一个
文件
下的所有
文件
的内容合并到同一个
excel
文件
下
问题
:如何把
多个
格式相同的
excel
整合到一个
excel
上,起初想的是可以直接用
复制
粘贴……但是
文件
有几百个将近一千个,这么做的话有点暴躁… 解决:首先把所有要整合的
excel
文件
放在一个路径不含有中文名的目录下,然后新建一个
excel
文件
右键
sheet
点击查看代码,这时候你的画面上会出现一个编辑器,你这这上面利...
excel
拆分为
多个
sheet
工作表或
多个
单独的
excel
文件
。超好用
excel
拆分一、前言二、准备员工信息表测试数据三、拆分三(1):根据所在分公司列拆分为
多个
sheet
操作步骤1. 选中要拆分的
sheet
,右键单击“查看代码”,如图:2. 插入如下代码:3. 运行,实现拆分为
多个
sheet
(代码插入后,直接关闭当前代码窗口即可,无需保存)拆分后结果三(2):根据“所在分公司”列拆分为
多个
单独
excel
文件
操作步骤1.插入代码拆分后结果四、没有宏菜单,如何打开? 一、前言 作为一名运维工程师,难免会遇到各种数据库数据导出需求。最近遇到要求把导出的员工信息根据分公司分组后拆分
SAP OLE
excel
导出
多个
sheet
页
2.在遍历中打开
sheet
页,根据
sheet
页填充单元格 PERFORM frm_open_
excel
_
sheet
USING sy-tabix .*1.拷贝模板,
复制
sheet
页 PERFORM frm_add_
excel
_
sheet
.*先打开
excel
,整理好数据。以下均为主程序跳转具体代码。写入行项目(拷贝行,插入行)
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章