| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 439 人关注过本帖
标题:excel的VB5.8中编程哪里有错
取消只看楼主 加入收藏
yualong00
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2011-7-7
收藏
 问题点数:0 回复次数:1 
excel的VB5.8中编程哪里有错
思路:
搜索电脑F盘内全部.xls文件,搜索到立即打开,如果发现有名称为00000ppy的隐藏工作表(位置是格式-工作表-取消隐藏),则删除此表。然后删除插入-名称-定义中所有定义项目,保存工作表,关闭,继续循环到全部项目完成。
我改编了一个,懂的可以看看。使用起来没错,但无法删除那些我要删的内容,望高手指导。
 Dim fs
    Dim mypath As String
    Dim theSh As Object
    Dim theFolder As Object
   Set theSh = CreateObject("shell.application")
    Set theFolder = theSh.BrowseForFolder(0, "", 0, "")
    If Not theFolder Is Nothing Then
        mypath = theFolder.Items.Item.Path
    End If
   Set fs = Application.FileSearch
    With fs
        .NewSearch
        .SearchSubFolders = True
        .LookIn = mypath
        .Filename = "*.xls"
        If .Execute(SortBy:=msoSortByFileName) > 0 Then
            c = .FoundFiles.Count
            Application.ScreenUpdating = False
            Application.AskToUpdateLinks = False
            Application.DisplayAlerts = False
            On Error Resume Next
            For i = 1 To c

                Workbooks.Open Filename:=.FoundFiles(i)
                Sheets("00000ppy").Visible = -1
                Sheets("00000ppy").Delete
                ActiveWorkbook.Names("solar_ratio").Delete
                ActiveWorkbook.Names("ss7fee").Delete
                ActiveWorkbook.Names("subsfee").Delete
                ActiveWorkbook.Names("toolbox").Delete
                ActiveWorkbook.Names("Z32_Cost_red").Delete
                ActiveWorkbook.Names("V5.1Fee").Delete
                ActiveWorkbook.Save
                ActiveWorkbook.Close
            Next
        End If
    End With
    Set fs = Nothing
    Application.ScreenUpdating = True
    Application.AskToUpdateLinks = True
    Application.DisplayAlerts = True
End Sub

用的是excel打开后按ALT+F11。
用途是反制一个宏。
搜索更多相关主题的帖子: 搜索 项目 Object excel 工作表 
2011-07-07 16:46
yualong00
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2011-7-7
收藏
得分:0 
      在后面改成这样,好像就好用一些,还有什么要改进的么?         
ActiveWorkbook.Save
                If ActiveWorkbook.Name <> ThisWorkbook.Name Then ActiveWorkbook.Close
2011-07-07 17:06
快速回复:excel的VB5.8中编程哪里有错
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024296 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved