zoukankan      html  css  js  c++  java
  • VBA方法总结

    1.取得日文汉字的读音的方法(例如強→キョウ)

        Application.Getphonetic(str)

    2.保存Excel文件时不弹出是否保存的alter

        wb.close(false) 

    3.提示消息不要

        Application.displayAlter =false

    4.Excel的sheet比例的大小调整

        ActiveWindow.Zoom = 70

    5. 利用Excel来打开文本文件的方法  

      Dim jsFileSheet As Worksheet
        Dim jsWb As Workbook
        Workbooks.OpenText fileName:= _
            jsFileName, Origin:=65001, _
            startRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
            ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
            , Space:=False, Other:=False, TrailingMinusNumbers:=True
        Set jsWb = ActiveWorkbook
        Set jsFileSheet = jsWb.Sheets(jsFunName)

    6. 在Excel中查找字符的位置 

    Dim rngStart
    Set rngStart = jsFileSheet.Cells.Find(keyWord)
    Dim addr
    addr = rngStart.Address
    Do
        
        Set rngStart = jsFileSheet.Cells.FindNext(rngStart)
    Loop Until addr = rngStart.Address
    

    7. 删除指定的文件的方法

    Sub deleteFiles(fileName As String)
        Dim fs As Object
        Set fs = CreateObject("scripting.filesystemobject")
        fs.DeleteFile fileName
    End Sub
    

    8. 删除指定文件夹里面的所有文件,不包括文件夹

    Sub deleteFiles(path As String)
        
        Dim fs As Object
        Set fs = CreateObject("scripting.filesystemobject")
        fs.DeleteFile path & "*.*"
    End Sub
    

    9. 拷贝文件之后重新命名

    Function CreatFile(template As String,path As String, beforeFileName As String, afterFileName As String)
    
        On Error GoTo lab1
            Dim Fso As Object
            Set Fso = CreateObject("Scripting.FileSystemObject")
            Fso.CopyFile template, path
            Name beforeFileName As afterFileName
            Set Fso = Nothing
            CreatFile = True
            Exit Function
    lab1:
        CreatFile = False
    End Function
    

    10. 文件存在check

    Function IsFileExists(ByVal strFileName As String) As Boolean
        If Dir(strFileName, 16) <> Empty Then
            IsFileExists = True
        Else
            IsFileExists = False
        End If
    End Function
    

      

      

  • 相关阅读:
    js确定取消—js确定取消判断
    css3响应式布局教程—css3响应式
    python算法介绍:希尔排序
    python教程:用简单的Python编写Web应用程序
    用Scratch制作一个Hello World程序
    scratch教程:学做控制类积木
    北邮《数据库原理与应用》应用阶段作业一带答案
    [20180614]删除bootstrap$记录无法启动2.txt
    [20180612]删除bootstrap$记录无法启动.txt
    [20180619]oradebug peek.txt
  • 原文地址:https://www.cnblogs.com/killclock048/p/9436353.html
Copyright © 2011-2022 走看看