-
2021-01-15 13:14:59
博奥清单V17中,单位平方米和立方米的数字均为上标显示。为使打印出来后易于分辨,应BOSS要求,在导出Excel后将其修改为“m2”和“m3”。
VBS批量修改代码:
Option Explicit
If Wscript.Arguments.Count = 0 ThenWScript.EchoChr(10) &_"[正确操作]" & Chr(10) & Chr(10) &_Chr(9) & "拖拽导出的Excel文件到本程序" & Chr(10) & Chr(10) &_"[错误操作]" & Chr(10) & Chr(10) &_Chr(9) & "双击本程序"WScript.QuitEnd If
DimxlsFilePath
xlsFilePath=WScript.Arguments(0)DimWshellSet Wshell=CreateObject("Wscript.Shell")If LCase(Right(WScript.FullName,11)) = "wscript.exe" ThenWshell.Run"CScript.exe //nologo" &_Chr(32) &_Chr(34) & WScript.ScriptFullName & Chr(34) &_Chr(32) &_Chr(34) & WScript.Arguments(0) & Chr(34)
WScript.QuitEnd IfWScript.Echo"正在运行,请等待......"
DimoExcel,oWorkbook,SheetOn Error Resume Next
Set oExcel = GetObject(,"Excel.Application")If Err ThenWScript.Echo Err.Description
Err.ClearSet oExcel = CreateObject("Excel.Application")
oExcel.Visible= False
End If
Set oWorkbook =oExcel.Workbooks.Open(xlsFilePath)If Err ThenErr.Clear
Wshell.Popup"无法打开指定的文件,可能的原因有:" & Chr(10) &_"1、本机没有安装Microsoft Office 2003、2007、2010或以上版本。" & Chr(10) &_"2、需要处理的文件已经打开或被其它程序占用,请关闭文件后重新使用本程序。", 10 , "提示", 16+4096WScript.QuitEnd If
On Error Goto 0oExcel.DisplayAlerts= False
DimCurrentPath
CurrentPath= CreateObject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.PathFor Each Sheet InoWorkbook.Worksheets
Sheet.Activate
Wscript.Echo"Replace:" &Sheet.Name
oExcel.Cells.Replace"㎡", "m2", 2, 1, False, False, FalseoExcel.Cells.Replace"", "m2", 2, 1, False, False, FalseoExcel.Cells.Replace"", "m3", 2, 1, False, False, FalseoExcel.Cells.Replace"延长米", "m", 2, 1, False, False, False
NextoWorkbook.Worksheets(1).Select
oWorkbook.Save
oExcel.DisplayAlerts= TrueoWorkbook.CloseSet oExcel = Nothing
Set oWorkbook = NothingWshell.Popup"经过一段时间的浴血奋战,终于搞定了所有的单位替换。", 10, "博奥单位替换", 48
VBS批量修改代码(读取“替换列表.txt”文件,循环替换)
Option Explicit
If Wscript.Arguments.Count = 0 ThenWScript.EchoChr(10) &_"[正确操作]" & Chr(10) & Chr(10) &_Chr(9) & "拖拽导出的Excel文件到本程序" & Chr(10) & Chr(10) &_"[错误操作]" & Chr(10) & Chr(10) &_Chr(9) & "双击本程序"WScript.QuitEnd If
DimxlsFilePath
xlsFilePath=WScript.Arguments(0)DimWshellSet Wshell=CreateObject("Wscript.Shell")If LCase(Right(WScript.FullName,11)) = "wscript.exe" ThenWshell.Run"CScript.exe //nologo" &_Chr(32) &_Chr(34) & WScript.ScriptFullName & Chr(34) &_Chr(32) &_Chr(34) & WScript.Arguments(0) & Chr(34)
WScript.QuitEnd IfWScript.Echo"正在运行,请等待......"
DimoExcel,oWorkbook,SheetOn Error Resume Next
Set oExcel = GetObject(,"Excel.Application")If Err ThenWScript.Echo Err.Description
Err.ClearSet oExcel = CreateObject("Excel.Application")
oExcel.Visible= False
End If
Set oWorkbook =oExcel.Workbooks.Open(xlsFilePath)If Err ThenErr.Clear
Wshell.Popup"无法打开指定的文件,可能的原因有:" & Chr(10) &_"1、本机没有安装Microsoft Office 2003、2007、2010或以上版本。" & Chr(10) &_"2、需要处理的文件已经打开或被其它程序占用,请关闭文件后重新使用本程序。", 10 , "提示", 16+4096WScript.QuitEnd If
On Error Goto 0
Dimfso,oFileSet fso = CreateObject("Scripting.FileSystemObject")DimstrLineDimstrArrDimCurrentPath
CurrentPath= CreateObject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
oExcel.DisplayAlerts= False
For Each Sheet InoWorkbook.Worksheets
Sheet.Select
Sheet.Activate
WScript.Echo Sheet.NameSet oFile = fso.OpenTextFile(CurrentPath & "\替换列表.txt", 1)Do While oFile.AtEndOfStream <> TruestrLine=oFile.ReadLine
strArr= Split(strLine,"→")
oExcel.Cells.Replace strArr(0), strArr(1), 2, 1, False, False, False
LoopoFile.CloseNextoWorkbook.Worksheets(1).Select
oWorkbook.Save
oExcel.DisplayAlerts= TrueoWorkbook.CloseSet oFile = Nothing
Set oExcel = Nothing
Set oWorkbook = NothingWshell.Popup"经过一段时间的浴血奋战,终于搞定了所有的单位替换。", 10, "博奥单位替换", 48
“替换列表.txt”样例:
古民居04号→04号古民居(罗满才)修缮工程
古民居05号→05号古民居(邓耀柱)修缮工程
古民居06号→06号古民居修缮工程
古民居09号→09号古民居修缮工程
古民居11号→11号古民居(邓耀梓)修缮工程
古民居12号→12号古民居(邓秋阳)修缮工程
古民居13号→13号古民居(邓亚贵)修缮工程
古民居15号→15号古民居修缮工程
古民居18号→18号古民居修缮工程
古民居19号→19号古民居(邓国天)修缮工程
古民居27号→27号古民居(邓耀梓祖屋)修缮工程
古民居28号→28号古民居修缮工程
古民居29号→29号古民居修缮工程
古民居31号→31号古民居(邓耀梓)修缮工程
古民居32号→32号古民居修缮工程
古民居33号→33号古民居(廖家祖屋)修缮工程
古民居34号→34号古民居(罗家祖屋)修缮工程
古民居35号→35号古民居(罗家祖屋)修缮工程
古民居36号→36号古民居(罗家祖屋)修缮工程
古民居37号→37号古民居(罗家祖屋)修缮工程
古民居38号→38号古民居(杨家祖屋)修缮工程
闸门01→闸门一修缮工程
闸门02→闸门二修缮工程
闸门03→闸门三修缮工程
闸门04→闸门四修缮工程
闸门05→闸门五修缮工程
闸门06→闸门六(廖家闸门)修缮工程
闸门07→闸门七(罗家闸门)修缮工程
闸门08→闸门八(二闸)修缮工程
闸门09→闸门九(大闸)修缮工程
闸门10→闸门十修缮工程
闸门11→闸门十一修缮工程
闸门12→闸门十二修缮工程
闸门13→闸门十三修缮工程
金石庙→金石庙修缮工程
木村坡围墙→围墙修缮工程
木村坡铺张→木村坡铺装
木村坡寨墙→寨墙
木村坡牌楼→入口牌坊
木村坡排水→雨水
木村坡污水→污水
木村坡照明→强电
木村坡雨水→雨水
㎡→m2
→m2
→m3
更多相关内容 -
基础电子中的电子技术国际单位制中具有专门名称的导出单位2
2020-11-23 23:32:31一、 测量元器件的基础知识 现在在学习和应用科学技术知识时,都要求使用法定计量单位,请列出和电子技术有关的法定计量单位。 答:国务院 1984年发布了《中华人民... 表:国际单位制中具有专门名称的导出单位 -
3dmax 模型导出单位设置问题
2020-07-27 10:38:29b) 如果通过3dmax转化,一定要将单位设为mm,即建模和转化的单位要一致。 现在是正确的,板长是两米。 如果在3dmax里将转化的单位设置为m,则 会把模型放大1000倍,如下,这不是我们把期望的。 ...2 creo建模单位问题
a) creo建模的单位如果mm,如果通过creo转化为obj(Creo自带转化obj格式的功能),再导入到unity则会把模型放大1000倍。
b) 如果通过3dmax转化,一定要将单位设为mm,即建模和转化的单位要一致。
现在是正确的,板长是两米。
如果在3dmax里将转化的单位设置为m,则
会把模型放大1000倍,如下,这不是我们把期望的。
-
CREO二维CAD图纸导出1:1比例导出,单位为mm
2020-06-11 19:13:181.配置合适的配置编辑器 如图,将dxf_out_comments 和dxf_out_drawing_scale的值设置为yes 在查找中搜索关键字 dxf 即可找到上述的名称。 ...2.在Creo安装文件中更改相关参数 ...3.二维图纸导出设置。(如前两1.配置合适的配置编辑器
如图,将dxf_out_comments 和dxf_out_drawing_scale的值设置为yes
在查找中搜索关键字 dxf 即可找到上述的名称。
2.在Creo安装文件中更改相关参数
具体操作是:找到PTCCreo2.0\Creo 2.0\Common Files\M070\text(即自己软件的安装文件夹)找到Prodetail,用写字板打开方便查找。
修改drawing_units的参数 INCH 改为 mm即可。
3.二维图纸导出设置。(如前两步骤设置完成导出依然为英尺比例)
文件→准备→绘图模型
详细信息选项→杂项选项→drawing_units 改为 mm即可。
4.导出文件
通过标注,我们可以看出比例已经正确。
-
SAP数据导出途径及注意事项
2021-01-12 07:52:291、会计凭证 事务码ZCOMLWIP;会计凭证后台表BSEG,会计凭证过账...采购订单中后台导出的表里面有单位换算的,需要进行单位换算。SAP中的订单日期是后台表中的凭证日期,不是创建日期。3、采购入库单价格,不能取标...1、会计凭证 事务码ZCOMLWIP;会计凭证后台表BSEG,会计凭证过账日期后台表 BKPF;
2、采购订单带有删除标记的需要与采购入库单核对。前台与后台的采购入库单匹配,没有的需要查看一下收货时是否跨月。跨月的需要导入。采购订单前台用ZMMGR02导出。
采购订单中后台导出的表里面有单位换算的,需要进行单位换算。
SAP中的订单日期是后台表中的凭证日期,不是创建日期。
3、采购入库单价格,不能取标准价格,需要取采购订单价格。即实际价格。
采购入库从前台导出时,是用MB51,然后筛选采购订单号。
采购入库对应的发票需要筛选出费用化的入库。
从采购订单中单位换算的物料筛选一下入库单,进行单位换算。
匹配一下价格,对一下记账金额是否一致。
同一个物料凭证对应两个入库地点的问题。
4、销售出库,交货单删除的,需要核对一下冲销是否跨月。如果跨月的冲销,需要导入到系统里。
对于删除的交货单号,用MB51查看对应的物料凭证,用MB03查看,点进去会计凭证,然后在布局里将所有的字段放出来,可以查找对应的销售订单号。然后用FD10N来查看每个客户的余额,查找其含税价及。无税价。
销售订单的价格,总金额等在后台表VBAP中可以导出来。
5、目前寄售销售是从原仓库发出,应该是从寄售仓库发出。所有的寄售发货的单据需要将其库存地点改为其相应的寄售仓库。
6、费用化采购入库的,必须出库,出到部门。
7、供应商后台表LFM1
8、MIR5 显示发票凭证的清单,也是显示的发票总额,只是没有汇率等信息。
MIR6 发票概览:发票凭证,只显示出票方及金额,没有凭证及过账日期等信息。
mir7 预制发票
9、SAP中 EKBZ 每个采购凭证的历史:交货费用 EKBZ-KSCHL 条件类型
KSCHL条件类型的配置是事务码M/06,
-
expdp带条件导出单个表的数据
2021-05-01 10:18:38[oracle@testdb dmp]$ expdp \"testuser/testuser\" DIRECTORY=dpump_dir dumpfile=kevin.dmp tables=test_table query=\"where cust_no like \'066%\'\" -------注意这里的转义符Export: Release 10.2.0.1.0 - 64bi... -
Python自动化导出zabbix数据并发邮件脚本
2020-12-31 13:55:24Zabbix没有报表导出的功能,于是通过编写脚本导出zabbix数据并发邮件。效果如下: 下面是脚本,可根据自己的具体情况修改: #!/usr/bin/python` `#coding:utf-8` `import MySQLdb` `import time,datetime` `import... -
shimo:石墨文档批量导出
2021-05-29 08:58:50石墨文档批量导出 支持类型 文档 表格 思维导图 ... Sleep: 1000 // 导出两个文档间的时间间隔,必须设置,否则会服务器忙,单位 ms }; 安装依赖 yarn // or npm install 运行 node index.js 依赖 node ^13 -
pcb如何导出坐标文件
2020-07-11 12:43:133、在对话框中,选择你所要的输出格式(坐标文件的格式,一般选择TXT格式)和输出单位(衡量坐标的单位,一般选择“公制”),选择完成后,单击确定选项即可导出坐标文件。 4、导出的坐标文件保存在PCB文件所在的... -
页面html Table表格导出Execl
2017-08-20 11:54:59将页面中的HtmlTable,导出为Execl 支持合并单位元、合并行等操作。续之前的优化了计算算法,升级了代码。 -
AD/DXP/PADS 导出SMT坐标文件TOOL
2018-10-14 19:11:32AD/DXP/PADS 导出SMT坐标文件步骤 Protel99转出SMT贴片坐标文件步骤: 1. 设置单位为公制mm(贴片坐标一般用公制为单位) 2. 设置坐标原点为左下角 3. 输出坐标文件(注意输出格式选csv, 单位选MM) -
大批量fluent导出数据,然后找对应坐标的信息.rar
2019-10-24 11:44:09fluent软件模拟计算之后,如果要发文章得把数据处理漂亮,然后就得导出大量的工况下的数据,包括点的位置,x,y,z。点的速度,方向,动量,涡量,热量,压力等等。然后常常只关心某些点的信息。所以要在几百个excel表... -
SAP 批量导出BOM的代码实现.docx
2020-03-25 10:27:17ABAP代码实现了批量导出BOM的功能。包含物料号、物料描述、基本数量、物料单位、替代BOM、可选文本 -
anim-exporter-addon:用于Blender的动画导出器插件
2021-03-21 19:09:56用于Blender的动画导出器插件 * .anim文件格式文件格式是信息的层次结构。信息以行片段,空格分隔的标记和值编码。第一个标记指示行片段的命令/内容-非常类似于波前OBJ格式。 以下结构定义了不同的命令。 以井号(#... -
react-component-export-image:将组件导出为jpeg,png或pdf
2021-04-28 14:10:33exportComponentAsPDF还接受具有以下可选字段{w,h,x,y,单位,方向,pdfFormat}的可选pdfOptions对象。 w = 100 ( Width in pixels - defaults to the width of the element ) h = 50 ( Height in pixels - ... -
法定计量单位
2020-11-07 14:30:22(3)国际单位制中具有专门名称的导出单位(见表3); (4)国家选定的非国际单位制单位(见表4); (5)由以上单位构成的组合形式的单位; (6)由词头和以上单位所构成的十进倍数和分数单位词头(见表5)。 -
在Solidworks中建模 ,导出URDF文件,并在ros中使用
2020-06-04 14:43:421:安装SolidWorks to URDF exporter... 在Solidworks中定义好零件的材质等参数后,在工具→File→Export as URDF中打开导出对话框: File在工具的最下方,需要点击工具里的下拉键找到File。 4:在ros中加载模型 -
时间序列分析——如何正确使用单位根检验(ADF)?
2021-12-06 10:55:21单位根检验是指检验序列中是否存在单位根,因为存在单位根就是非平稳时间序列了。 2、输入输出描述 输入:1个时间序列数据定量变量输出:序列数据在几阶差分时达到平稳 3、学习网站 SPSSPRO-免费专业的在线数据... -
solidworks导出成.stl修改单位
2020-01-06 18:47:56今天,问机械的同事要机械臂末端手爪的3D文件,给我了一个solidworks格式的文件。 我和他说我要的是.stl,一...将零件另存为,选择.stl格式,点击下方的选项,可以修改单位,也可以将所有零件导出到一个.stl文件里... -
Postman系列之测试用例管理(二)
2020-12-23 07:39:51实验目的Postman 测试集(Collections)管理的相关内容,它用来保存我们的 Request ,可以嵌套,可以批量运行,还可以导出到本地。本文仅介绍简单的用法,更深入的了解可以参考 Postman官网 的资料。实验流程1. 新建... -
Allegro之测量时显示两种单位(mil & mm)
2020-11-27 17:55:06Allegro之测量时显示两种单位(mil & mm) 首先确认你工程默认的单位是mil还是mm 例子为mils 在下面的选项中选择另外一项mm即可(如本身是mm,这里选择mils) 点击Apply,然后OK,操作测量功能,如下图... -
Panel:像子图,但更容易,并且所见即所得导出到文件。 还修复了导出中的虚线/虚线。-matlab开发
2021-05-29 05:40:38默认情况下,布局采用物理单位(默认情况下为毫米),导出到图形文件的目标是直接打印列。 但是,如果最终目标是数字显示,它的表现同样出色,可以轻松控制屏幕空间的使用。 Panel 结合了几个 Matlab Central 用户... -
Oracle 数据库导出(exp)导入(imp)说明
2020-12-16 10:21:12buffer:下载数据缓冲区,以字节为单位,缺省依赖操作系统 consistent:下载期间所涉及的数据保持read only,缺省为n direct:使用直通方式 ,缺省为n feeback:显示处理记录条数,缺省为0,即不显示 file:输出文件... -
CAD导出DXF再导入PADS出现尺寸大小不一致的解决办法?
2018-03-28 09:40:27如下错误:1、用CAD打开板框,删除板框多余部分,只留需要的部分(注意:从左边拖动鼠标选中,再删除,如果从右边拖动鼠标选中无法全选)2、设置原点,选中整个...双击滚轮即可显示所有板框3、导出生成DXF,再导入PADS... -
ETL工具—Kettle数据的导入导出—批量Excel表到数据库
2017-05-22 14:53:00案例目的:如果你有一堆收上来,表结构相同的Excel表格,把他们放在了一个文件夹下,向批量导入...将Scott账户下的emp表格导出成Excel表格。复制几份。命名随意。(注:表格"HIREDATE"字段下年月日格式为yyyy/mm/dd... -
Blender的单位:一图弄懂Blender的单位
2017-12-28 14:16:00Blender的单位:一图弄懂Blender的单位 1设置单位,在右边的场景设置里,可以设置公制,英制。下面还可以设置基础单位长度,就是单位网格对应的长度。 2显示单位,按N出现在右边的属性栏里,可以设置... -
3dmax导出缩放
2018-01-13 14:55:04参考 http://blog.dou.li/unity3d-import-3dmax-model-scale.html ... max2015,unity2017.2 3dmax相关单位设置 显示单位: ...决定栅格显示的单位, ...修改位置:自定义(U)->单位设置 -
导出Excel多个单元格合并及图片插入
2018-01-17 19:38:08一般在导出Excel中,在创建工作表sheet后,初始化的sheet中row都是一行一行的,每个单元格都是最小单位,所以问题1什么时候将单元格合并? 方案:先将数据组装成json格式方便插入Excel时进行遍历,接着以巡检项为每... -
使用 Animate CC 导出图形和视频
2021-06-29 11:14:20导出应用程序首选参数您可以在专家和初学者首选参数之间切换。您还可将自己的应用程序设置(包括工具栏设置、键盘快捷键和其他应用程序设置)导出为单个文件。只需进行简单的文件导出和导入操作,即可跨设备应用您的... -
用python爬取网页并导出为word文档.docx
2020-05-06 14:58:45在传统的数据库中,信息被分割成离散的数据段,而在文档数据库中,文档是处理信息的基本单位。一个文档可以很长、很复杂、可以无结构,与字处理文档类似。一个文档相当于关系数据库中的一条记录。 文档存储一般用...