Tag: 文件夹
检查文件夹是否存在，并在VBA Excel中保存两张纸
我需要VBA来检查名称为“Secret_information”的文件夹是否已经存在。 如果文件夹已经存在，那么我需要将PDF和Excel从工作表（1）保存到具有特殊名称的文件夹（参见下面的VBA）。 如果文件夹不存在，然后创build新的文件夹在同一个方向我打开的Excel文件已经定位。 我做了VBA，但它不能正常工作。 现在它不会创buildxls文件只有pdf。 此代码创build文件夹到桌面，我需要它创build文件夹我打开的Excel文件所在的文件夹。 如何使其工作？ Sub CommercialPart() Dim NewPath As String NewPath = Application.ThisWorkbook.Path & "" & "Secret_information" If Dir(NewPath, 63) = "" Then MkDir NewPath ActiveWorkbook.Sheets(1).Select ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=NewPath & "\Secret_information_" & [Pricelist!E2] & "_" & "SC" & [Technical!I11] & "_" & Date & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ […]
VBA通过文件夹和子文件夹循环查找特定工作表，然后复制并粘贴特定数据
我希望你能帮上忙。 我试图自己编写代码（见下面的代码），但是失败了，所以我正在向社区寻求帮助。 我需要的代码是让用户点击一个命令button，然后用户select一个文件夹。 一旦这个文件夹被选中。 我需要代码来查看或循环通过此文件夹和此文件夹中的所有子文件夹，并find具有名称的工作表像“ CustomerExp ”，然后复制工作表名称中的数据像“ CustomerExp ”从第二行到最后一个使用的行并将信息粘贴到名为“Disputes”的表单中，该表格中放置了macros。 我提供了更好的理解照片。 图1是macros的地方，我需要粘贴的信息。 图1 图2是用户将要select的第一个文件，也是我希望他们select的唯一文件 图2 图3你可以看到，在文件夹2017有几个其他的文件夹 图3 图4再次，你可以看到我们有我正在寻找的文件加上更多的文件夹，需要循环 图4 本质上，我需要的代码是让人select2017年文件夹单击确定，然后代码遍历2017年文件夹中的所有内容查找名称的文件像“ CustomerExp ”复制数据和粘贴到表“争议”表macros在哪里举行。 我的代码编译，但没有做任何事情。 与往常一样，所有的帮助，不胜感激。 我的代码 Sub AllWorkbooks() Dim MyFolder As String 'Path collected from the folder picker dialog Dim myFile As String 'Filename obtained by DIR function Dim wbk As Workbook 'Used to loop through each […]
修改列出文件夹/子文件夹以包含文件名的现有代码
我有一个代码将完整列出给定path内的所有文件夹和子文件夹的全部内容。 我愚蠢地在一个包含数以万计的子文件夹的文件夹上运行代码，所以当我等待完成时，我想开始思考下一步。 我需要的代码也深入到兔子洞更深一层，拿起文件名。 这里是代码： Option Explicit Dim i As Long, j As Long Dim searchfolders As Variant Dim FileSystemObject Sub ListOfFolders() Dim LookInTheFolder As String i = 1 LookInTheFolder = "C:\" ' As you know; you should modificate this row. Set FileSystemObject = CreateObject("Scripting.FileSystemObject") For Each searchfolders In FileSystemObject.GetFolder(LookInTheFolder).SubFolders Cells(i, 1) = searchfolders i = […]
从电子表格数据创build文件夹层次结构
我有几个电子表格，数据从左到右，我想从中创build文件夹。 每个logging都是完整的，没有空白，除非这是行的末尾，所以我正在拍摄以下内容： Col1 Col2 Col3 —— —— —— Car Toyota Camry Car Toyota Corolla Truck Toyota Tacoma Car Toyota Yaris Car Ford Focus Car Ford Fusion Truck Ford F150 Car Toyota Camry Corolla Yaris Ford Focus Fusion Truck Toyota Tacoma Ford F-150 … 唯一需要注意的是我有大约15列，一些条目在第3或第4列结束，所以只有那些文件夹需要被创build。 任何人都可以帮助这个请求吗？ 我对编程并不陌生，但对于VBA我还是很新的。 谢谢！
简单的方法来打开未知数量的Excel文件
今天是个好日子！ 我知道如何让用户通过用户表单（文本框+button）来select有限数量的excel书籍，但是现在我遇到了这样的问题。 我不知道有多less文件需要打开（可能是5或50），所以我的第一个想法是当你填写一个string，然后出现时，创build像网站上的“刷新”用户表单。 但似乎太复杂了，另一个想法来了：让用户select文件夹，然后打开每个文件，并做我需要做的（复制前2张初始WB）。 我的问题是，我完全不知道如何实现我的想法。 我希望你能帮助我:)在此先感谢！
使用Excel VBA在HP ALM QC 11.0版本选项卡中添加文件夹
我一直在尝试在QC Releases文件夹中创build一个文件夹结构。 我可以遍历现有的文件夹数量，但我找不到任何添加我select的新文件夹。 这是我写的子程序，我打算通过以“发布\ XYZ \ ABC”格式发送path到函数来调用。 首先，这段代码将忽略path中的Releases关键字。 然后，我会find文件夹XYZ，如果没有find它应该创build它。 有人可以帮我用代码添加一个节点。 然后我可以继续编码。 这是我的第一个问题，所以请忽略我的错误。 我曾尝试AddNode，但它没有工作。 下面提到的是我到目前为止写的代码： Public Sub releasePath（strPath As String） Dim arr, bflag Set folderFactory = tdc.releaseFolderFactory Set folderFactoryNode = folderFactory.Filter Set releaselist = folderFactoryNode.newList() arr = Split(strPath, "\") bflag = False relesefoldercount = releaselist.Count For i = 1 To relesefoldercount Set releseitem = releaselist.Item(i) If […]
使用FileDialog命令遇到.InitialFileName视图时出现问题
所以我正在使用FileDialog来select一个文件夹，里面装满了我正在放入PowerPoint演示文稿的图像，并且遇到了出现正确的初始视图的问题。 这是我的 strFolder = InitDir Set fldr = Application.FileDialog(msoFileDialogFolderPicker) With fldr .Title = "Select a Folder" .AllowMultiSelect = False .ButtonName = "Select" .InitialView = msoFileDialogViewList .InitialFileName = "C:\Users\Daniel\My Pictures\" 'using to test code If Right(strName, 1) <> "\" Then strFolder = strFolder & "\" End If If .Show <> -1 Then Exit Sub Else strFolder […]
如何在vb.net中保存excel文件
以前，我试图将gridview值导出到excel中。 但与下面给出的代码我能够导出数据到Excel中。 但是仍然无法自动将Excel文件保存到C：/驱动器中的固定文件夹中 。 下面给出了我写出来导出为excel的代码。 Private Sub ButtonExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExport.Click Dim rowsTotal, colsTotal As Short Dim I, j, iC As Short System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor Dim xlApp As New Excel.Application Try Dim excelBook As Excel.Workbook = xlApp.Workbooks.Add Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet) xlApp.Visible = True rowsTotal = […]
VBA – 打开文件夹和打印名称中的文件
我想打开某个文件夹中的所有文件，并打印出这些文件的名称。 我已经设置了一个打开文件的代码，但是我不能打印它的名字。 我有一个单独的代码，将打印名称，但只会打开一个文件。 我没有把两者正确地结合在一起。 有任何想法吗？ 打开所有Excel文件的代码： 'set path to progress folder Sub OpenFiles() Dim MyFolder As String Dim MyFile As String MyFolder = “C:\Users\trembos\Documents\TDS\progress" MyFile = Dir(MyFolder & "\*.xlsx") Do While MyFile <> "" Workbooks.Open fileName:=MyFolder & "\" & MyFile MyFile = Dir Loop End Sub 打印一个文件名的代码： 'set path to TDS_Working Sub TDS() Workbooks.Open ("C:\Users\trembos\Documents\TDS\progress") […]
链接一个文件夹到一个Excel工作表
我是一个狂热的电影collections家，收集了1000部电影。 我通常做的是，我有一个记事本和电影列表下载和观看。 我把所有下载的电影保存在名为“电影”的一个文件夹中，一旦我观看任何电影，我将它移动到另一个名为“看过的电影”的文件夹。 现在我想要一个带有表单的excel文件，它们将显示每个文件夹中的电影列表。 此外，我希望Excel自己更新，每当我把电影放入“电影”文件夹时，Excel工作表应显示该文件/文件夹的名称，同样，每当我将它移动到“观看的电影”文件夹。 肯定这对你们中的一些人来说是一块蛋糕。 任何帮助表示赞赏。 谢谢，Best，JV
