关于vba代码删除特定板块名字

105130

有劳帮我写一段删除特定板块名字的vba代码：

1、环境情况：
每天跑程序保留板块名为：日期-xxx
如：2023-12-01-当周期信号、2023-12-02-当周期信号等
2、需求：
现在想把 2022开头的的历史板块都删掉
要全部分类、分部板块都筛选+删除

有劳写一下对应的vba中的运行代码

资深技术02

看下这里，板块的相关操作

105130

我有几千个块板，直接deleteblock要一个名字一个字输，那不可能操作完的啊，而且我有些分类的板块不想删。
能不能用类似pel的取字符串名字的公式STRFIND来删 ，。

资深技术02

这个只能一个个删的，你可以循环然后把要删的名字一个个循环后删除

105130

资深技术02 发表于 2024-3-11 11:03
这个只能一个个删的，你可以循环然后把要删的名字一个个循环后删除

我不是要把分类里的全部板块删掉，只要删开头5个字符为 "2022-"的板块，其它的23年24年的板块数据和其它数据，我是要保留的。

循环删就把分类下面全部板块都删了啊。

105130

比如pel里就有类似的公式：STRFIND

在字符串中查找另一个字符串。
STRFIND(STR,S1,N),从字符串STR的第N个字符开始查找字符串S1,返回找到的位置，若没有找到就返回0。
例如:
STRFIND('ABCDEFGH','CDE',1)返回3。
所属函数组：字符串函数

资深技术02

一样的，就是循环所有板块然后如果名字是符合你条件的话，才进行删除
这个应该是vba里面字符串啥的比较的操作

资深技术03

没有方法获得全部的分类。下面的示例是删除指定分类下含有2022字符的示例，你可以参考修改

[Visual Basic] 复制代码

Sub del_Block()
    Set Block = CreateObject("Stock.Block")
    Dim my_Array
    Set my_Array = CreateObject("Stock.ArrayString")

    '获取指定分类下的板块集合
    call Block.GetTypeBlock("自选",my_Array)
      
    '筛选以指定指定字符串开始的板块名称
    target_name="2022" 
    for i = 0 to my_Array.count-1
            '得到指定板块名称的前4个字符部分
            balock_name = Mid(my_Array.getat(i), 1, 4)

        if StrComp(target_name, balock_name, 0)=0 then 
                application.MsgOut "删除板块:"&my_Array.getat(i)
                call Block.DeleteBlock ("自选",my_Array.getat(i))
        end if
    next


    set Block = nothing 
    set my_Array = nothing 
end sub