首页 > 代码库 > VBA点滴备忘录（持续更新中）
VBA点滴备忘录（持续更新中）
1、判断Excel文件是否已打开以及自动打开文件
Function openWorkbook(ByVal fileName, ByVal filePath) On Error Resume Next If Len(Workbooks(fileName).Name) <= 0 Then Workbooks.Open (filePath) End IfEnd Function
2、从文件全路径中截取文件名
Dim FilePath As StringFilePath = "C:\xxx\xxxx\review.txt"Dim FileName As StringFileName = Right(FilePath, Len(FilePath) - InStrRev(FilePath, "\"))
3、从文件全路径名中截取文件夹路径
Dim filePath As StringfilePath = "C:\xxx\xxxx\review.txt"Dim forlderPath As StringforlderPath = 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 = iEnd Function
5、获取文件的最近修改的日期与时间
FileDateTime("filePah")
6、判断某一地址单元格是否为合并单元格，如果是，则其为几列几行合并而成
Sub myMerge() Set cel = Range("A1") If cel.MergeCells Then MsgBox cel.Address(0, 0) & "为合并单元格，" & "共有" & cel.MergeArea.Rows.Count & "行" & cel.MergeArea.Columns.Count & "列组成" End IfEnd Sub
VBA点滴备忘录（持续更新中）
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。