首页 > 其他分享 >保存到Excel文件中

保存到Excel文件中

时间:2023-04-26 10:33:21浏览次数:36  
标签:文件 ole workbooks object Excel 保存 value cells row

OLEObject ole_object , ole_workbooks

ole_object = CREATE OLEObject
IF ole_object.ConnectToNewObject("Excel.Application") <> 0 THEN
MessageBox('OLE错误','OLE无法连接!')
return
END IF
ole_object.workbooks.add
ole_object.Visible = True
ole_workbooks = ole_object.Worksheets(1)
ole_workbooks.cells(1,1).value="任务号"
ole_workbooks.cells(1,2).value="次序"
ole_workbooks.cells(1,3).value="步数"
ole_workbooks.cells(1,4).value="机器号"
ole_workbooks.cells(1,5).value="开始时间"
ole_workbooks.cells(1,6).value="结束时间"
long l_row
for l_row = 2 to dw_1.rowcount()
ole_workbooks.cells(l_row,1).value=dw_1.getitemstring(l_row,1)
ole_workbooks.cells(l_row,2).value=dw_1.getitemnumber(l_row,2)
ole_workbooks.cells(l_row,3).value=dw_1.getitemnumber(l_row,3)
ole_workbooks.cells(l_row,4).value=dw_1.getitemnumber(l_row,4)
ole_workbooks.cells(l_row,5).value=dw_1.getitemtime(l_row,5)
ole_workbooks.cells(l_row,6).value=dw_1.getitemtime(l_row,6)
next
ole_workbooks.SaveAs ("d:\data.xls")
ole_object.quit()
Ole_Object.DisConnectObject()
Destroy Ole_Object
destroy ole_workbooks

标签:文件,ole,workbooks,object,Excel,保存,value,cells,row
From: https://www.cnblogs.com/djd66/p/17354923.html

相关文章

  • 通过SDK接入EasyCVR平台,设备录像文件出现播放异常的原因排查与解决
    EasyCVR视频融合平台基于云边端一体化架构,部署轻快、功能灵活,平台可支持多协议、多类型设备接入,包括:国标GB28181、RTMP、RTSP/Onvif、海康Ehome、海康SDK、大华SDK、宇视SDK等。平台可实现视频直播、录像、回放、检索、云存储、告警上报、语音对讲、电子地图、集群、智能分析以及......
  • 【电脑删不掉文件或文件夹】
    【电脑删不掉文件或文件夹】>>使用Windows资源监视器基本步骤:打开任务管理器(在下方任务栏右键)通过Windows资源监视器,你可以查看到文件夹/文件被哪个程序占用,并结束该程序。①同时按下键盘上的“Ctrl+Alt+Delete”键以打开任务管理器②进入任务管理器后,切换至“性能”......
  • 获取指定文件AppSettings
    //文件路径privatestaticstringConfigPath=AppDomain.CurrentDomain.BaseDirectory+@"\XXX.config";privatestaticAppSettingsSection_sviewFrameSetting;publicstaticstringOnlineViewService=GetAppSettings(&qu......
  • 不同语言加载不同字号,设置到资源文件中,进行引用
    在资源文件夹创建一个类在App.xaml文件中引用这个类的空间命名,并把这个类添加到资源在页面中应用在使用其他语言时,开启新的子线程依然会使用区域语言.net4.5后使用可以一次性解决varculture=newCultureInfo("en-US");    CultureInfo.DefaultThreadCurrent......
  • java程序jar包打包成exe文件
    说明:将java程序打包成window系统下的exe文件分三步第一步:创建java程序,需要包含一个主方法;第二步:打jar包,通过模块打包。第三步:构建exe,使用软件exe4j将jre,jar包构建成exe文件 案例演示:第一步:创建java程序,需要包含一个主方法; ......
  • linux 文件查找
    1,文件夹全局查找grep"JAVA_OPTS=\"-Xms1024m"-rl/data/tomcats/2,文件内容替换:%s/www.6188cp.com/zfc_web_2/g  3,查看系统限制ulimit-a关注:其中"openfiles(-n)1024"是Linux操作系统对一个进程打开的文件句柄数量的限制(也包含打开的SOCKET数量,可影响MySQL的并发连接......
  • clion使用 wsl 编译下, 文件名和目录名冲突问题
    问题描述:在工作目录下有一文件夹(nameA)与文件(nameA)重名:/usr/bin/ld:cannotopenoutputfile**:Isadirectorycollect2:error:ldreturned1exitstatus问题在于链接器(ld)试图将二进制文件输出到一个名为"binaryTree"的目录中 解决方案:更改输出文件名或输出路径,避免......
  • 配置文件
    目录Settings.py注释BASE_DIRSECRET_KEYDEBUGALLOWED_HOSTSINSTALLED_APPSMIDDLEWAREROOT_URLCONFTEMPLATESWSGI_APPLICATIONDATABASESAUTH_PASSWORD_VALIDATORSLANGUAGE_CODETIME_ZONEUSE_TZUSE_TZSTATIC_URL静态文件的配置静态文件资源访问开放接口配置request对象的方法1.acti......
  • 利用CMake生成同一解决方案下多个项目管理文件
    ​  有的时候,我们需要在同一解决方案下管理多个项目,如果通过VS将项目一个一个添加,这项工作将变得十分繁琐。举例来讲,拿服务端和客户端的SOCKET通信来说,服务端和客户端两部分代码应作为两个单独的项目进行编译,而为了在同一解决方案下对这两个(或多个)项目进行管理,此时便可以借助C......
  • Django之视图函数层 (必会三板斧 JsonResponse对象 request对象获取文件 FBV与CBV
    目录视图层之必会三板斧用来处理请求的视图函数都必须返回HttpResponse对象情况一:啥也不返回这里会报一个没有返回HttpResponse对象的错误,由此可见必须要返回一个HttpResponse对象情况二:返回HttpResponse对象点击Ctrl键查看源码可见是HttpResponse类,所以会返回一个值情......