fanshuangfeng163的163博客登陆

来源：蜘蛛抓取(WebSpider) 时间：2011-03-23 19:09 标签： 163博客
用心创造滤镜
扫码下载App
汇聚2000万达人的兴趣社区下载即送20张免费照片冲印
扫码下载App
温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
自动控制系统设计,PLC,触摸屏,伺服,步进,变频器,用VB编写上位机监控画面,用VB编写串口通信程序。
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
　　前段时间写过一个关于WinCC读写TXT文件的小文章，这周去做支持为客户做了一个WinCC读写Excel文件的Demo，现在拿出来和大家分享一下。　　　　一、导入到Xls文件并打印　　　　Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y)&　　Dim a,fso　　a=HMIRuntime.Tags("FileName").Read　　Set fso = CreateObject("scripting.filesystemobject")&　　If fso.FileExists("C:\Model.xls") Then　　 Dim objExcelApp　　 Set objExcelApp = CreateObject("Excel.Application")　　 objExcelApp.Visible = False　　 objExcelApp.Workbooks.Open "C:\Model.xls"　　 objExcelApp.Cells(2, 3).Value = HMIRuntime.Tags("NewTag1_1").read　　 objExcelApp.Cells(4, 5).Value = HMIRuntime.Tags("NewTag1_2").read　　 objExcelApp.Cells(6, 7).Value = HMIRuntime.Tags("NewTag1_3").read　　 objExcelApp.Cells(8, 9).Value = HMIRuntime.Tags("NewTag1_4").read　　 objExcelApp.Cells(10, 11).Value = HMIRuntime.Tags("NewTag1_5").read　　 objExcelApp.ActiveWorkbook.SaveAs("C:\Report\"&CStr(a)&".xls")　　 objExcelApp.ActiveWorkbook.PrintOut　　 objExcelApp.Workbooks.Close　　 objExcelApp.Quit　　 Set objExcelApp = Nothing　　 MsgBox "文件已经成功导出/Export Successful"　　Else　　 MsgBox "Excel模板文件不存在"　　End if　　End Sub　　　　二、从Xls文件导入或者查询　　　　Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y)&　　Dim a,fso　　a=HMIRuntime.Tags("FileName").Read　　Set fso = CreateObject("scripting.filesystemobject")&　　If fso.FileExists("C:\Report\"&CStr(a)&".xls") Then　　 Dim objExcelApp　　 Set objExcelApp = CreateObject("Excel.Application")　　 objExcelApp.Visible = False　　 objExcelApp.Workbooks.Open "C:\Report\"&CStr(a)&".xls"　　 HMIRuntime.Tags("NewTag1_1").Write objExcelApp.Cells(2, 3).Value　　 HMIRuntime.Tags("NewTag1_2").Write objExcelApp.Cells(4, 5).Value　　 HMIRuntime.Tags("NewTag1_3").Write objExcelApp.Cells(6, 7).Value　　 HMIRuntime.Tags("NewTag1_4").Write objExcelApp.Cells(8, 9).Value　　 HMIRuntime.Tags("NewTag1_5").Write objExcelApp.Cells(10, 11).Value　　 objExcelApp.ActiveWorkbook.Save　　 objExcelApp.Workbooks.Close　　 objExcelApp.Quit　　 Set objExcelApp = Nothing　　 MsgBox "导入数据成功/Import Successful"　　Else　　 MsgBox "文件不存在/File is not existing"　　End if　　End Sub
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_',
blogTitle:'WinCC读写Excel文件',
blogAbstract:'
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}从“让学生体面的坐下”再谈老师之细心 - luoshuangfeng的博客 - 柳州教育博客
从“让学生体面的坐下”再谈老师之细心
&&&&&& 这几天多位老师都反复提到了同一个教学原则：老师眼里要有每个学生，坚持以人为本，始终关注学生。
&&&&& 有这么一个真实的痛心的故事：某班英语公开课上，有位同学起来回答问题，但因为问题没有回答正确，老师让他站了很久，直到教研员提醒老师，老师才示意该生坐下。此后的半节课，该生眼里充满着泪水在打转，无心听课。请问是谁剥夺了他的听课的权利，是谁伤害了他幼小的脆弱的心灵，是谁让他失去了学习的信心和生活的勇气？在英语课堂中，乃至在其他学科的课堂中，我们经常可以看到这样的画面，某个学生因为没有回答出问题而被罚站许久才被允许坐下。我们的老师只是以此想让学生更认真地听课，但是每个学生的个性是不同的，同一个问题是不是应该因人而异的处理呢。有的学生很内向，自尊心很强，就像文中开头的那个学生一样，一旦在大众面前受到“另眼相待”，心灵就会受到极其大的伤害。也许他整节课都比较认真，只是那一会会开小差了，也许他只是对老师上课的要求还不够明白。所以，平常开学伊始的第一节课，我们一定是要讲课堂纪律，告诉学生什么是允许做 的，什么是不被允许的。而且在以后的教学中，要逐步了解每个学生的个性，谁谁谁是内向的，就尽量避免公开批评，而是点到为止或者不做个别点名批评，或者课下交流；谁谁谁是外向的，大大咧咧的，就可以玩笑似的点出；对于个别顽固分子，可以恩威并施，迅速出击。当然情况也不尽是这样，老师们只有更细心的去挖掘才能做到真正的以人为本。
阅读全文(163) |
上一篇：下一篇：
后，你将出现在这里
版权所有 柳州市教育局 桂JS　桂ICP备号
柳州网警报警电话 &

我要回帖

更多关于 163博客 的文章

 

随机推荐