精华内容
下载资源
问答
  • (1)首先,楼主先新建一个excel,名称楼主自己写,怎样都行,然后将其打开。 (2)打开后按住Alt再按F11,这样就会打开vba代码编辑器 (3)点菜单栏上的“插入”,选择“模块”,这样左下角就会出现一个“模块1...

    (1)首先,楼主先新建一个excel,名称楼主自己写,怎样都行,然后将其打开。

    (2)打开后按住Alt再按F11,这样就会打开vba代码编辑器

    (3)点菜单栏上的“插入”,选择“模块”,这样在左下角就会出现一个“模块1”

    (4)双击“模块1”,右边就会出现“模块1”的编辑界面,将以下代码复制,并粘贴到这个界面中,按F5运行。

    1

    2

    3

    4

    5

    6

    7

    8

    9

    10

    11

    12

    13

    14

    15

    16

    17

    18

    19

    20

    21

    22

    23

    24

    25

    26

    27

    28

    29

    30

    31

    32

    33

    Sub 遍历文件夹()

    'Columns(1).Delete  

    On Error Resume Next

    Dim As String

    Dim file() As String

    Dim i, k, x

    x = 1

    i = 1: k = 1

    ReDim file(1 To i)

    file(1) = InputBox("请输入要查找的文件夹:") & "\"

    Do Until i > k

        f = Dir(file(i), vbDirectory)

            Do Until f = ""

                If InStr(f, ".") = 0 Then

                    k = k + 1

                    ReDim Preserve file(1 To k)

                    file(k) = file(i) & f & "\"

                End If

                f = Dir

            Loop

        i = i + 1

    Loop

    For i = 1 To k

        f = Dir(file(i) & "*.*")

        Do Until f = ""

           'Range("a" & x) = f

           Range("a" & x).Hyperlinks.Add Anchor:=Range("a" & x), Address:= _

            file(i) & f, TextToDisplay:=f

            x = x + 1

            f = Dir

        Loop

    Next

    End Sub

    (5)在出现的对话框中,将你要查找的文件的地址复制到对话框中,按确定,就完成了。

     

    注:这里用的是excel2007版,如果楼主用的是其他版本,有可能存在代码不兼容问题。

     

    图1.打开vba编辑器。

     

    图2.运行代码。

     

    图3.结果。

    展开全文
  • //编程环境:VS2008+OpenCV1.1, ...//建立一个名为“result.xls”的Excel文件,对于每一个图像文件,RGB颜色空间进行归一化处理,将每个 //像素点的R,G,B分量的均值和方差输出到该excel文件中。该程序...
    //编程环境:VS2008+OpenCV1.1,
    //本程序首先挨个读取F://my face database//OnlyFace文件夹下的所有  文件,之后,在项目文件夹下
    //建立 个名为“result.xls”的Excel文件,对于每 个  文件,在RGB颜色空间进行   处理,将每个
    // 素点的R,G,B分量的均值和方差输出到该excel文件中。该程序,可用于对大规模  样本进行训练。
    #include "stdafx.h"
    #include "afxwin.h"
    #include "cv.h"
    #include "highgui.h"
    #include "fstream"
    
    using namespace std ;
    
    int _tmain(int argc, _TCHAR* argv[])
    {
       int height,width,step,channels ;
       int i,j,k;
       int n= 0 ;
       IplImage* img ;
       uchar* data ;
       uchar BlueValue ;
       uchar GreenValue ;
       uchar RedValue ;
       float sum ;
    
       CFileFind ImageFile ;//定义FindFile对象
       CString FileName ;//定义图 像 文件的名称 
       CString ImageFileAddress ;//CString类型的图 像 文件路径
       char *FileAddress = new char[38] ;//定义存储文件地址的数组
    
       CvScalar Avg_r,Avg_g ;//红色和绿色的平均值
       CvScalar Std_r,Std_g ;
    
       float RedAvg,GreenAvg,RedStd,GreenStd ;
       float* red = 0 ;
       float* green = 0 ;
    
       ofstream outobj("result.xls") ;//建立类ofstream的对象outobj,并将其与int.xls关联起来。使用“《”流插入运算符写数据到outobj
       outobj<<"RedAvg"<<"	"<<"GreenAvg"<<"	"<<"RedStd"<<"	"<<"GreenStd"<<endl ;
    
        bool FileExist = ImageFile.FindFile(_T("F://my face database//OnlyFace//*.jpg"),0) ;//查找所有文件,返回非0表示执行成功 
        while(FileExist)
         {
          FileExist = ImageFile.FindNextFileW() ;//如果文件存在,继续寻找下一 个符合条件的文件
          if(!ImageFile.IsDots())//0表示文件属性不是“。”和“。。”
           {
    FileName = ImageFile.GetFileName() ;//获取图 像 文件名称
    ImageFileAddress = "F:/my face database/OnlyFace/" + FileName;//得到图 像 文件路径
    
    for(int i=0;i<37;i++)
    {
    FileAddress[i] = ImageFileAddress[i] ;//应Open CV函数调用的需要,将图 像 文件路径CString格式转换为char*格式
    }
    FileAddress[37] = '/0' ;//因为char型数组FileAddress存储的是字符串,此处的字符串终止符是必须的 
    
    img = cvLoadImage(FileAddress) ;//读取图 像 文件
    if(!img) printf("load image file failed!") ;//当打开文件失败时,提示
    
    height = img->height ;
    width = img->width ;
    step = img->widthStep ;
    channels = img->nChannels ;
    data = (uchar*)img->imageData ;
    
    red = new float[height*width] ;
    green = new float[height*width] ;
    
    for(i=0;i<height;i++)
    {
    for(j=0;j<width;j++)
    {
    for(k=0;k<channels;k++)
    {
    switch(k)
    {
    case 0://获取蓝色B分量
    {
    BlueValue = data[i*step+j*channels+k];
    break ;
    }
    case 1://提取绿色G分量
    {
    GreenValue = data[i*step+j*channels+k] ;
    break ;
    }
    case 2://提取红色R分量 
    {
    RedValue = data[i*step+j*channels+k] ;
    break ;
    }
    }
    }
    sum = (float)(RedValue + GreenValue + BlueValue) ;
    if(n<height*width)
    {
    red[n] = (float)RedValue/sum ;//归 一 化 处理
    green[n] = (float)GreenValue/sum ;
    n++ ;
    }
    }
    }
    
    CvMat* MatrixRed = cvCreateMat(1,height*width,CV_32FC1) ;//创建矩阵
    CvMat* MatrixGreen = cvCreateMat(1,height*width,CV_32FC1) ;
    cvSetData(MatrixRed,red,MatrixRed->step) ;//设置数组头
    cvSetData(MatrixGreen,green,MatrixGreen->step) ;
    
    cvAvgSdv(MatrixRed,&Avg_r,&Std_r) ;//计算红色分量的均值和标准差
    cvAvgSdv(MatrixGreen,&Avg_g,&Std_g) ;
    
    RedAvg = Avg_r.val[0] ;
    GreenAvg = Avg_g.val[0] ;
    RedStd = Std_r.val[0] * Std_r.val[0] ;
    GreenStd = Std_g.val[0] * Std_g.val[0] ;
    
    outobj<<RedAvg<<"	"<<GreenAvg<<"	"<<RedStd<<"	"<<GreenStd<<endl ;
    
    delete [] red ;
    delete [] green ;
    red = 0 ;
    green = 0 ;
    
    cvReleaseMat(&MatrixRed) ;
    cvReleaseMat(&MatrixGreen) ;
    
    cvNamedWindow("Image",CV_WINDOW_AUTOSIZE) ;//创建窗口
    cvShowImage("Image",img) ;//显示图 像 
    cvWaitKey(10) ;
    cvDestroyWindow("Image") ;//销毁窗口
    cvReleaseImage(&img) ;//销毁图 像 
    n = 0 ;
    }
    }
    
    while(1) ; 
    
    delete [] FileAddress ;
    return 0;
    }


    转载于:https://www.cnblogs.com/engineerLF/p/5393146.html

    展开全文
  • //编程环境:VS2008+OpenCV1.1,//本程序首先挨个读取F://my face database//OnlyFace文件夹下的所有图像文件,之后,项目文件夹下//建立一个名为“result.xls”的Excel文件,对于每一个图像文件,RGB颜色空间...

    //编程环境:VS2008+OpenCV1.1,
    //本程序首先挨个读取F://my face database//OnlyFace文件夹下的所有 文件,之后,在项目文件夹下
    //建立 个名为“result.xls”的Excel文件,对于每 文件,在RGB颜色空间进行 处理,将每个
    // 素点的R,G,B分量的均值和方差输出到该excel文件中。该程序,可用于对大规模 样本进行训练。

    #include "stdafx.h"
    #include "afxwin.h"
    #include "cv.h"
    #include "highgui.h"
    #include "fstream"

    using namespace std ;

    int _tmain(int argc, _TCHAR* argv[])
    {
    int height,width,step,channels ;
    int i,j,k;
    int n= 0 ;
    IplImage* img ;
    uchar* data ;
    uchar BlueValue ;
    uchar GreenValue ;
    uchar RedValue ;
    float sum ;

    CFileFind ImageFile ;//定义FindFile对象
    CString FileName ;//定义 文件的名称
    CString ImageFileAddress ;//CString类型的 文件路径
    char *FileAddress = new char[38] ;//定义存储文件地址的数组

    CvScalar Avg_r,Avg_g ;//红色和绿色的平均值
    CvScalar Std_r,Std_g ;

    float RedAvg,GreenAvg,RedStd,GreenStd ;
    float* red = 0 ;
    float* green = 0 ;

    ofstream outobj("result.xls") ;//建立类ofstream的对象outobj,并将其与int.xls关联起来。使用“《”流插入运算符写数据到outobj
    outobj<<"RedAvg"<<" "<<"GreenAvg"<<" "<<"RedStd"<<" "<<"GreenStd"<<endl ;

    bool FileExist = ImageFile.FindFile(_T("F://my face database//OnlyFace//*.jpg"),0) ;//查找所有文件,返回非0表示执行成功
    while(FileExist)
    {
    FileExist = ImageFile.FindNextFileW() ;//如果文件存在,继续寻找下 个符合条件的文件
    if(!ImageFile.IsDots())//0表示文件属性不是“。”和“。。”
    {
    FileName = ImageFile.GetFileName() ;//获取 文件名称
    ImageFileAddress = "F:/my face database/OnlyFace/" + FileName;//得到 文件路径

    for(int i=0;i<37;i++)
    {
    FileAddress[i] = ImageFileAddress[i] ;//应Open CV函数调用的需要,将 文件路径CString格式转换为char*格式
    }
    FileAddress[37] = '/0' ;//因为char型数组FileAddress存储的是字符串,此处的字符串终止符是必须的

    img = cvLoadImage(FileAddress) ;//读取 文件
    if(!img) printf("load image file failed!") ;//当打开文件失败时,提示

    height = img->height ;
    width = img->width ;
    step = img->widthStep ;
    channels = img->nChannels ;
    data = (uchar*)img->imageData ;

    red = new float[height*width] ;
    green = new float[height*width] ;

    for(i=0;i<height;i++)
    {
    for(j=0;j<width;j++)
    {
    for(k=0;k<channels;k++)
    {
    switch(k)
    {
    case 0://获取蓝色B分量
    {
    BlueValue = data[i*step+j*channels+k];
    break ;
    }
    case 1://提取绿色G分量
    {
    GreenValue = data[i*step+j*channels+k] ;
    break ;
    }
    case 2://提取红色R分量
    {
    RedValue = data[i*step+j*channels+k] ;
    break ;
    }
    }
    }
    sum = (float)(RedValue + GreenValue + BlueValue) ;
    if(n<height*width)
    {
    red[n] = (float)RedValue/sum ;// 处理
    green[n] = (float)GreenValue/sum ;
    n++ ;
    }
    }
    }

    CvMat* MatrixRed = cvCreateMat(1,height*width,CV_32FC1) ;//创建矩阵
    CvMat* MatrixGreen = cvCreateMat(1,height*width,CV_32FC1) ;
    cvSetData(MatrixRed,red,MatrixRed->step) ;//设置数组头
    cvSetData(MatrixGreen,green,MatrixGreen->step) ;

    cvAvgSdv(MatrixRed,&Avg_r,&Std_r) ;//计算红色分量的均值和标准差
    cvAvgSdv(MatrixGreen,&Avg_g,&Std_g) ;

    RedAvg = Avg_r.val[0] ;
    GreenAvg = Avg_g.val[0] ;
    RedStd = Std_r.val[0] * Std_r.val[0] ;
    GreenStd = Std_g.val[0] * Std_g.val[0] ;

    outobj<<RedAvg<<" "<<GreenAvg<<" "<<RedStd<<" "<<GreenStd<<endl ;

    delete [] red ;
    delete [] green ;
    red = 0 ;
    green = 0 ;

    cvReleaseMat(&MatrixRed) ;
    cvReleaseMat(&MatrixGreen) ;

    cvNamedWindow("Image",CV_WINDOW_AUTOSIZE) ;//创建窗口
    cvShowImage("Image",img) ;//显示
    cvWaitKey(10) ;
    cvDestroyWindow("Image") ;//销毁窗口
    cvReleaseImage(&img) ;//销毁
    n = 0 ;
    }
    }

    while(1) ;

    delete [] FileAddress ;
    return 0;
    }

    展开全文
  • 网上看了,也没有找到...准备好这个账号的account.txt文件后,建立一个run.bat文件,打开文件,输入一下代码 @for /f %%i in (account.txt) do @mkdir %%i pause 保存成run.bat,然后双击运行,即可产生account.tx
  • 任务说明:现有22个水文站的1976-1990年的日降水资料,如图: 每一张表的格式都是一样的,如图: 再如图: ...为了方便编程,本人先建立一个文件夹,以便放置新生成的excel文件。然后文件夹.

    任务说明:现有22个水文站的1976-1990年的日降水资料,如图:

     每一张表的格式都是一样的,如图:

    再如图:

    如图所示,每一年的和邻年的表格都隔一行。

    现在的要求是:新建22个新excel文件,把每个站的1976-1990年日降水数据全部填充在一列,如下图所示:

    上图中,第一列是日期。第二列是该日对应的降水量。

    难点说明:显然本项目的实现需要使用多层循环嵌套,且包含判断语句:判断平闰年。

    为了方便编程,本人先建立一个新文件夹,以便放置新生成的excel文件。然后在新文件夹下建立一个1976-1990年的日期工作簿,以便在程序中导入日期。如图:

    总体算法流程如是:第一步:先批量生成与各水文站对应的新excel文件,然后分别导入1976-1990年的日期;第二步:仔细分析原表数据行列坐标格式,设置必要的变量;第三步(主程序):批量打开已经生成的新excel,然后使用多层for循环嵌套加if判断语句向各文件填入降水数据并保存。循环过程主要由这几部分组成:月份循环、年份循环、天数循环、文件循环,这是本程序最难思考的部分。

    全部程序如下:

    import openpyxl as op
    import pandas as pd
    import os  
    import time as tm
    path='C:/Users/user/Desktop/hl/'
    start=tm.time()#读取程序运行开始时的时间
    riqi=pd.read_excel('整合文件夹/1976-1990日期.xlsx',sheet_name='Sheet1')#读取日期工作簿
    time=list(riqi.iloc[:,0])#导入1976-1990年每日的日期
    filelist=os.listdir(path)#建立列表,遍历工作文件夹下所有文件
    filelist.remove('整合文件夹')
    filelist.remove('数据整合.py')
    for i in range(len(filelist)):
        filelist[i]=filelist[i][:-5]
    monthsdays_ping=[31,28,31,30,31,30,31,31,30,31,30,31]#平年的各月天数
    monthsdays_run=[31,29,31,30,31,30,31,31,30,31,30,31]#闰年的各月天数
    months=list(range(1,13))#月份列表
    years_run=[1976,1980,1984,1988]#闰年年份
    years=[i for i in range(1976,1991)]
    index_years_run=[0,4,8,12]#闰年的索引号
    years_num=[366,365,365,365,366,365,365,365,366,365,365,365,366,365,365]#每一年的天数
    rows_fill=[]#建立空列表,按年计算累计天数
    for i in range(len(years_num)):
        rows_fill.append(sum(years_num[:i])+1)
    rows=[2+i*33 for i in range(15)]#每年第一天在源数据工作表中的行号
    
    #批量生成新excel文件
    for i in range(len(filelist)):
        wb2=op.Workbook()
        wb2.save('整合文件夹/'+filelist[i]+'_整合版.xlsx')
    
    #批量加载新excel文件,并写入1976-1990年所有日期
    for i in range(len(filelist)):
        file='整合文件夹/'+filelist[i]+'_整合版.xlsx'
        wb2=op.load_workbook(file)
        sheet=wb2['Sheet']
        for j in range(len(time)):
            sheet.cell(j+1,1,time[j])
        wb2.save(file)
    
    #以下是数据写入的主程序
    for e in range(len(filelist)):
        wb1=op.load_workbook(filelist[e]+'.xlsx')
        ws1=wb1['Sheet1']
        wb2=op.load_workbook('整合文件夹/'+filelist[e]+'_整合版.xlsx')
        ws2=wb2['Sheet']
        for m in range(len(years)):
            data=[]
            for i in range(len(months)):
                if m in index_years_run:
                    for j in range(monthsdays_run[i]):
                        data.append(ws1.cell(j+rows[m],i+3).value)
                        for k in range(len(data)):
                            ws2.cell(k+rows_fill[m],2,value=data[k])
                else:
                    for j in range(monthsdays_ping[i]):
                        data.append(ws1.cell(j+rows[m],i+3).value)
                        for k in range(len(data)):
                            ws2.cell(k+rows_fill[m],2,value=data[k])
        wb2.save('整合文件夹/'+filelist[e]+'_整合版.xlsx')
        
    end=tm.time()#读取程序运行结束时时间
    print('程序运行耗时'+str(round(end-start,2))+'秒。')
    

    程序运行结果如下:

    尾注:原数据涉及保密,恕不上传,如有需要,请私信。

     

    展开全文
  • 批量新建文件夹

    2020-12-27 20:34:04
    新建一个.txt文件把三四列复制出来。 然后更改.txt文件的后缀为.bat文件。 变成: 然后双击这个.bat文件。就会该目录新建文件夹了。 参考链接:https://zhidao.baidu.com/question/104603
  • 这里介绍Python中使用Pandas读取Excel的方法 一、软件环境: ... 2、当前实验文件夹下建立一个Source文件夹,里面放待读取的Excel文件 3、待读取的Excel文件名:Book1.xlsx,Sheet Name:Sheet1 ...
  • 2、当前实验文件夹下建立一个Source文件夹,里面放待读取的Excel文件 3、待读取的Excel文件名:Book1.xlsx,Sheet Name:Sheet1 内容示例: 三、代码参考 代码中已进行了注释说明,这里就不重复说明了。 ...
  • VUE导出excel表格

    2021-06-19 22:48:07
    本来想直接白嫖文档demo和大佬博客的...src建立一个verdor文件夹 verdor新建Export2Excel.js文件 Export2Excel.js内容如下 /* eslint-disable */ import { saveAs } from 'file-saver' import XLSX from 'xl
  • 函数作用:判断一个文件是否使用中.................92 '85.函数作用:列出档案详细摘要信息.....................93 '86.函数作用:获取菜单ID编号及名称列表................93 '87.函数作用:状态列动态显示文字......
  • Excel百宝箱

    2012-10-27 17:09:21
    【返回首页】:配合建立工作表目录工具使用,可以任何工作表中瞬间返回第一个工作表 【工作簿标签】:将当前开启的工作簿创建一个方便切换标签,置于工作表上方。可通过Ctrl+Shift+T切换显示状态,可以通过右键菜单...
  • 功能: 将多个具有相同格式的工作簿中所有工作表合并为一个工作簿的多工作表中,也可以将一个工作簿的所有工作表合并到一个工作表 特点: 1.多工作簿合并时,可以自由指定待合并工作簿的目录路径。 2.可以选择将多...
  • 功能: 将多个具有相同格式的工作簿中所有工作表合并为一个工作簿的多工作表中,也可以将一个工作簿的所有工作表合并到一个工作表 特点: 1.多工作簿合并时,可以自由指定待合并工作簿的目录路径。 2.可以选择将多...
  • excel 工具箱

    2012-01-22 15:04:34
    简介: 【公农双历查询】 【高级定位】 【背景着色】 【环境设置】 【修改文件时间】 【按颜色汇总】 【反向选择】 ...【返回首页】:配合建立工作表目录工具使用,可以任何工作表中瞬间返回第一个工作表
  • 一.引入自动化库 点击菜单栏查看->建立类向导->添加库 ...程序相应的部分添加内容,使得可以对EXCEL2003操作,本文DEBUG目录新建了两个文件夹一个用来装模板文件(名称为模板,模板名称为templa
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【返回首页】:配合建立工作表目录工具使用,可以任何工作表中瞬间返回第一个工作表 <══════┤ 函数功能介绍 ├═════> 函数名称:sumifcol 函数功能与参数:按颜色进行条件求和。有三个区域引用参数...
  • Excel_VBA教程

    2014-09-22 11:36:34
    15.使用自动控制创建一个新的WORD文档 185 16.使用GETOBJECT函数 185 17.打开存在的WORD文档 186 18.使用关键字NEW 187 19.使用自动控制访问MICROSOFT OUTLOOK 188 20.接下来…… 189 第十章 对话框和自定义窗体 189...
  • 每个像元的转换矩阵表明该像元从一个马尔可夫状态(这里的状态用于表示抗议者的存在/不存在)转换为另一种状态的可能性-有关更多详细信息,请参见演示 该代码的接近100%的通用性使其可以任何数据集上工作,以生成...
  • Excel VBA实用技巧大全 附书源码

    热门讨论 2010-10-08 18:59:24
    01007获取打开Excel文件时的默认路径 01008获取模板保存的默认路径 01009获取库文件夹的路径 01010获取路径分隔符 01011获取Excel主窗口标题栏的名称 01012获取Excel窗口的状态(大小) 01013获取Excel主窗口的高度...
  • Excel高级工具箱

    2012-01-03 22:15:22
    功能: 将多个具有相同格式的工作簿中所有工作表合并为一个工作簿的多工作表中,也可以将一个工作簿的所有工作表合并到一个工作表 特点: 1.多工作簿合并时,可以自由指定待合并工作簿的目录路径。 2.可以选择将多...
  • POI 导出Excel工作表

    2013-04-07 23:21:00
    MyEclipse新建项目然后把所需的Struts2和POI的JAR包文件拷入lib文件夹中 。如图 第二步: 配置好如图的结构 注意struts.xml文件的配置 第三步: 建立图结构的类: 第四步...
  • 也可以手动清除,我觉得手动的比较安全,我就是手动清除的 手动清除Excel宏病毒的方法:进入 C:\Program Files\Microsoft Office\OFFICE11\xlstart\先删除book1文件,然后再建立Book1文件夹;宏病毒是什么,电子...
  • EXCEL百宝箱.rar

    2012-12-24 14:07:37
    【批量命名文件】:对指定文件夹下所有文件进行重命名。可以限定文件类型或者对所有类型文件进行命名。可以在原文件名前或者后插入新名称,也可以替换原名称。 【工作簿一键减肥】:对工作簿减肥,不损坏数据的前提下...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    隐藏选项卡,这个插件还模拟了一个Excel2003样式的菜单,目的就是方便那些从Excel2003转向使用2007或2010版的朋友使用。 ===================================================================================...
  • 这应该是一个Excel(最好是xlsx)的电子表格,例如此存储库中包含的design_test1.xlsx文件。 试用用电子表格中的不同行表示。 步骤2:task_defaults.m自定义默认值 import_design.m工具假定task_defaults.m文件与...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【返回首页】:配合建立工作表目录工具使用,可以任何工作表中瞬间返回第一个工作表 【工作簿标签】:将当前开启的工作簿创建一个方便切换标签,置于工作表上方。可通过Ctrl+Shift+T切换显示状态,可以通过右键菜单...
  • EXCEL百宝箱8.0终极版

    2011-11-05 16:48:02
    【返回首页】:配合建立工作表目录工具使用,可以任何工作表中瞬间返回第一个工作表 <══════════════════┤ 函数功能介绍 ├════════════════════> 函数名称:sumifcol ...

空空如也

空空如也

1 2 3 4 5 ... 11
收藏数 212
精华内容 84
关键字:

在文件夹下建立一个excel文件