首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往
  • 您找到你想要的搜索结果了吗?
    是的
    没有找到

    DEDECMS常见文章列表调用 - 最新头条图片推荐文章等

    老蒋已经有好几年没有接触过DEDECMS织梦程序。前几天有看到织梦有在开发更新5.8版本,而且有计划在10月份的时候上线。...昨天开始老蒋有在做一款DEDECMS主题,由于很久没有接触有些调用代码忘记,于是需要用到的时候再去查找。这里我把常用的几个调用文章列表代码记录下来,以后需要的时候也可以复制使用。...DEDECMS相关阅读: 1、DEDECMS仿站常用模板标签记录 DEDECMS主题模板必备 2、织梦DEDECMS仿站模板必备标签 - index.htm首页模板 3、织梦DEDECMS仿站模板必备标签...- list_article.htm列表模板 4、织梦DEDECMS仿站模板必备标签 - article_article.htm内容页模板 本文出处:老蒋部落 » DEDECMS常见文章列表调用 -

    10.7K21

    ExcelVBA-选择文件夹获取文件列表

    ExcelVBA-选择文件夹获取文件列表 前言: 一般情况下我们程序运行的文件操作顺序如下: 1.打开对话框取得文件夹路径 2.获得文件夹中的所有子文件夹 3.取得文件列表(分为不含子文件夹,含子文件夹两种情况...) 今天学习第一种情况 : 取得文件列表(不含子文件夹) 近期我们学习了 start=========== ExcelVBA-打开对话框取得文件夹路径2种方法 ExcelVBA文件操作-获得文件夹中的所有子文件夹...end=========== 今天我们要学习 【选择文件夹获取文件列表】 图片 注意标题,有顺序的哦:1.先打开对话框==2.选择文件夹==3.获取文件列表 1-2两步可用我们的自定义函数 '打开对话框...,返回文件名列表(不包含子文件夹) Function GetFolderFiles(folderspec As String)     Dim sfso As Object, sfld, sff...,返回文件名列表(不包含子文件夹) Function GetFolderFiles(folderspec As String) Dim sfso As Object, sfld, sff, sffs

    1.3K40

    VBA打开文件夹对话框,取得文件夹内文件列表

    近来写代码,常用到,就在此做一个备份,以方便日后使用 写成两个函数 【函数一】:打开文件夹对话框,多选文件,确定,返回文件列表数组 【使用方法】:arr=getFilesPath() Sub...[a:a].ClearContents [a1].Resize(UBound(arr) + 1, 1) = Application.Transpose(arr) End Sub '==打开文件夹...,可以多选文件,取得选中的所有文件的列表,返回数组 '==使用:arr=getFilesPath() Function getFilesPath() Dim i As Integer, Fso...,获得文件夹 (2)一个是传递进文件夹参数,返回文件列表数组 【使用方法】arr=getFiles("xxx") '==打开文件夹对话框,获得文件夹的路径 Sub GetFloder_FileDialog...string,返回文件夹中所有文件列表数组 '==使用:arr=getFiles(xxx) Function getFiles(folder As String) Dim p, temp_str

    2K20

    ExcelVBA文件操作-选择文件夹(含子文件夹)获取所有文件列表

    到目前 我们已完成:1.先打开对话框2.选择文件夹3.获取文件夹4.得到文件夹(包含子文件夹)的路径5. 获取文件夹(不含子文件夹)内的文件列表 今天我们将解决问题是: 6....获取文件夹(含子文件夹)内的文件列表 【问题】 选择文件夹(含子文件夹)获取所有文件列表 【解决思路】 第【1-3】步:可以用自定义函数(PS:此函数返回要进行是否为空的判断,如果为空要exit sub...for next传入到读取文件列表的函数,每次它会返回一个数组, 我们再在主程序新建一个【大数组】,把返回的数组一个一个读取出来,添加到【大数组】中就完成啦 读取文件列表也可以用自定义函数,如下 '输入文件夹...,返回数组=本文件夹的文件名列表(不包含子文件夹) Function GetFolderFiles(folderspec) Dim sFso As Object, sfld, sff, sffs...Else SelectGetFolder = "" End If End With End Function '输入文件夹,返回数组=文件夹包含子文件夹列表

    4.7K21

    ExcelVBA文件操作-选择文件夹(含子文件夹)获取所有文件列表

    ExcelVBA文件操作-选择文件夹(含子文件夹)获取所有文件列表 【回顾】 近期我们学习了 1.ExcelVBA-打开对话框取得文件夹路径2种方法 2.ExcelVBA文件操作-获得文件夹中的所有子文件夹...3.ExcelVBA文件操作-选择文件夹获取文件列表 到目前 我们已完成:1.先打开对话框2.选择文件夹3.获取文件夹4.得到文件夹(包含子文件夹)的路径5....获取文件夹(不含子文件夹)内的文件列表 今天我们将解决问题是: 6....获取文件夹(含子文件夹)内的文件列表 【问题】 选择文件夹(含子文件夹)获取所有文件列表 【解决思路】 第【1-3】步:可以用自定义函数(PS:此函数返回要进行是否为空的判断,如果为空要exit sub...for next传入到读取文件列表的函数,每次它会返回一个数组, 我们再在主程序新建一个【大数组】,把返回的数组一个一个读取出来,添加到【大数组】中就完成啦 读取文件列表也可以用自定义函数,如下 '输入文件夹

    74530

    ExcelVBA文件操作-选择文件夹获取文件列表

    ExcelVBA文件操作-选择文件夹获取文件列表 近期学习了 =====start====== 1.ExcelVBA文件操作-获得文件夹中的所有子文件夹 2.ExcelVBA-打开对话框取得文件夹路径...2种方法 =====end====== 今天要学习 注意标题,有顺序的哦: 1.先打开对话框==2.选择文件夹==3.获取文件列表 1-2两步可用我们的自定义函数 '打开对话框,选择,取得文件夹路径,...SelectGetFolder = "没有选择" End If End WithEnd Function 进入文件夹后,接下来,要读取文件夹中的的文件列表(不包含子文件夹) 【知识点...GetFolder进入文件夹 (3)取得子对象Folder中的Files集合 Set fc=f.Files (4)再循环出文件列表 官方例子 Sub ShowFolderList(...,返回文件名列表(不包含子文件夹)Function GetFolderFiles(folderspec As String) Dim sfso As Object, sfld, sff, sffs

    54420

    ExcelVBA文件操作-获取文件夹(含子文件夹)所有文件列表(优化版)

    1.ExcelVBA文件操作-选择文件夹(含子文件夹)获取所有文件列表 2.ExcelVBA文件操作-选择文件夹获取文件列表 3.ExcelVBA文件操作-获得文件夹中的所有子文件夹 4.ExcelVBA...-打开对话框取得文件夹路径2种方法 【问题】 前面的学习中,有几个自定义函数:1.运行不是那么优化,2.在实际应用中我们关注的是文件路径,对文件夹的路径不是那么关注今天进行优化:取自定义函数为:arr...=GetAllFolderFiles(路径,参数)只获取文件的路径,添加了可选项,参数默认为0时,只读取本目录的文件列表,参数不等于0时,读取本目录(含子目录)的所有文件列表 【两个自定义函数】...SelectGetFolder = "" End If End With End Function arr=GetAllFolderFiles(路径,参数) '输入文件夹...,返回数组=文件夹包含子文件夹列表 ' 用法:arr=GetAllFolderFiles(路径,2)参数Ndir=1不包含子目录,Ndir>1包含子目录 Function GetAllFolderFiles

    1.6K20
    领券