1、判断Excel文件是否已打开以及自动打开文件
Function openWorkbook(ByVal fileName, ByVal filePath)
On Error Resume Next
If Len(Workbooks(fileName).Name) <= 0 Then
Workbooks.Open (filePath)
End If
End Function
2、从文件全路径中截取文件名
Dim FilePath As String
FilePath = "C:\xxx\xxxx\review.txt"
Dim FileName As String
FileName = Right(FilePath, Len(FilePath) - InStrRev(FilePath, "\"))
3、从文件全路径名中截取文件夹路径
Dim filePath As String
filePath = "C:\xxx\xxxx\review.txt"
Dim forlderPath As String
forlderPath = Left(filePath, InStrRev(filePath, "\"))
4、统计某个文件夹下的文件个数
Function getFileCount(ByVal forlderPath, ByVal filePath, index)
Dim tmpFilePath As String
tmpFilePath = Dir(forlderPath & "*.*")
Dim i As Integer
i = 0
Do While tmpFilePath <> ""
i = i + 1
If tmpFilePath = filePath Then
index = i
End If
tmpFilePath = Dir
Loop
getFileCount = i
End Function
5、获取文件的最近修改的日期与时间
FileDateTime("filePah")
6、在单元格中显示当前工作表名称
首先在 公式 -> 定义名称 中定义一个名称,名字就叫sheetName,引用位置 设置为“=GET.WORKBOOK(1)”
然后在要显示工作表名称的单元格内设置如下公式: =MID(INDEX(sheetName,SHEET()),FIND("]",INDEX(sheetName,SHEET())) + 1, 256),就能显示当前工作表名称了。
7、Excel取消合并单元格后,每个单元格的内容自动填满
1.选中要取消合并的单元格,取消合并。
2.把所选单元格的格式改成“普通”,而不是“字符串”、“日期”等其他格式
3.按下 CTRL+G
4.选择空值
5.输入“=”+上箭头
6.按下 Ctrl+Enter