精华内容
下载资源
问答
  • 大家好,我们今日继续讲解VBA代码解决方案的第69讲内容:利用Windows Scripting Host(WSH),删除文件。在Windows Scripting Host(WSH)中删除文件可以用可以使用DeleteFile方法。应用于FileSystemObject对象的...

    大家好,我们今日继续讲解VBA代码解决方案的第69讲内容:利用Windows Scripting Host(WSH),删除文件。在Windows Scripting Host(WSH)中删除文件可以用可以使用DeleteFile方法。

    应用于FileSystemObject对象的DeleteFile方法删除一个指定的文件,。

    语法如下:object.DeleteFile filespec[, force]

    参数

    a) object是必需的, FileSystemObject对象的名字。

    b) filespec是必需的,指明要删除文件的名字,可以在最后的路径部件中包含通配符。

    c) force是可选的,如果要删除具有只读属性设置的文件,其值为True。如果其值为False(缺省),则不能删除具有只读属性设置的文件。

    特别注意点:在处理文件时,我在最近一直在讲解利用借助于WSH的FileSystemObject对象模型,这个模式是微软提供的专门用来访问计算机文件系统的,具有大量的属性、方法和事件。其使 用面向对象的"object.method"语法来处理文件夹和文件,使用起来十分方便(需Office 2000以后版本)。FileSystemObject并不是VBA的一部分,它是以一个COM组件的形式提供的。因此,要使用先要创建 FileSystemObject对象。这点大家我特别注意。虽然这不是VBA的范畴,但我会在部分的章节中零散的讲一些FileSystemObject对象的相关知识。包括对象的模型和对象的方法。但由于篇幅,我这里主要还是玩VBA,这些不是作为重点,只是在章节中带一些。望大家在阅读的时候注意。

    我们继续,如果需要删除一个指定的文件,可以使用DeleteFile方法,如下面的代码所示。

    Sub MyDelFile()

    Dim MyFile As Object

    On Error Resume Next

    Set MyFile = CreateObject("Scripting.FileSystemObject")

    MyFile.DeleteFile ThisWorkbook.Path & "abc.docx"

    Set MyFile = Nothing

    MsgBox "OK!"

    End Sub

    代码解析:

    MyDelFile过程使DeleteFile方法删除示例文件所在文件夹中的"abc.docx"文件。

    第4行代码使用CreateObject函数创建FileSystemObject对象并将该对象赋给变量MyFile。

    第5行代码使用DeleteFile方法复制文件。

    运行DelFile过程删除示例文件所在文件夹中的"abc.docx"文件。

    fa61615f4a0b9927a498c98d256c12aa.png

    运行前:

    f257f2fbfec38cf6de7ebdc22d50b5de.png

    运行后:

    558c38e113392702f5a1971f68a6133a.png

    文件被删除了。

    今日内容回向:

    1 利用Windows Scripting Host(WSH),如何删除一个文件?

    2 删除的文件是否到回收站了呢?

    分享成果,随喜正能量

    展开全文
  • 大家好,我们今日继续讲解VBA代码解决方案的第69讲内容:利用Windows Scripting Host(WSH),删除文件。在Windows Scripting Host(WSH)中删除文件可以用可以使用DeleteFile方法。应用于FileSystemObject对象的...

    大家好,我们今日继续讲解VBA代码解决方案的第69讲内容:利用Windows Scripting Host(WSH),删除文件。在Windows Scripting Host(WSH)中删除文件可以用可以使用DeleteFile方法。

    应用于FileSystemObject对象的DeleteFile方法删除一个指定的文件,。

    语法如下:object.DeleteFile filespec[, force]

    参数

    a) object是必需的, FileSystemObject对象的名字。

    b) filespec是必需的,指明要删除文件的名字,可以在最后的路径部件中包含通配符。

    c) force是可选的,如果要删除具有只读属性设置的文件,其值为True。如果其值为False(缺省),则不能删除具有只读属性设置的文件。

    特别注意点:在处理文件时,我在最近一直在讲解利用借助于WSH的FileSystemObject对象模型,这个模式是微软提供的专门用来访问计算机文件系统的,具有大量的属性、方法和事件。其使 用面向对象的"object.method"语法来处理文件夹和文件,使用起来十分方便(需Office 2000以后版本)。FileSystemObject并不是VBA的一部分,它是以一个COM组件的形式提供的。因此,要使用先要创建 FileSystemObject对象。这点大家我特别注意。虽然这不是VBA的范畴,但我会在部分的章节中零散的讲一些FileSystemObject对象的相关知识。包括对象的模型和对象的方法。但由于篇幅,我这里主要还是玩VBA,这些不是作为重点,只是在章节中带一些。望大家在阅读的时候注意。

    我们继续,如果需要删除一个指定的文件,可以使用DeleteFile方法,如下面的代码所示。

    Sub MyDelFile()

    Dim MyFile As Object

    On Error Resume Next

    Set MyFile = CreateObject("Scripting.FileSystemObject")

    MyFile.DeleteFile ThisWorkbook.Path & "abc.docx"

    Set MyFile = Nothing

    MsgBox "OK!"

    End Sub

    代码解析:

    MyDelFile过程使DeleteFile方法删除示例文件所在文件夹中的"abc.docx"文件。

    第4行代码使用CreateObject函数创建FileSystemObject对象并将该对象赋给变量MyFile。

    第5行代码使用DeleteFile方法复制文件。

    运行DelFile过程删除示例文件所在文件夹中的"abc.docx"文件。

    cebafec3d21367a1bb109e87a9ec0034.png

    运行前:

    70714adc4c1841804c08721a2f080ab8.png

    运行后:

    f4913943d297a8559a69efa7c97a83f9.png

    文件被删除了。

    今日内容回向:

    1 利用Windows Scripting Host(WSH),如何删除一个文件?

    2 删除的文件是否到回收站了呢?

    分享成果,随喜正能量

    展开全文
  • 很多人对VBA有自己的见解,我对VBA的定义:VBA是利用Office实现个人小型办公自动化的有效手段(工具)。确实VBA可以提高自己的工作效率,给自己的工作带来轻松,如果大家对VBA感兴趣,如果你认为VBA可以给自己的工作...

    460a806b5eddc1c1638b434d22fef95f.png

    很多人对VBA有自己的见解,我对VBA的定义:VBA是利用Office实现个人小型办公自动化的有效手段(工具)。确实VBA可以提高自己的工作效率,给自己的工作带来轻松,如果大家对VBA感兴趣,如果你认为VBA可以给自己的工作带来帮助,可以系统的学习,最好能成为我的学员,汲取我的经验。我以传递我多年实际经验为宗旨,授人以渔。目前我只能满足对学员答疑,辅导,非学员朋友还望见谅。

    今日推出常用“积木”过程案例分享第328期: 如何删除指定文件。这些专辑就是我多年实际利用VBA的经验记录,来源于我多年的实践经验。目前我已经将所有代码修正为适合64位和32位两种系统,大家要把这些代码块作为一块块的积木对待,平时要多积累,建立自己的“积木库”,需要时拿来可以修正、组合。这就是我的“积木编程”的思想。最近代码是出自我的第一套教程”VBA代码解决方案”。如以提高自己能力为目的可以We!C!h a t两个对象: VBA6337(或者NZ9668),两个对象是都是可以的。

    94ff03b5240fdd7e892d2232ff90cadd.png

    ====================== ① ======================

    Sub mynz_44()

    Dim Filename As Variant

    Dim mymsg As Integer

    Dim i As Integer

    Filename = Application.GetOpenFilename(Title:="删除文件", MultiSelect:=True)

    If IsArray(Filename) Then

    mymsg = MsgBox("是否删除你所选文件?", vbYesNo, "提示")

    If mymsg = vbYes Then

    For i = 1 To UBound(Filename)

    Kill Filename(i)

    Next

    End If

    End If

    End Sub

    c16ceac8f3881c8e44b0a4a0cff47000.png

    ================②=====================

    代码解读:

    mynz_44()过程使用GetOpenFilename方法显示标准的内置“打开”对话框,获取用户选定文件的文件名后使用Kill语句删除。

    a) 第5行代码显示标准的“打开”对话框,将对话框的标题设置为“删除文件”,将MultiSelect参数设置为True,允许选定多个文件。

    b) 第6行代码,获得返回值。当用户选定文件后,返回的是选定的文件名或用户输入的文件名。因为MultiSelect参数已设置为True,所以返回值将是一个包含所有选定文件名的数组(即使仅选定了一个文件名)。如果用户取消了对话框,则该值为False。

    c) 第8行到第12行代码,经询问用户后使用Kill语句从磁盘中删除用户选定的文件。

    运行mynz_44过程,显示标准的内置“打开”对话框,删除用户选定的文件.

    • 特别提示2: VBA中数组下界默认从0开始,但使用GetOpenFilename方法选择多个文件时返回的包含选定文件名的数组下界是从1开始。

    9a5a8d88ffc44ec083f3214724418534.png

    各套教程的介绍:

    第1套(初级):VBA代码解决方案

    第2套(中级+):VBA数据库解决方案

    第3套(中级-):VBA数组与字典解决方案

    第4套(初级):VBA代码解决方案之视频

    第5套(高级):VBA中类的解读和利用

    第6套(高级):VBA信息获取与处理

    学习顺序:13265或者43265。其中第四套是对第一套的视频讲解,所以第一和第四只选其一即可。

    分享成果,随喜正能量

    展开全文
  • VBA实现批量删除指定文件夹下工作表表头,如图所示,删除前与删除后效果。 但在运行时出错 (文件夹内工作薄模拟了上报的数据,只能保证结构相同,数据质量得不到保证,要求在这种情况下运行),请各位高手帮我看看...

    用VBA实现批量删除指定文件夹下工作表表头,如图所示,删除前与删除后效果。

    但在运行时出错

    (文件夹内工作薄模拟了上报的数据,只能保证结构相同,数据质量得不到保证,要求在这种情况下运行),请各位高手帮我看看代码错在哪儿?

    补充内容(2015-7-30 15:32:23):

    Sub deleteheadline()

    Dim Fso As Object, Folder As Object

    Dim i&, n&, a, b, Wb As Workbook, p$

    With Application.FileDialog(msoFileDialogFolderPicker)

    .InitialFileName = ThisWorkbook.Path & "\"

    If .Show = False Then Exit Sub

    p = .SelectedItems(1)

    End With

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

    Set Fso = CreateObject("Scripting.FileSystemObject")

    With ThisWorkbook

    For Each File In Fso.GetFolder(p).Files

    If File.Name Like "*.xls" Then

    n = n + 1

    Set Wb = Workbooks.Open(File)

    Application.DisplayAlerts = False

    If ThisWorkbook.MultiUserEditing Then

    ThisWorkbook.UnprotectSharing ("")

    End If

    Application.DisplayAlerts = True

    Wb.Unprotect

    Wb.Sheets("基本情况(填表)").Unprotect

    Wb.Sheets("基本情况(填表)").Rows("1:4").delete

    Wb.Close False

    End If

    Next

    End With

    Set Fso = Nothing

    Application.ScreenUpdating = True

    MsgBox "表头已删除!"

    End Sub

    补充内容(2015-7-30 15:33:13):

    展开全文
  • 大家好,我们今日继续讲解VBA代码解决方案的第65讲内容:在VBA中Dir函数的利用及删除文件的方法 在操作文件删除一个文件时再平常不过的事情,选中它右键删除,或者直接按DELETE键删除即可,在VBA中操作却是要利用...
  • 在Excel表中通过VBA编码,制做了一个小程序,功能是"修改指定文件夹包括子文件文件后缀名".说明:Excel表的sheel1列A中存放了后缀名,不能删除。否则窗口中的下拉框没有值。该程序的特点是用VBA调用外部批处理代码...
  • 这段时间写的程序也少了,可能是真正的会了,也就这么回事了。但这几天一直在想一个问题,如何操作文件及文件夹,虽然以前也零零碎碎写...②如何删除指定工作表,并不出现提示;③如何统计工作表的个数;④如何将指...
  • VBA打开TXT类文件读写相关操作代码

    千次阅读 2019-03-11 23:23:32
    Open 文件名 for 打开方式 as 文件编号 打开方式:Input :只能...读取txt文件内容方法input:从文件中读取指定数量的字符。Input #:把数据读出放在变量里,变量用逗号分隔Line Input #:取出完整的一行 向文件中写...
  • 文件操作函数有时无法成功情况,有可能是windows文件夹权限,不允许删除修改等。 MkDir(“文件夹路径和名称”) 根据指定路径和名称新建一个文件夹,如果该文件夹已经存在,则会发生错误 FileCopy(“源文件名”,”...
  • VBA基础知识整理(文本文件操作)

    千次阅读 2019-05-14 07:44:21
    txt文件的读写 'Open 文件名 for 打开方式 as 文件编号 '打开方式: 'Input :只能读,不能写 ...但总会把原来的同名文件删除,再新建一个 '读取txt文件内容方法 'input:从文件中读取指定数量的字符。 ...
  • FSO对象是什么鬼?...FSO 对象模型可以实现文件(夹)的创建、改变、移动和删除等常见操作,也可以获取文件(夹)的名称、大小、属性、创建日期或最近修改日期等信息,还可以检测是否存在指定的文件夹。通过F...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧178 删除指定文件 12 技巧179 搜索特定的文件 12 技巧180 使用WSH处理文件 12 180-1 获取文件信息 12 180-2 查找文件 12 180-3 移动文件 12 180-4 复制文件 12 180-5 删除文件 12 180-6 创建文件夹 12 180-7 ...
  • 将多个相同字段类型的Excel文件,全部都放在一个文件夹。 然后全部统一合并到一个指定的Excel里。 {Power Query} 不仅可以将文件夹下所有的文件... 判断文件内容是否与已有字段重复,如重复,则删除列 操作步骤与演...
  • 点上方关注我们,每天早上5分钟,让Excel多点轻松大家好,我是星光,孔子曰一日不见如隔三秋兮——多无聊的人这是~今天和大家分享的VBA小代码是按指定条件批量删除工作簿。如下图所示,文件夹下包含了多个Excel文件...
  • Excel_VBA教程

    2014-09-22 11:36:34
    第八章 利用VBA操纵文件和文件夹 144 1.获取当前文件夹的名称(CURDIR函数) 144 2.更改文件或文件夹名称(NAME函数) 145 3.检查文件或文件夹是否存在(DIR函数) 145 4.获得文件修改的日期和时间(FILEDATETIME...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧178 删除指定文件 425 技巧179 搜索特定的文件 426 技巧180 使用WSH处理文件 428 180-1 获取文件信息 428 180-2 查找文件 430 180-3 移动文件 431 180-4 复制文件 431 180-5 删除文件 432 180-6 创建文件夹 ...
  • 分享成果,随喜真能量。大家好,今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码,这些内容大多是取至我编写的“VBA代码解决... 161:利用VBA代码,如何删除指定文件VBA过程代码159:用InputBox方法获...
  • VBA与数据库

    2015-11-19 18:07:38
    1-1 利用DAO创建数据库和数据表 7 1-2 利用ADOX创建数据库和数据表: 8 1-3 利用SQL语句创建数据库和数据表 9 1-4 在已有的数据库中创建数据表(DAO) 10 ...•实例10-11 将文本文件保存为Access数据库(ADO+ADOX) 211
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    6 删除........................................................................ 6 打开........................................................................ 6 读入......................................
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    第八章 利用VBA操纵文件和文件夹 144 1.获取当前文件夹的名称(CURDIR函数) 144 2.更改文件或文件夹名称(NAME函数) 145 3.检查文件或文件夹是否存在(DIR函数) 145 4.获得文件修改的日期和时间(FILEDATETIME...
  • CAD_VBA开发手册

    热门讨论 2008-12-06 17:57:59
    删除对象 比例缩放对象 转换对象 延伸和修剪对象 分解对象 编辑多段线 编辑样条曲线 编辑阴影 使用图层、颜色和线型 使用图层 使用颜色 使用线型 分配图层、颜色和线型给对象 添加文本到图形中 处理...
  • Excel VBA实用技巧大全 附书源码

    热门讨论 2010-10-08 18:59:24
    01037设置最近使用的文件清单中的最多文件数 01038设置新工作簿中的工作表个数 01039设置文件的默认位置 01040设置保存自动恢复文件的时间间隔和保存位置 01041停止屏幕刷新 01042使事件无效 01043使取消键无效 ...
  • Excel VBA程序设计.doc

    2009-07-06 22:16:12
    Excel VBA程序设计.doc 目 录 一、VBA语言基础 1 第一节 标识符 1 第二节 运算符 1 第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 第六节 注释和赋值语句 2 第七节 书写规范 2 第八节 判断语句 2 第九节 ...
  • Excel VBA与数据库整合应用范例精讲

    热门讨论 2011-10-29 18:48:38
    Excel VBA与数据库整合应用范例精讲(范例文件代码) 内容简介 《Excel VBA 数据库整合应用范例精讲》用180个实例介绍了利用Excel VBA来操作数据库(包括Access、SQL Server和FoxPro)的实用方法和技巧。  全书共11章...
  • Excel_VBA程序设计.pdf

    热门讨论 2009-08-31 23:05:20
    非常详尽的Excel_VBA程序设计,好不容易才整理搜索到的。 一、VBA语言基础 1 第一节 标识符 1 第二节 运算符 1 第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 第六节 注释和赋值语句 2 第七节 书写规范 2 第...
  • EXCEL编程VBA高级教程

    2015-04-16 11:40:55
    删除........................................................................6 打开........................................................................6 读入...........................................
  • 如果用户自己的Excel文件中有一列是型号,该宏可以插入指定文件夹里以型号命名的JPG图片到另一列; 1.打开本Excel文件,不要关闭; 2.再另外打开你自己需要操作的另一个Excel文件,并保持你要操作的工作表做为当前...
  • Excel VBA与数据库整合应用范例精讲(书及范例源代码) 内容简介 《Excel VBA 数据库整合应用范例精讲》用180个实例介绍了利用Excel VBA来操作数据库(包括Access、SQL Server和FoxPro)的实用方法和技巧。  全书共11...

空空如也

空空如也

1 2 3 4 5 ... 7
收藏数 138
精华内容 55
关键字:

vba删除指定文件