Tag: 文件夹

已启用macros的工作簿保存到错误的文件夹中: 当我使用下面的代码来：保存启用macros的工作簿与打开的工作簿位于同一个文件夹中它会以错误的名称在桌面上保存该文件： Sub Save_New_MacroEnabledFile() Dim thisWb As Workbook Set thisWb = ActiveWorkbook Worksheets("Sheet_with_VBA_Button").Activate ActiveWorkbook.SaveAs Filename:=thisWb.Path & Sheets("Sheet_with_NewFile's_Name").Range("A2"), FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, Password:=vbNullString, WriteResPassword:=vbNullString, _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub 我究竟做错了什么？

VBA Excel将新文件保存为活动文件的date: 我有一个文件名“ABC XXXXXX XXX XXXX报告没有XXX-XXX XXXXXXX发现2017_11_01_071549” 我当前的VBA代码正在拆分工作表，并将每个工作表保存为一个新的工作簿。我需要工作簿的date与原始工作簿相同。上面的示例2017_11_01。目前正在保存为NAME_Today的date。我还需要将其保存的文件夹命名为原始文件的date。示例2017_11_01。该代码目前保存为“书”。下面是代码。我只运行：Sub OpenLatestFile（） Sub SaveShtsAsBook() ' ' SaveShtsAsBook Macro ' Splits out the sheets and saves them to their own file with date appended ' Dim ldate As String Dim SheetName1 As String Dim ParentFolder As String ldate = Format(Now(), "yyyy-mm-dd") Dim Sheet […]

excelmacros将一个文件夹复制到另一个文件夹，用户input的文件夹名称: 我试图通过Excelmacros将一个完整的文件夹复制到一个新的文件夹，但我需要用户每次input新的文件夹名称这是我现在的代码复制到永久/静态文件夹 Sub Copy_Folder() Dim FSO As Object Dim FromPath As String Dim ToPath As String FromPath = "C:\Users\hayekn\Desktop\AR Reports\0MENACA Working File\AR Working File\3- FINAL Country Files\1" '<< Change ToPath = "C:\Users\hayekn\Desktop\AR Reports\0MENACA Working File\AR Working File\Weekly Back" '<< Change Application.CutCopyMode = False If Right(FromPath, 1) = "\" Then FromPath = Left(FromPath, Len(FromPath) – 1) […]

