当前位置：工控论坛 > > 产品 > PLC > 三菱(Mitsubishi)PLC

无聊之余发个小东东 点击：1073 | 回复：9



杨茂明001

    
  • 精华：0帖
  • 求助：0帖
  • 帖子：36帖 | 179回
  • 年度积分：0
  • 历史总积分：343
  • 注册：2004年8月03日
发表于：2005-03-08 15:38:00
楼主
Dim objXL Dim objXLchart Dim intRotate Set objXL = WScript.CreateObject("Excel.Application") objXL.Workbooks.Add objXL.Cells(1,1).Value = 5 objXL.Cells(1,2).Value = 10 objXL.Cells(1,3).Value = 15 objXL.Range("A1:C1").Select Set objXLchart = objXL.Charts.Add() objXL.Visible = True objXLchart.Type = -4100 For intRotate = 5 To 180 Step 5 objXLchart.Rotation = intRotate Next For intRotate = 175 To 0 Step -5 objXLchart.Rotation = intRotate Next ‘------------------- 新建一个记事本文件，把线以上的内容复制进去，然后另点另存为“3.VBS”,然后双击.
分享到：
收藏 邀请回答 回复楼主 举报



小鹰飞

  • 精华：0帖
  • 求助：0帖
  • 帖子：1帖 | 13回
  • 年度积分：0
  • 历史总积分：22
  • 注册：2005年1月26日
发表于：2005-03-08 16:47:00
1楼
试了,无效!
回复 引用 举报

wahaha112233

  • 精华：0帖
  • 求助：0帖
  • 帖子：6帖 | 38回
  • 年度积分：0
  • 历史总积分：92
  • 注册：2002年10月30日
发表于：2005-03-08 16:56:00
2楼
去掉前面空格就ok了
回复 引用 举报

飞1

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 25回
  • 年度积分：0
  • 历史总积分：23
  • 注册：2004年2月23日
发表于：2005-03-09 11:24:00
3楼
牛 什么语言
回复 引用 举报

小鹰飞

  • 精华：0帖
  • 求助：0帖
  • 帖子：1帖 | 13回
  • 年度积分：0
  • 历史总积分：22
  • 注册：2005年1月26日
发表于：2005-03-10 15:51:00
4楼
杨: 给我们介绍下呀,这什么语言呀!
回复 引用 举报

ytfh

  • 精华：0帖
  • 求助：0帖
  • 帖子：12帖 | 56回
  • 年度积分：0
  • 历史总积分：96
  • 注册：2003年8月06日
发表于：2005-03-26 14:40:00
5楼
什么也没有啊！只是一个VBS 文件啊
回复 引用 举报

SinoRyan

  • 精华：0帖
  • 求助：0帖
  • 帖子：12帖 | 441回
  • 年度积分：0
  • 历史总积分：582
  • 注册：2004年3月31日
发表于：2005-03-26 15:07:00
6楼
回复 引用 举报

sangkunpeng

  • 精华：0帖
  • 求助：0帖
  • 帖子：12帖 | 72回
  • 年度积分：0
  • 历史总积分：171
  • 注册：2001年10月21日
发表于：2005-03-28 10:57:00
7楼
我的QQ 45546275 想请教着方面的知识 我觉得这个小软件写的非常好
回复 引用 举报

杨茂明001

  • 精华：0帖
  • 求助：0帖
  • 帖子：36帖 | 179回
  • 年度积分：0
  • 历史总积分：343
  • 注册：2004年8月03日
发表于：2005-03-29 11:46:00
8楼
楼上这位发图的,因为你复制过去后,第二行出现空格,要把第一个字母所有的空格都删除掉才能正常运行.其实楼上的"依帆"已经发现这个问题了. 另外可以试下下面这个简单的:线以下是源文件,到第二根线结束. '---------------------- MSGBOX"这是输出窗口的文字",64,"这是输出窗口的标题" '--------------------- 这是一种基于VB的脚本语言,可以单独运行,也能在网页,或者是一个文档中运行...写起来方便,功能强大,不过老是有人爱用它写病毒...... 下是微软的官方介绍这VBSCRIPT的内容. http://www.microsoft.com/china/technet/community/scriptcenter/resources/qanda/default.mspx
回复 引用 举报

感悟人生

  • 精华：3帖
  • 求助：0帖
  • 帖子：29帖 | 253回
  • 年度积分：0
  • 历史总积分：404
  • 注册：2003年6月02日
发表于：2005-04-11 17:51:00
9楼
不知对工控有没有帮助.
回复 引用 举报

热门招聘
相关主题

官方公众号
智造工程师