依据BOM和已经存在的文件生成其他种类的文件

在BOM中记录中有物料编码，物料名称，物料规格等，而且依据BOM已经生成了一些的文件，如采购规格书，这个时候需要生成相应的检验规格书模板，可以使用下面的VBA代码，具体代码如下：

Function IsFileExists(ByVal strFileName As String) As BooleanIf Dir(strFileName, 16) <> Empty ThenIsFileExists = TrueElseIsFileExists = FalseEnd If
End FunctionSub setname()Dim I As IntegerDim pspname As StringDim pspnumber As StringDim tstname As StringDim tstnumber As StringDim path As StringDim srcPath As StringDim srcPath2 As StringDim headName As StringDim headName2 As StringDim wordApp As ObjectDim wordDoc As ObjectDim wordArange As ObjectDim wordSelection As ObjectDim ReplaceSign As BooleanDim Search1 As StringDim Search2 As StringDim docPrefix As StringDim docSuffix As StringDim rangSize As Integer'docPrefix = "-PSP"'docSuffix = "采购规格书.doc"'Search1 = "电线"'Search2 = "6000397-PSP"'rangSize = 200
    docPrefix = "-"docSuffix = "入场检验报告.doc"Search1 = "高压电源"Search2 = "6000000-TST"'Search1 = "AC-DC开关电源"'Search2 = "6000412-TST"rangSize = 50Dim myItem'myItem = Array(14, 16, 17, 18, 22, 23, 24, 26, 27, 31, 32, 33, 34, 35, 36, 48, 50, 55, 56, 62, 63, 64, 65, 66, 67, 68, 69, 71, 73, 77, 79, 102, 114, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 172, 173, 174, 175, 176, 177, 179, 180, 181)For I = 1 To 183srcPath = "C:\cygwin\tmp\BOM\pqc.doc"If ActiveSheet.Cells(I, 5) = "" ThenheadName2 = ActiveSheet.Cells(I, 3) & "-" & ActiveSheet.Cells(I, 4) & "-" & ActiveSheet.Cells(I, 5)headName = headName2 & docSuffixheadName3 = ActiveSheet.Cells(I, 4)ElseheadName2 = ActiveSheet.Cells(I, 3) & "-" & ActiveSheet.Cells(I, 4) & "-" & ActiveSheet.Cells(I, 6)headName = headName2 & docSuffixheadName3 = ActiveSheet.Cells(I, 4) & "（" & ActiveSheet.Cells(I, 5) & "）"End IfheadName = Replace(headName, "/", "-")path = "D:\bom\"srcPath2 = path & "\aa.doc"'pspname = path & "\" & ActiveSheet.Cells(I, 3) & docPrefix & ActiveSheet.Cells(I, 4) & docSuffixpspname = "D:\bom\" & ActiveSheet.Cells(I, 3) & "-INS-V1.0.doc"tstname = "D:\bom\" & headName2 & "过程检验报告.doc"tstnumber = ActiveSheet.Cells(I, 3) & "-TST"If IsFileExists(pspname) = True ThenFileCopy srcPath, srcPath2Name srcPath2 As tstnameSet wordApp = CreateObject("Word.Application")                  '建立WORD实例wordApp.Visible = False                                         '屏蔽WORD实例窗体Set wordDoc = wordApp.Documents.Open(tstname)                   '打开文件并赋予文件实例Set wordSelection = wordApp.Selection                           '定位文件实例Set wordArange = wordApp.ActiveDocument.Range(0, rangSize)      '指定文件编辑位置wordArange.Select                                               '激活编辑位置DoReplaceSign = wordArange.Find.Execute("XXX", True, , , , , wdReplaceAll, wdFindContinue, , headName2, True)Loop Until ReplaceSign = False'For Each rngStory In wordDoc.StoryRanges'  Do'    ReplaceSign = rngStory.Find.Execute(Search2, True, , , , , wdReplaceAll, wdFindContinue, , tstnumber, True)'    Set rngStory = rngStory.NextStoryRange'  Loop Until rngStory Is Nothing'Next
          wordDoc.SavewordDoc.Close TruewordApp.QuitEnd IfNext IEnd Sub

转载于:https://www.cnblogs.com/cnpirate/p/5019730.html

依据BOM和已经存在的文件生成其他种类的文件相关推荐

java生成pdf_Java实现PDF文件生成并且打印pdf文件 demo
## Java实现PDF生成并且打印pdf文件(附demo) #### 目录: 0. 效果预览 1. 准备环境 2. Java如何调用打印机进行打印 3. Java如何生成pdf打印文件 4. 实现p ...
多个cpp文件生成so_C++:C++的文件搜索路径
在做大型工程的时候,除了有C++语法知识之外,还要有工程能力. 最先要具备的能力是: 理解C++文件的编译,链接过程. 明白C++头文件的搜索路径. 本文,介绍C++的文件搜索路径. 对于C++文件来 ...
使用NPOI按照word模板文件生成新的word文件
/// <summary>/// 按照word模板文件生成新word文件/// </summary>/// <param name="tempFile&quo ...
pb文件生成java类,根据proto文件生成pb和pb_service文件
假如有一个HelloWorld.proto文件,内容如下: syntax = "proto3"; option java_package = "ex.grpc" ...
npoi word生成HTML,使用NPOI按照word模板文件生成新的word文件
/// /// 按照word模板文件生成新word文件 /// /// 模板文件路径 /// 生成文件路径 /// 议案登记 public void CreateFileByTemplate(str ...
根据proto文件生成pb和pb_service文件
假如有一个HelloWorld.proto文件,内容如下: syntax = "proto3";option java_package = "ex.grpc"; ...
Cocos Creator TypeScript 中使用ProtoBuf(利用工具把proto文件生成对应的js文件以及ts文件)
我是一枚刚入坑cocos的小白o(╯□╰)o 开发环境:Cocos Creator 1.9 (需要安装Node.js,使用npm命令) 在网上找了很久都是讲的protobuf.js的用法,但是没有 ...
【LaTex】利用ins文件和dtx文件生成cls或sty文件，latex宏包的生成与创建方法；配置宏包文件的方法，latex宏包文件放置目录
一.宏包文件无法找到在编译tex文件时,如果宏包文件并不在配置目录中,就会发出类似[LaTeX Error: File `pageno.sty' not found.]的错误. 二.解决方法就是自己 ...
使用key和pem文件生成 pfx 或 jks 文件
1.准备好 key 和 pem 文件 server.key server.pem 2.生成 pfx 文件 openssl pkcs12 -export -out server.pfx -inkey s ...

依据BOM和已经存在的文件生成其他种类的文件

依据BOM和已经存在的文件生成其他种类的文件相关推荐

最新文章

热门文章