Tag: 目录

是否可以列出一个自定义目录中的所有文件和文件夹 – excel vba

我想知道是否有任何或所有这些function在Excel VBA中是可能的： 列出本地区域内的所有文件夹和子文件夹（path名称）。 生成一个链接，当显示时用户可以从电子表格中打开它。 如果用户添加或删除目录中的任何文件或文件夹/子文件夹，则自动更新电子表格。

EXCEL VBA – 创build目录和文件夹，如果它们不在那里

我在A列中定义了目录层次结构的文件夹位置列表（例如“C：\ topFolder \ nextFolder \ lastFolder \”），代码运行时没有错误，但没有创build文件夹。在这里做错了？ Sub newDestination() Dim Path As Variant Dim folderLevel As Variant For Each Path In Sheet11.Range("A:A") For Each folderLevel In Split(Path.Value, "\") folderLevel = folderLevel & "\" If Len(Dir(folderLevel, vbDirectory)) = 0 Then MkDir folderLevel End If Next folderLevel Next Path End Sub

指定其他目录以循环通过Excel / VBA

我正在循环使用一个文件系统对象的一组目录，我想指定一个额外的目录来循环。 例如，我目前有： Sub test() Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Directory) Set colSubfolders = objFolder.Subfolders For Each objSubfolder In colSubfolders ' take some action End For End Sub 但是，我想指定一个额外的文件夹循环，如： colSubfolders = colSubfolders + "additionalpath" For Each objSubfolder In colSubfolders …. 或者，是否可以在循环命令中指定多个对象，例如： For Each objSubfolder in colSubfolders, "additionalpath"

Dir（）函数的理解

' Display the names in C:\ that represent directories. MyPath = "c:\" ' Set the path. MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry. Do While MyName <> "" ' Start the loop. ' Use bitwise comparison to make sure MyName is a directory. If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then ' […]

Excel VBA检查目录是否存在错误

我有一个电子表格，点击一个button将复制自己复制/粘贴到新的工作簿，并保存与依赖于一些variables值（取自电子表格单元格）的名称的文件。 我目前的目标是让它根据客户端名称（单元格值保存在variables）的名称保存在不同的文件夹中，而这在第一次运行时，我得到一个错误之后。 代码将检查目录是否存在，如果不存在则创build它。 这工作，但创build后，第二次运行它会引发错误： 运行时错误75 – path/文件访问错误。 我的代码： Sub Pastefile() Dim client As String Dim site As String Dim screeningdate As Date screeningdate = Range("b7").Value Dim screeningdate_text As String screeningdate_text = Format$(screeningdate, "yyyy\-mm\-dd") client = Range("B3").Value site = Range("B23").Value Dim SrceFile Dim DestFile If Dir("C:\2013 Recieved Schedules" & "\" & client) = Empty Then MkDir […]