随笔分类 - VBA
摘要：Function findAndCopy(srcFile As String, destFile As String, cmdFile As String) Dim WSH As Object, wExec As Object, result Dim val, n Dim i As Integer Dim sFile As Object, Fso As Objec...
阅读全文
摘要：Function IsFileExists(ByVal strFileName As String) As Boolean If Dir(strFileName, 16) Empty Then IsFileExists = True Else IsFileE...
阅读全文
摘要：自己在公司里面维护了一个小金库的Excel，当某个人的余额小于0的时候，Outlook会自动给这个人发一封邮件，同时将这个Excel附在邮件中，具体的代码如下：Public Function sendEmail(mailTo As String) Application.ScreenUpdat...
阅读全文
摘要：在BOM中记录中有物料编码，物料名称，物料规格等，而且依据BOM已经生成了一些的文件，如采购规格书，这个时候需要生成相应的检验规格书模板，可以使用下面的VBA代码，具体代码如下：Function IsFileExists(ByVal strFileName As String) As Boolean...
阅读全文
摘要：在BOM中记录中有物料编码，物料名称，物料规格等，而且依据BOM已经生成了相应的文件，如采购规格书，检验规格书等，这个时候需要获得这些文件的标题，并且生成一个列表，可以使用下面的VBA代码，具体代码如下：Function IsFileExists(ByVal strFileName As Strin...
阅读全文
