Tag: 文件夹

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

将用户select的多个文件（通过filedialog）复制到新创build的文件夹

任何人都可以请查看下面的代码，并告诉我我哪里错了？ 基本上我试图实现，用户在列A中input名称，然后将点击上传button（同一行，列F），Excel将创build一个文件夹使用A列名称，通过filedialog窗口用户将select多个文件，应该被复制到新创build的文件夹，最后，excel还会额外创build文件夹的path（保存在D列中）并标记date（E列）。 目前的问题： 无法复制多个文件，目前我只能复制一个文件 文件被复制到新创build的文件夹的父文件夹，基本上无法复制到新创build的文件夹本身。 我的代码： Sub Button1_Click() Dim objFSO As Object Dim objFile As Object Dim openDialog As FileDialog Dim Foldername As String Dim Path As String Dim Newpath As String Dim i As Integer Dim myfile As String Dim myfilePath As String Foldername = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(0, -5).Value Path = "C:\Test\" Set openDialog = Application.FileDialog(msoFileDialogFilePicker) […]

Excel VBA打开一个文件夹

使用2010 Excel VBA – 我只是想通过一个子打开一个文件夹。 我在这里做错了什么？ VBA Sub openFolder() Dim preFolder As String, theFolder As String, fullPath as String theFolder = Left(Range("T12").Value, 8) preFolder = Left(Range("T12").Value, 5) & "xxx" fullPath = "P:\Engineering\031 Electronic Job Folders\" & preFolder & "\" & theFolder Shell(theFolder, "P:\Engineering\031 Electronic Job Folders\" & preFolder, vbNormalFocus) End Sub