fso

    0热度

    1回答

    小型VBScript在HTA中不起作用

    我正在使用以下VBSript并且工作正常，但是当我尝试将其添加到创建的.hta应用程序时，它无法正常工作。 首先，“strValue的”不中MSGBOX显示其次脚本错误出现如“类型不匹配：fso.FolderExists'” 任何帮助，因为我一直在努力将不胜感激想出解决办法。 sub LyncFix dim oReg, strKeyPath, strValueName, strValue, o
    vbscript hta filesystemobject fso 2015-03-13

    0热度

    1回答

    什么是用户定义类型未定义？

    以下是搜索文件夹中类似“要求”的文件夹的过程。当开始逐步通过时，我收到一条错误消息“用户定义类型未定义”。 我缺少什么？ Sub GetSubFolders() Dim fso As New FileSystemObject, f As Folder, sf As Folder, myFile As File Set f = fso.GetFolder("C:\Users\C58227\De
    excel-vba fso 2017-08-28

    0热度

    1回答

    打开循环中的每个文件

    我在写一个子程序，需要从目录中的文件中提取文本。例程如下。只要目录中只有一个文件，它就会工作。当有多个时，它会告诉我Set intFSO = intFSO.OpenTextFile(filePath, 1)下面的一行。 我认为有一些事情我需要做的重置下一个文件，但我似乎无法弄清楚它是什么。有小费吗？ Sub ExtractEDI(folPath) Dim sName, fil
    vbscript fso 2017-10-17

    1热度

    2回答

    保存现有Excel工作簿的副本而不覆盖它

    我想将文件夹X中的Excel工作簿复制到文件夹Y，并且在文件夹Y中已存在该文件名的文件时，文件未被覆盖而是给新文件后缀' - 复制'，' - 复制（2）'等 - 基本上重新创建复制和粘贴文件夹中的相同文件的手动过程。 我本来以为会有一个功能，可以让你做到这一点，但没有到目前为止，我已经尝试似乎符合具体要求： Workbook.SaveAs提示用户有一条消息，询问是否该文件应更换 Workbook.
    excel vba excel-vba fso 2016-11-14

    0热度

    1回答

    如何确保在使用FSO时只打开文本文件 - VBA

    当前有一个使用FSO的工作脚本，，但它也在我的工作目录中打开.xlsm文件。 我想只打开.txt文件。 我发现这个代码，应该工作，但是我无法弄清楚如何将其应用到我的情况： Sub test() ' Loop thru all files in the folder folder = ActiveWorkbook.path path = folder & "\*.tx
    arrays vba excel-vba multiple-files fso 2016-03-15

    2热度

    1回答

    VBA使用字符串中的另一个对象修剪一个对象（与FSO.Getfolder相关）基本结束与文件的相对路径

    我正在构建目录中的文件索引。 第1列与文件夹名称，第2列与文件名 我已经设法得到实际的文件名和超链接的文件名已经。 但我有问题列出列1中的文件的路径，使用相对路径，包括其子文件夹。 说我有以下文件夹： “C：\ users \ ME \ Documents” 该文件夹中有许多子文件夹。 我想要实现的是一个字符串，列出该实际子文件夹的路径。 例子： "C:\users\ME\Documents\Su
    excel vba trim subfolder fso 2016-05-12

    0热度

    1回答

    如何将特定文件从子文件夹复制到目标文件夹？ （Excel VBA）

    我是VBA的新手，对此程序的任何帮助都非常感谢！ 此程序的目标是将网络中的所有特定文件类型（.pdf）复制到桌面上的文件夹中。但是，（.pdf）文件位于每个文件夹子文件夹中。 如果我有用户定义文件夹（与许多子文件夹），我想程序将每个.pdf从每个子文件夹复制到目标文件夹。 这是我从浏览互联网到目前为止所得到的。 Sub Copy_test2() Dim FSO As Object, fld As
    excel-vba for-loop fso 2017-11-11

    0热度

    1回答

    在文件夹中搜索pdf文本字符串的更快方法

    我急需帮助，我试图搜索包含超过5000个pdf的文件夹目录中的文本字符串，代码已经过测试并且使用少于100个PDF和它的工作原理，但一旦达到极限，需要花费5-10分钟才能得出结果。任何帮助非常感谢： '<% 'Search Text Dim strtextToSearch strtextToSearch = Request("TextToSearch") 'Now, we want to
    pdf vbscript fso 2015-10-29

    0热度

    1回答

    在上周内拉入一系列文件夹

    以下代码将拉入特定文件夹路径内的所有文件夹。 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("LOCATION") With Worksheets("Sheet1") i = 1 For Each objSubFolder In objFolder.su
    excel excel-vba fso 2016-10-13

    0热度

    1回答

    区分“文件不存在”和“拒绝访问”

    在VBScript中，我想知道文件是否存在： Set fso = CreateObject("Scripting.FileSystemObject") If Not (fso.FileExists(file)) Then msg = " doesn't exist." End If 我的文件是内部网络上。 有没有办法来区分： 文件确实不存在 拒绝访问 我尝试用fso.OpenTe
    vbscript file-exists fso 2016-02-11
最新问题