Tag: 目录

检索目录中最后一个文件夹的文件夹名称

我正在通过Excel工作簿自动执行我们的采购订单的保存stream程。 而不是用户必须将模板复制到正确的目录中，并使用顺序中的下一个顺序号（例如，前一个订单是2016年7月7日订购的订单号SJ-K1880） KO_SJ-K1880_070716，下一个订单号为2016年7月11日的SJ-K1881，文件名为KO_SJ-K1881_110716），用户只需要点击保存button，工作簿就会保存在正确的目录下文件名自动跟随序列。 下面是一个这样的文件的完整目录的例子： C:\Users\User\Desktop\Kyocera Order Doc\ Kyocera Orders\Orders 2016\07 July 2016\ KO SJ-K1880 070716\KO_SJ-K1880_070716.xlsm 使用当前date，我已经设法检查目录的存在，直到07 July 2016年07 July 2016 ，如果它不存在，创build它。 我的问题是find该目录中的最后一个文件夹（在这个例子中是KO SJ-K1880 070716 ），并用它来确定下一个订单号码是什么。

Excel VBA – 使用Dir（）的多个实例？

我正在使用excel将大型文件结构迁移到新文件夹，并重新sorting许多文件夹。 我正在使用Dir（）函数遍历每个文件夹，并循环通过文件…但我遇到了第二个Dir（）函数覆盖第一个问题。 有没有办法设置Dir（）的两个实例？ Sub GetFolders() Dim oldFolderPath As String Dim folder As String Dim copyFolderDir As String Dim newFolderDir As String Dim strFile As String oldFolderPath = "C:\Users\jordanharris\Desktop\PATIENT FILES\A\" newFolderDir = "C:\Users\jordanharris\Desktop\PATIENT FILES\A v2\" 'The goal here is to loop through every file in a folder (without knowing how many or their names) folder = […]

EXCEL VBA – 将文件从一个目录复制到另一个目录

我在FileCopy行上得到运行时错误“52”（错误的文件名或数字）。 stringvariables似乎有正确的文件位置，并手动完成文件打开罚款。 不知道我在这里做错了什么。 Sub copyOver() Dim sourceFile, destFile As String Dim fle As Variant destFile = Sheet11.Range("A1").Value For Each fle In Sheet11.Range("A2:A5") sourceFile = fle.Value FileCopy sourceFile, destFile Next fle End Sub

Excelmacros将擦除单元格VBA

我试图做一个Excelmacros，列出每个文件夹的名称和所有的子文件夹在下一列，类似于命令提示符树命令。 我期待看到的是这样的： 请注意，文件夹2 4和5没有其中的文件夹，只有文件，我不希望这显示文件。 我已经把屏幕更新重新打开，所以我可以看到它做了什么，它没有在正确的位置列出没有子文件夹的文件夹，但是立即覆盖它们，所以我留下了这个： 这是代码 Sub Example2() Dim objFSO As Object Dim objFolder As Object Dim objSubFolder As Object Dim i As Integer, j As Integer 'Create an instance of the FileSystemObject Set objFSO = CreateObject("Scripting.FileSystemObject") 'Get the folder object Set objFolder = objFSO.GetFolder("Y:filepath") i = 1 j = 1 'loops through each file […]

在存储过程中生成excel文件，而不在oracle中创build目录

我有下面的代码生成excel文件。 我已经在我的本地机器上testing过它的伙计，我也在我的loacl机器数据库中创build了oracle目录。 但现在，因为我需要在生产中使用这个过程，由于安全原因，我不能创buildoracle目录，那么在这种情况下，该过程是抛出错误 ORA-29280: invalid directory p 有什么其他的方式，我可以在特定的文件夹中生成文件，而无需在oracle中创build目录？ Create or replace PROCEDURE test_report IS lv_dir VARCHAR2(4000); lv_data_file VARCHAR2(4000) := 'test_report' || '_' || to_char(SYSDATE, 'dd-Mon-yyyy') || '.csv'; lv_err_file VARCHAR2(4000) := 'test_report' || '_' || to_char(SYSDATE, 'dd-Mon-yyyy') || '.csv'; lv_dfile utl_file.file_type; lv_efile utl_file.file_type; ln_err_cnt NUMBER; ln_prc_cnt NUMBER; BEGIN lv_dir := 'C:\test\TEST_REPORT'; lv_dfile := utl_file.fopen(lv_dir, lv_data_file, 'W'); […]

（Excel 2010）超链接到与xlsx文件相同的目录中的文件

我想添加一个超链接到Excel单元格，导致与xlsx文件在同一目录中的文件。 我用这个做到了 =HYPERLINK("file.ext") 但细胞看起来像这样 file.ext (like link, blue and underlined) 我想input其他的东西，例如 Click here (like link, blue and underlined) 我知道我可以使用“插入”选项卡的常规超链接来做到这一点，但我想用HYPERLINK函数或其他函数来做到这一点。

遍历目录中的所有xls文件，复制范围，并粘贴到docx文件？

我在一个目录中有大约500个Excel文件。 所有文件在第一张表（相同的大小）上有一个表。 我的客户希望他们都在一个字的文件。 我不是一个VBA专家，尝试使用我在网上find的代码。 我到目前为止已经遍历了目录中的所有文件。 它也select和复制特定范围。 但是，我如何获得转移到word文件？ 这是我做的： Sub LoopAllExcelFilesInFolder() Dim wb As Workbook Dim myPath As String Dim myFile As String Dim myExtension As String Dim FldrPicker As FileDialog 'Optimize Macro Speed Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual 'Retrieve Target Folder Path From User Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker) With FldrPicker .Title […]

处理每个包含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处理。 如果能够帮助编写相同的代码，这将是非常有帮助的。

获取文件修改时间和名称

我有一个包含多个文件的目录，并希望从那里获取修改时间和文件名，以便在设置date之间修改时间。 我已经在Excel 2007中尝试了=FILEDATETIME ，但是它返回#NAME ?,所以我假设该函数不存在。 这怎么可能？

使用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 […]