精华内容
下载资源
问答
  • Dir[(pathname[,attributes])]构建测试环境如下:一、测试在dir函数中使用通配符来查找多个文件,在VBE输入代码如下:Sub ListFiles()Dim strPath As String, strTmp As StringstrPath = "c:\test\"strTmp = Dir...

    Dir[(pathname[,attributes])]

    构建测试环境如下:

    一、测试在dir函数中使用通配符来查找多个文件,在VBE中输入代码如下:

    Sub ListFiles()

    Dim strPath As String, strTmp As String

    strPath = "c:\test\"

    strTmp = Dir(strPath & "*.txt")

    Do While strTmp <> ""

    Debug.Print strPath & strTmp

    strTmp = Dir

    Loop

    End Sub

    本意为查找所有txt文档,得到结果如下:

    c:\test\vba.txt

    c:\test\新建文本文档.txtd

    c:\test\新建文本文档 (2).txt

    程序运行结果中不但包括txt文档,还包含txtd文件。

    二、测试attributes参数,代码如下:

    Sub ListSubFolder()

    Dim strPath As String, strTmp As String

    strPath = "c:\test\"

    strTmp = Dir(strPath & "vb*", vbDirectory)

    Do While strTmp <> ""

    Debug.Print strPath & strTmp

    strTmp = Dir

    Loop

    End Sub

    本意为查找VB开头的文件夹,程序运行结果为:

    c:\test\vba

    c:\test\vba.txt

    结果中不但包含了VBA文件夹,还包含VBA.txt文件。

    三、感想及小结

    1.dir函数是完全按字节匹配pathname参数,而不是按类型。

    2.attributes参数是包含关系,而不是独有关系。

    3.如只想获得文件夹,需使用条件判断语句。例,if getattr(strPath) and vbDirectory then .

    ————————————————

    版权声明:本文为CSDN博主「zjz1228」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。

    原文链接:https://blog.csdn.net/zjz1228/article/details/104629321

    展开全文
  • vba中API函数调用问题

    2021-04-08 20:33:19
    (ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As Long  Private Declare Function EnumJobs Lib 'winspool. drv' Alias 'EnumJobsA' (ByVal hPnnter As Long, ...
  • vba中dir函数使用心得

    千次阅读 2020-03-03 12:11:26
    一、测试在dir函数中使用通配符来查找多个文件,在VBE输入代码如下: Sub ListFiles() Dim strPath As String, strTmp As String strPath = "c:\test\" strTmp = Dir(strPath & "*...

    Dir[(pathname[,attributes])]

    构建测试环境如下:

    一、测试在dir函数中使用通配符来查找多个文件,在VBE中输入代码如下:

    Sub ListFiles()
        Dim strPath As String, strTmp As String
        strPath = "c:\test\"
        strTmp = Dir(strPath & "*.txt")
        
        Do While strTmp <> ""
            Debug.Print strPath & strTmp
            strTmp = Dir
        Loop
    End Sub

    本意为查找所有txt文档,得到结果如下:

    c:\test\vba.txt
    c:\test\新建文本文档.txtd
    c:\test\新建文本文档 (2).txt

    程序运行结果中不但包括txt文档,还包含txtd文件。

    二、测试attributes参数,代码如下:

    Sub ListSubFolder()
        Dim strPath As String, strTmp As String
        strPath = "c:\test\"
        strTmp = Dir(strPath & "vb*", vbDirectory)
        Do While strTmp <> ""
             Debug.Print strPath & strTmp
             strTmp = Dir
        Loop
    End Sub

    本意为查找VB开头的文件夹,程序运行结果为:

    c:\test\vba
    c:\test\vba.txt

    结果中不但包含了VBA文件夹,还包含VBA.txt文件。

    三、感想及小结

    1.dir函数是完全按字节匹配pathname参数,而不是按类型。

    2.attributes参数是包含关系,而不是独有关系。

    3.如只想获得文件夹,需使用条件判断语句。例,if getattr(strPath) and vbDirectory then ...

    展开全文
  • VBA中API函数调用问题

    2021-04-14 23:40:32
    上述是是调用打印机的API函数过程,其中"Fujitsu DPK890T",为打印机名称,经过运行,句柄hPrinter是不为0,存在的,但为什么返回分shuchu值为0,显示调用不成功...
  • 返回特定数目空格的 Variant (String)。 语法 Space(number) 必要的 number 参数为字符串想要的空格数。 说明 Space 函数在格式输出或清除固定长度字符串数据时很有用。 Space 函数示例 本示例使用 Space ...

    Space 函数

    返回特定数目空格的 Variant (String)。

    语法

    Space(number)

    必要的 number 参数为字符串中想要的空格数。

    说明

    Space 函数在格式输出或清除固定长度字符串数据时很有用。

    Space 函数示例

    本示例使用 Space 函数来生成一个字符串,字符串的内容为空格,长度为指定的长度。

    Dim MyString
    ' 返回 10 个空格的字符串。
    MyString = Space(10)
    
    ' 将 10 个空格插入两个字符串中间。
    MyString = "Hello" & Space(10) & "World"

    String 函数

    返回 Variant (String),其中包含指定长度重复字符的字符串。

    语法

    String(number, character)

    String 函数的语法有下面的命名参数

    部分 说明
    number 必要参数;Long。返回的字符串长度。如果 number 包含 Null,将返回 Null
    character 必要参数;Variant。为指定字符的字符码字符串表达式,其第一个字符将用于建立返回的字符串。如果 character 包含 Null,就会返回 Null

    说明

    如果指定 character 的数值大于 255,String 会按下面的公式将其转为有效的字符码:

    character Mod 256

    String 函数示例

    本示例使用 String 函数来生成一指定长度,且只含单一字符的字符串。

    Dim MyString
    MyString = String(5, "*")    ' 返回 "*****"。
    MyString = String(5, 42)    ' 返回 "*****"。
    MyString = String(10, "ABC")    ' 返回 "AAAAAAAAAA"。

    source:VBA Help

    展开全文
  • 大家好,我们今日继续讲解VBA代码解决方案的第65讲内容:在VBA中Dir函数的利用及删除文件的方法 在操作文件时删除一个文件时再平常不过的事情,选中它右键删除,或者直接按DELETE键删除即可,在VBA中操作却是要利用...

    9d4fa9ebcb7b4915f1ba01caa37ad83b.png

    大家好,我们今日继续讲解VBA代码解决方案的第65讲内容:在VBA中Dir函数的利用及删除文件的方法

    在操作文件时删除一个文件时再平常不过的事情,选中它右键删除,或者直接按DELETE键删除即可,在VBA中操作却是要利用代码来完成这些操作,用代码该如何进行呢?今日我们来讲解这个问题。在讲解之前还是先看看知识点吧。

    一:Dir函数。Dir函数返回一个String,用以表示一个文件名、目录名或文件夹名称。

    语法如下:Dir[(pathname[, attributes])]

    参数:

    a) pathname是可选的,用来指定文件名的字符串表达式,可能包含目录或文件夹、以及驱动器。如果没有找到pathname,则会返回零长度字符串 ("")。

    b) attributes是可选的,常数或数值表达式,其总和用来指定文件属性,如下面所示。如果省略,则会返回不包含属性的匹配文件。

    vbNormal 0 (缺省) 指定没有属性的文件。

    vbReadOnly 1 指定无属性的只读文件。

    vbHidden 2 指定无属性的隐藏文件。

    VbSystem 4 指定无属性的系统文件,在Macintosh中不可用。

    vbVolume 8 指定卷标文件;如果指定了其它属性,则忽略。vbVolume 在Macintosh中不可用。

    vbDirectory 16 指定无属性文件及其路径和文件夹。

    vbAlias 64 指定的文件名是别名,只在Macintosh上可用。

    特别注意: 在第一次调用Dir函数时,必须指定pathname,否则会产生错误。

    二:Kill语句,从磁盘中删除文件。

    语法如下:Kill pathname

    参数pathname是必需的,用来指定一个文件名的字符串表达式,可以包含目录或文件夹、以及驱动器。

    特别注意点1:在Microsoft Windows中,Kill方法支持多字符 (*) 和单字符(?)的统配符来指定多重文件,如需要删除当前目录下所有*. Xls文件可以使用下面的代码:Kill "*.xls"

    特别注意点2: 使用Kill方法不能删除已打开的文件,否则会产生错误。

    有了上面的两个知识点,我们再看使用Kill方法删除指定的文件的方法,如下面的代码。

    Sub MyKillFile()

    Dim myFile As String

    myFile = ThisWorkbook.Path & "ABCabc.docx"

    If Dir(myFile) <> "" Then

    Kill myFile

    Else

    MsgBox "NOT " & ThisWorkbook.Path & " ABCabc.docx 文件!"

    End If

    MsgBox "ok!"

    End Sub

    代码解析:

    MyKillFile过程使用Kill方法示例文件所在文件夹中的“abc.docx”文件。

    第3行代码指定所要删除文件的路径和文件名称。

    第4行代码使用Dir函数返回指定文件名,如果存在该文件则使用Kill语句删除。

    代码窗口:

    21751db9ff59e47fb55b1d5f58dea467.png

    如果不存在文件,则返回:

    72f19d163b82e34edbf4268d29c9b431.png

    如果存在此文件,则删除,最后运行完成,返回:

    3bbf2ac6adf87e5d840a866f18bed658.png

    今日内容回向:

    1 DIR 函数的意义是什么?

    2 如何删除一个指定文件呢?

    欢迎大家到我的自媒体平台沟通交流:个人微信号“NZ9668”、头条号“VBA专家”、百家号“VBA与GO语言”、微信公众号“NZ_9668”、社群“VBA学习交流群”。

    这一系列文章是根据我多年的工作经验编写的,也是一直在利用的工具,非常方便好用。现在分享出来,希望能对同样在职场打拼的朋友有些许的帮助,使你的工作更加高效、流畅。朋友们有问题请随时提出来,我们一起探讨学习。对数据分析有需要的公司、组织或个人可以直接联系我,及时为你提供专业的定制技术支持。

    工作不是一切。工作是每个人安身立命、成长发展的基础。但你要知道工作是永远也做不完的,时间会抹去很多问题。多关注自己、家人和朋友,这些才是我们生活中更为重要的东西。

    展开全文
  • C语言标准库接上篇:C语言 ctype.h 的字符判断函数C语言 string.h 的字符串函数头文件声明了各种常用的数学函数。其所有函数都带有一个 double 类型的参数,且返回值的类型均为double。六种基本初等函数参见:...
  • vba中如何使用函数counta

    千次阅读 2019-04-24 23:08:54
    COUNTA是excel统计非空单元格的函数,有的时候我们在写vba代码的时候也非常需要这个函数。 下面记录一下如何使用。 Option Explicit Sub test() Dim i As Long Dim j As Long Dim sht_name As String Dim ...
  • Len(字符串/字符串变量) 返回字符串的字符个数LenB(字符串/字符串变量) 返回字符...开始位置,字符数量) 返回字符串从左边指定位置开始,指定数量的字符String(返回字符数,字符码或字符串表达式) 返回参数字符串第...
  • 现做了个自定义函数,可在工作表添加动态图表,支持选择连续单元格. 不足之处,还望多提宝贵意见. 函数: Function MyChart(Optional ByVal MyChart_Name As String = "我的图表", Optional ByVal MyChart_Type As ...
  • 本期介绍的是VBA中的Mid函数。 Mid()函数是截取字符串用的,比如“ABCDEF”字符串,我们想截取前面一部分,变成“ABCD”,那我们就需要Mid()函数,摘取网路上的书面解释,Mid()的释义如下: Mid()函数返回给定...
  • VBA InStr 函数

    千次阅读 2019-07-05 19:40:57
    InStr 函数 函数 (Visual Basic for Applications) 返回一个 **Variant **(Long) 值,指定一个字符串... InStr([start],string1,string2, [compare]) InStr函数语法有以下参数: Part 说明 sta...
  • VBA中字符串的相关函数

    千次阅读 2019-05-24 15:53:56
    使用 len() 函数获得一个字符串长度 使用 left() mid() ,right() 截取字符串 使用 replace() 把字符串的某个字符替换成其它字符 使用 split() 把字符串按某个字符分割 instr运算符 Like运算符 使用string()...
  • '自定义函数,将数组的元素连接起来(可以每个元素两边分别加字符) 'By Gao Dawei,2020-10-09 Function ArrayJoin(ByVal arr As Variant, Optional element_plugin_left As String = "", _ Optional element_...
  • Excel的拼接要说起Excel的拼接,最简单就是或者CONCATENATE()函数,不过用来拼接SQL语句真是略有不足啊,这满屏幕的单引号、双引号、逗号百花齐放百家争鸣,看得人眼花缭乱不可开交。VBA开发format...
  • Excel的拼接要说起Excel的拼接,最简单就是或者CONCATENATE()函数,不过用来拼接SQL语句真是略有不足啊,这满屏幕的单引号、双引号、逗号百花齐放百家争鸣,看得人眼花缭乱不可开交。VBA开发format...
  • 需要安装对应驱动程序: mysql-connector-odbc输出的数组首行为表头'从Mysql取数并转换为二维数组Public Function GetMySQlArr(ByVal SQLStr As String)Dim TempArr, AimArrDim i As Long, r As LongDim ...
  • excel vba replace函数的使用方法

    万次阅读 2020-03-01 14:09:32
    Repalace函数vba中常用的字符替换函数,本文介绍了replace的基本使用方法,6个参数的意思。 Sub replacetest() Dim str As String Dim str2 As String str = "ababab" 'vba.Replace("在哪儿找","找什么(需要被...
  • Instr函数是十分实用的,它可以查询某个字符串在另一个字符串是否出现,并且返回该查询字符串最先出现的索引位置。Instr函数常常与Mid函数一起使用,会有非常好用的效果。不过Instr函数并非Excel内置的函数,因此...
  • 1.在dgv进行增加、删除、修改行时应针对dt进行操作,然后刷新xml ...string sDescription = InputBox.ShowInputBox("请输入表达式的说明!"); public class InputBox : System.Windows.Forms.F...
  • VBA之使用自定义函数

    千次阅读 2020-03-29 19:33:20
    如何在vba中使用自定义的函数呢? 首先在模块里定义好函数,然后注意要往里面传参 然后在excel单元格里调用该函数 1.需求1,判断性别 代码如下 Function zmj(x) zmj = (x / 6.03) - x * 0.03 End Function Function ...
  • excel vba中调用SQLConfigDataSource函数时返回值总是FALSE,是哪里出错了?请高手指教! 代码如下: Private Const ODBC_ADD_SYS_DSN = 4 Private Declare PtrSafe Function SQLConfigDataSource Lib "odbccp32....
  • 大家好,我们今日继续讲解VBA代码解决方案的第65讲内容:在VBA中Dir函数的利用及删除文件的方法在操作文件时删除一个文件时再平常不过的事情,选中它右键删除,或者直接按DELETE键删除即可,在VBA中操作却是要利用...
  • excel2016 64bit的vba中使用API函数RegisterClass注册窗体类就Excel就崩溃!请问是怎么回事? ``` Option Explicit Public Declare PtrSafe Function RegisterClass Lib "user32" Alias "RegisterClassA" ...
  • 因见到有人求助批量设置工作簿的超链接,尝试写了一段代码: 1 Sub AddHyperlinks() 2 3 Dim strName As String, source As String, target As String 4 Dim i As Integer 5 6 i = 5 7 source =...
  • ll_Pos = InStr(PanelName(K), "-") '-在字符第几个出现 If ll_Pos > 0 Then NewSheet.Cells(nrow, 1) = Mid(PanelName(K), ll_Pos + 1) '从左边ll_Pos+1个字符开始取剩余全部 NewSheet.Cells(nrow, 2) = Mid...
  • Excel VBA 函数

    2014-04-11 14:46:00
    InStr([start, ]string1, string2[, compare]) InStr 函数的语法具有下面的参数:start 可选参数。为数值表达式,设置每次搜索的起点。如果省略,将从第一个字符的位置开始。如果指定了 compare 参数,则一定...
  • VBA中DIR用法举例VBA中DIR函数用法讲解1、dir代码演示先上一段代码,作用是获取某个文件夹下子文件夹和文件的名称没加注释的代码Sub 获取文件夹和文件名()Dim str1 As String, str2 As String, i As IntegerSet a = ...
  • 电商界的很多表弟,表妹,表哥、表姐问,我想知道我的商品标题是否包含一个 或 多个 违规词,包含的是哪些违规词呢?会点函数基础的同学就机智地回答了哈:用SUBSTITUTE函数替换没错,如果只检查一个违规词的话,...

空空如也

空空如也

1 2 3 4 5 ... 9
收藏数 164
精华内容 65
关键字:

vba中string函数