精华内容
下载资源
问答
  • 把代码中Path下的文件复制到afterPath目录下 Sub copyFiles(Path As String, afterPath) 'Path:原文件夹路径;afterPath:目标文件夹路径 Dim Spath As String '下边的我自己也不是很理解,但是效果达成是莫得...

    把代码中Path下的文件复制到afterPath目录下

    Sub copyFiles(Path As String, afterPath)
    	'Path:原文件夹路径;afterPath:目标文件夹路径
        Dim Spath As String
        '下边的我自己也不是很理解,但是效果达成是莫得问题的......
        Set fs = CreateObject("Scripting.FileSystemObject")
        Spath = Dir(Path, vbDirectory)
        Do While Len(Spath)
            If Spath <> "." And Spath <> ".." Then
                fs.CopyFolder Path, afterPath
                Spath = Dir()
            End If
        Loop
    End Sub
    
    展开全文
  • EXCEL-VBA复制文件夹

    2018-01-11 17:04:13
    VBA编写的复制文件夹工具
  • Excel VBA批量复制文件到指定目录
  • 假设我们需要将文件夹“C:\FolderA”中的符合下面条件的文件,拷贝“C:\FolderB”中。 拷贝条件:扩展名是xls或xlsx,并且文件名中不包含“OK”字样。 在Excel中插入一个ActiveX按钮,在按钮的事件中加入如下...

      假设我们需要将文件夹“C:\FolderA”中的符合下面条件的文件,拷贝到“C:\FolderB”中。

      拷贝条件:扩展名是xls或xlsx,并且文件名中不包含“OK”字样。

      在Excel中插入一个ActiveX按钮,在按钮的事件中加入如下代码:

    Private Sub CommandButton1_Click()
    
        Dim Fso As Object
        
        Set Fso = CreateObject("Scripting.FileSystemObject")
    
        Dim fs, f, f1, fc
        
        On Error Resume Next
        
        Set fs = CreateObject("scripting.filesystemobject")
        Set f = fs.GetFolder("C:\FolderA")
        Set fc = f.Files
        
        If Err.Number <> 0 Then
    
            MsgBox "From Folder Open Error!" & vbCrLf & Err.Description & vbCrLf
            GoTo Err
    
        End If
        
        On Error GoTo 0
    
    
        For Each f1 In fc
            
            If (Right(f1, 3) = "xls" Or Right(f1, 4) = "xlsx") And InStr(1, f1, "OK") <= 0 Then
            
                On Error Resume Next
    
                    Fso.CopyFile f1, SetFolderPath("C:\FolderB")) & GetFileName(f1)
                
                    If Err.Number <> 0 Then
    
                        MsgBox "File Copy Error!" & vbCrLf & Err.Description
                        GoTo Err
    
                    End If
    
                On Error GoTo 0
            
            End If
            
        Next
    
        MsgBox "File Copy is over."
    
    Err:
    
        Set fs = Nothing
        Set f = Nothing
        Set f1 = Nothing
        Set fc = Nothing
        Set Fso = Nothing
    
    End Sub

     

    上面事件中用到了两个函数,具体代码如下:
    GetFileName用来得到一个完整路径中的文件名(带扩展名)

    Function GetFileName(ByVal s As String) As String
        Dim sname() As String
        sname = Split(s, "\")
        GetFileName = sname(UBound(sname))
    End Function

    SetFolderPath用来将不是\结尾的路径后面加上\

    Function SetFolderPath(ByVal path As String) As String
        If Right(path, 1) <> "\" Then
            SetFolderPath = path & "\"
        Else
            SetFolderPath = path
        End If
    End Function

    转载于:https://www.cnblogs.com/dazuo/p/4919877.html

    展开全文
  • VBA做的小工具,将指定文件夹文件放入匹配名字的文件夹内,文件属于复制移动
  • 最近一个同学想要写一段VBA代码实现以下功能(我简化了要求):一个表中有很多个excel文件,每个文件有类似的表格,代码实现把每个文件的表格复制到另一个excel文件中。折腾开始...... 之前没搞过VBA,我用的是wps抢...
  • % %复制 % file='D:\D\DATA\ACRI\Modis\day_4km\'; % filelist=dir([file,'*.nc']); % filesave='D:\D\DATA\ACRI\Modis\8day_4km\'; % % mm=0; % for ii=1:length(filelist) % fname=filelist(ii).name(1:end-3)...
    
    % %复制
    % file='D:\D\DATA\ACRI\Modis\day_4km\';
    % filelist=dir([file,'*.nc']);
    % filesave='D:\D\DATA\ACRI\Modis\8day_4km\';
    % 
    % mm=0;
    % for ii=1:length(filelist)
    %     fname=filelist(ii).name(1:end-3);
    %     fname1=str2double(fname(29:29));
    %     if fname1==4
    %         copyfile([file,fname,'.nc'],filesave);
    %         mm=mm+1;
    %     end
    % end 
    
    
    %移动
    file='D:\D\DATA\ACRI\Modis\monthly_25km\';
    filelist=dir([file,'*.nc']);
    filesave='D:\D\DATA\ACRI\Modis\monthly_25km\AV\';
    % filesave='D:\D\DATA\ACRI\Modis\monthly_25km\GSM\';
    
    mm=0;
    for ii=1:length(filelist)
        fname=filelist(ii).name(1:end-3);
        gg='AV';
        fname1=fname(32:33);
        
    %     gg='GSM';
    %     fname1=fname(23:25);
        if fname1==gg
            movefile([file,fname,'.nc'],filesave);  %movefile 比copyfile快
            mm=mm+1;
        end
    end 
    
    

    movefile即剪切,
    movefile比copyfile速度快

    展开全文
  • 用Python根据Excel指定文件名将其批量移动到另一个文件夹任务新的改变功能快捷键合理的创建标题,有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定...

    用Python根据Excel指定文件名将其批量移动到另一个文件夹

    任务

    在D盘的srcpic文件夹里有3000张照片,统一都是jpg格式,我想要根据Excel表格里指定的照片,从文件里面找出对应的照片并存放到dstpic文件夹里

    使用到的模块

    • os模块
      os 模块提供了非常丰富的方法用来处理文件和目录
    • xlrd模块
      python操作excel主要用到xlrd和xlwt这两个库,即xlrd是读excel,xlwt是写excel的库,这个模块里仅支持.xls格式,不支持读写.xlsx
    • shutil模块
      shutil 是 Python 中的高级文件操作模块,与os模块形成互补的关系,os主要提供了文件或文件夹的新建、删除、查看等方法,还提供了对文件以及目录的路径操作。shutil模块提供了移动、复制、 压缩、解压等操作,恰好与os互补,共同一起使用,基本能完成所有文件的操作。是一个非常重要的模块。

    实现代码

    import os
    import xlrd
    import shutil
    
    dirpath = r'D:\srcpic'   #存放图片的文件夹
    dstpath = r'D:\dstpic'   #保存图片的文件夹
    datapath = r'D:\名单.xls'   #excel表路径
    
    x1 = xlrd.open_workbook(datapath)    #读取excel
    sheet1 = x1.sheet_by_name("Sheet1")    #读取Sheet1
    
    idlist = sheet1.col_values(1)    #存放第2列,图片名称(含扩展名)
    file_names = os.listdir(dirpath)    #获取文件夹下所有图片名称(含扩展名)
    
    for i in idlist:
        for j in file_names:
            if i == j:               # 从excel里找到文件夹中对应的图片
                src = os.path.join(dirpath, '%s' % i)      # 构造图片源文件的绝对路径
                #print("src=",src)
                dst = os.path.join(dstpath, '%s' % i)     # 构造图片移动的绝对路径
                #print("dst=",dst)
                shutil.move(src, dst)
    

    学习心得

    以上代码主要参考网上的各类大神的总结经验,以及结合个人的理解而调制出来的。
    利用Python可以快速完成批量重复的工作,以此文章记录下来以便日后重复使用。

    展开全文
  • 学习资源:《Excel VBA从入门进阶》第48集 by兰色幻想忘了之前老师有没有讲过Dir函数了,还是写一下吧,再开始正文吧:Dir函数:返回一个 String,它表示与指定路径下的文件、目录或文件夹的名称。语法:Dir ...
  • 今天接到一个需求,用VBA一个文件夹内的文件分配不同的文件夹中,我用了几行代码就解决了,现在我来分享给大家。现在,文件夹内有一些文件,如图:我们可以根据自己的需求在Excel表格里将文件结构编写一下,如图...
  • import os #专门用于文件处理 import sys #system系统处理文件 filedir = os.path.dirname(sys.argv[0]) #获取脚本所在目录 sys.argv[0]表示获取脚本的位置 os.chdir(filedir) #将脚本所在的目录设置为工作目录 ...
  • 如下代码:将工作簿 测试(1)的第一个工作表的A1:T10000区域的数据,复制粘贴工作簿 测试 的第一个工作表的A1:T10000区域 Sub GetData_2() Dim WB As Workbook, WB_1 As Workbook Set WB = Workbooks.Open("C...
  • 怎么用VBA实现以身份证号在文件夹中找到照片,复制到指定文件夹并重命名
  • Excel VBA 移动文件文件夹

    千次阅读 2017-05-14 10:27:03
    1、移动指定文件:Public Sub 移动文件() Dim myFile As String Dim myNewFilePath As String Dim fso As Scripting.FileSystemObject myFile = ThisWorkbook.Path & "\test.txt" '要移动的文件 myNewFilePath ...
  • 这时候我们拿着单位A的名单一个复制出来,可能要猴年马月了。举例说明庆余年剧组的部分人员参加了年度体检,体检报告与其他剧组的共同存放在test1这个文件夹中。现在需要从test1文件夹中找出庆余年剧组中参加了...
  • ExcelVBA复制文件

    2020-06-08 11:14:34
    使用FileCopy语句,可以在文件夹之间复制文件: FileCopy 来源, 目的地 该语句的第一个参数是文件来源,明确你要复制的文件名称,该名称可以包含驱动名称。第二个参数是复制的目的地,可以包括驱动和文件夹的地址。...
  • 生成的文件并不直观,看的话很不方便,就需要将生成的excel文件中的数据做一下处理,然后放到另一个模板excel文件中,如果一条数据一条数据去整理的话会累死人,所以领导让写一个宏程序,也就是用VBA一个小程序,...
  • 临时用到VBA,做一个需求:把不在同一个文件中的数据复制到一个文件中。 新建过程,如下: Sub 复制行() Dim mybook As Workbook Set mybook = Workbooks("2011明细表.xls") Dim target As Workbook ...
  • 利用VBA语言将同一文件夹中的多个Word文档合并到一个新的Word中,使用简单快捷。
  • 一个文件夹中大于一行数据的CSV,txt文件复制到另一个文件夹 不知道这个问题还能怎么解决,下面是自己写的一个方法 Sub selectCSV() Dim str As String Dim workFolderName As String Dim targetFolder As ...
  • 办公中如何实现文件的自动复制与转移,有 时候为了文件备份的需要,通过需要把文件备份其它盘或者备份其它电脑,特别是数据库备份,数据库通常较大,而且为了确保数据的安全要经常备份,而备份数 据则会占用硬盘很大的...
  • VBA中经常要用到文件对话框来进行打开文件、选择文件或选择文件夹的操作。用Microsoft Office提供的文件对话框比较方便。用法如下Application.FileDialog(fileDialogType)fileDialogTypeMsoFileDialogType类型,...
  • vba 压缩文件 使用方便 (Ease of use) There are many uses for zip folders. Previously, saving disk space was the primary purpose, but today that often isn't very important; more the option for ...
  • VBA写的一个小工具,可以统计某个文件夹下的文件以及子文件,发生更新或者消除的情况,是个beta版,可以修改以改进功能。
  • Sub 复制费用() ' ' 复制费用 宏 ' ' '寻找广告费 adverst = Dir("D:\众结资料\1日常工作内容\每日销售开发业绩(Python)\" & Application.WorksheetFunction.Text(Date, "yyyymmdd") & "\每日广告费.csv") ...
  • Sub 宏1() ' ' 宏1 宏 ...D:\VBA\被插入文字的文件.docx", ConfirmConversions:=False, ReadOnly _ :=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _ ...
  • vb复制整个文件夹到指定位置

    热门讨论 2011-08-16 09:34:52
    VB复制文件段源码,没有源程序,大家拷过去用
  • 这里整合指把Sheet移动到一个workbook中。没有覆盖文件夹中的文件。Sub Test() Debug.Print (ThisWorkbook.Path) Dim p, stockcode As String Dim f p = ThisWorkbook.Path &amp; "\" f = Dir...
  • 分享成果,随喜真能量。大家好,今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码,这些内容... 184:在VBA中使用CopyFile方法复制VBA过程代码183:在VBA中使用MoveFile方法将示例文件移动Sub mynz() ...
  • 1 问题: 导入多个txt,到一个sheet 1.1原始数据 1.2目标结果 2 代码: 代码1 :很挫的版本 还没自动识别多个文件 而且没把TXT的内容分行 第1行1 a 还会被EXCEL识别错误 Sub jackMa1_piLiangDaoRu1() ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,199
精华内容 879
关键字:

vba复制文件到另一个文件夹