如果需要使用“打开”.“打印”等Excel内置对话框已经具有的功能,可以使用代码直接调用这些内置的对话框,如下面的代码所示. #001 Sub DialogOpen() #002 Application.Dialogs(xlDialogOpen).Show arg1:=ThisWorkbook.Path & "\*.xls" #003 End Sub 代码解析: DialogOpen过程显示内置的“打开”对话框并选定示例所在的文件夹. 显示内置对话框语法如下: A
Python获取文件名的方法性能对比 前言:平常在python中从文件夹中获取文件名的简单方法 os.system('ll /data/') 但是当文件夹中含有巨量文件时,这种方式完全是行不通的: 在/dd目录中生成了近6百万个文件,接下来看看不同方法之间的性能对比 快速生成文件的shell脚本 for i in $(seq 1 1000000);do echo text >>$i.txt;done 1.系统命令 ls -l # 系统命令 ls -l import time imp
Sub XXX() Dim arr() arr = Application.GetOpenFilename("所有支付文件 (*.xls;*.xlsx;*.csv),*.xls;*.xlsx;*.csv,Excel 文件 (*.xls),*.xls,Excel2007 文件 (*.xlsx),*.xlsx,CSV 文件 (*.csv),*.csv", , "选择文件", , True) For i = LBound(arr) To UBound(arr) Cells