处理每个包含R中多个文件的多个目录: 我正在使用处理特定目录中的每个文件 files=list.files(path_of_directory, recursive=T, pattern='.xlsx') for(i in 1:length(files)) { #Some processing takes places which takes all files in a particular directory and produces single file } 用于最终输出（在处理目录中的所有文件之后）的代码： write.xlsx(datasetr_df, file = file.path("Out_Put_Dir_Path", paste0("Manually_writting_name_output_name_same_as_Input_Dir",".xlsx")),sheetName="Sheet1",col.names=TRUE, row.names=FALSE) 每次我改变目录的path来处理它包含的文件，而且我也习惯根据处理的目录来改变单个输出文件的名字。假设目录是D1，D2和D3，每个都包含文件F1和F2。有什么办法可以进一步自动化这个过程。该程序执行以下步骤：1. Ist移动到特定的目录2.处理该目录中的所有文件，并且最终的sinle文件被赋予与目录相同的名称。 3.移动到下一个目录4.处理下一个目录中的所有文件，最后的单个文件被命名为与目录相同的名称。 5.这个过程继续，直到所有目录和包含的文件被处理。所以如果有五个目录，则生成5个excel文件。现在假设D1目录是进程，我应该得到输出作为D1处理。如果能够帮助编写相同的代码，这将是非常有帮助的。

从数据库创buildPDF和文件夹中的图片: 我正在寻找build议，从文件夹中的文本和图片数据库中创build单个PDF文件。 PDF的一页将包含广告牌的图片和来自数据库的5个不同的文本字段。每个广告牌的图片（pdf页面）都包含在子文件夹中。数据库目前只是在Excel中。我已经打算为每个广告牌创build一个HTML页面，并使用Adobe Pro将其转换为PDF，但不想为此设置PHP服务器。这是一个一次性的任务，所以我正在寻找一个快速的方法来完成它。任何软件包工具可用？

使用VBA从Excel列表中的所有子目录文件夹中创build相同的多个文件夹: 我目前正在试图build立一个目录，并试图从Excel电子表格中创build一个目录。工作表的Column A列出了所需的文件夹名称。这是我想要最终目录的样子。 VIC \ Branch 1 \ Folder A VIC \ Branch 1 \ Folder B VIC \ Branch 2 \ Folder A VIC \ Branch 2 \ Folder B等我已经能够创build状态和分支级别的文件夹，但坚持在每个分支文件夹中创build相同的五个文件夹。如果任何人都可以帮助VB代码创build这些文件夹，将不胜感激。下面是我用来创build每个状态目录的分支文件夹的代码。我为每个状态列表运行它，只是改变了目录位置谢谢 Sub MakeFolders() Dim xdir As String Dim fso Dim lstrow As Long Dim i As Long Set fso […]

Excel VBA在文件夹和子文件夹中search并返回多个文件: 我必须从Excel列表中search和复制文件夹中的许多文件，例如： 8100 ' cell "A2" 8152 ' cell "A3" 8153 ' cell "A4" 在源文件夹中有这样命名的文件： 8153.pdf 100_8152.pdf 102_8153.pdf 8153 (2).pdf 我怎样才能find这些文件，并复制在一个单独的文件夹中匹配的所有文件？代码只返回一个文件，但我需要所有与单元格值匹配的文件。我需要扩展我在多年组织的子文件夹（即：“D：\ myfolder \ 2015”，“D：\ myfolder \ 2016”等）的研究。感谢user3598756，我现在使用这个代码： Option Explicit Sub cerca() Dim T As Variant Dim D As Variant T = VBA.Format(VBA.Time, "hh.mm.ss") D = VBA.Format(VBA.Date, "yyyy.MM.dd") Dim Source As String Dim Dest […]

Excel文件目录抓取器: 目前我有一个工作簿devise索引一个文件夹，在文件夹path例如'Z：\ Example'中input，它将该文件夹中的所有文件名和文件path导出到工作簿中的另一个工作表中。我想知道是否可以抓取该文件夹中的所有文件（'Z：\ Example'），如果该目录内还有其他文件夹，也可以抓取该文件夹中的所有文件。例如，我在单元格A19中input'Z：\ Example'（按照下面的代码），'Z：\ Example'中有另一个文件夹，Z：\ Example \ Another'。 “Z：\ Example”和“Z：\ Example \ Another”中的所有文件都被引入到Excel表格2中。 Private Sub CommandButton1_Click() Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim i As Integer Dim Source_Workbook As Workbook Dim Target_Path As String 'Create an instance of the FileSystemObject Set objFSO = CreateObject("Scripting.FileSystemObject") 'Path of the […]

从ms访问应用程序导出整个vba代码: 我有一个MS访问应用程序（MS访问2013年），我想导出所有的VBA代码来分离文件夹中的文件我可以添加什么代码来做到这一点？谢谢，

自动创build一个由networking位置中的单元格引用命名的文件夹: 我试图创build一个已经创build的networking位置的文件夹，然后命名新的文件夹的值的2个单元格引用结合在一个特定的工作表。 Dim strFilename, strDirname, strPathname, strDefpath As String 'On Error Resume Next strDirname = ContractorChecklistSheet.Range("B6" & "B7").Value strFilename = ContractorChecklistSheet.Range("B6" & "B7").Value strDefpath = "T:\Projects\" MkDir strDefpath & strDirname strPathname = strDefpath & strDirname & "" & strFilename If IsEmpty(filename) Then Exit Sub End Sub 但我不能得到它的工作，代码停止在strDirname，可有人请帮助。