\1.txt") Set fp = fso.getfolder(ThisWorkbook.Path) ReDim arr(1 To fp.Files.Count,文件号"word.application"doc"Or Right(f;docx"fname;
VBA怎么删除文本文件？
思路如下1、选择文件路径2、以下方法是清空文本文件用的Sub mysub() Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim fso, f, ts Set fso = CreateObject("Scripting.FileSystemObject"
) Dim fullName As String fullName = "D:.txt" fso.createtextfile fullName Set f = fso.getfile(fullName) Set ts = f.openastextstream(ForWriting, TristateTrue) ts.write "你好" ts.Close Set ts = Nothing Set f = Nothing Set fso = NothingEnd Sub3整个文件删除用 kill文件名 就可以。
怎么提取文件标题？
Sub test() Dim fso, fp, arr, wd, f, n%, fname$ Set fso = CreateObject("scripting.filesystemobject"
) Set fp = fso.getfolder(ThisWorkbook.Path) ReDim arr(1 To fp.Files.Count, 1 To 2) arr(1, 1) = "文件号": arr(1, 2) = "标题" Set wd = CreateObject("word.application") n = 1 For Each f In fp.Files If Right(f, 3) = "doc" Or Right(f, 4) = "docx" Then n = n + 1: arr(n, 1) = fso.getbasename(f) fname = fso.getfilename(f) With wd.Documents.Open(ThisWorkbook.Path & "\" & fname, True, True) wd.Visible = True arr(n, 2) = .Paragraphs(2).Range .Close End With End If Next wd.Quit Sheets(1).[a1].Resize(UBound(arr), UBound(arr, 2)) = arrEnd Sub现在有一个文件夹下有N个Word文件，要将他们的文件名和文档内的第二段提取到Excel表格，如何通过VBA实现
批处理或VBS批量替换指定内容？
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject")