EXCEL VBA工程常用代码收藏

最新推荐文章于 2024-04-09 17:25:29 发布

hoochon

最新推荐文章于 2024-04-09 17:25:29 发布

阅读量1.1k

点赞数 1

分类专栏：办公自动化 EXCEL+VBA 文章标签： VBA excel办公自动化

本文链接：https://blog.csdn.net/hoochon/article/details/100579145

版权

本文汇总了Excel VBA中的一些常见操作代码，包括获取表格C列有效行数、打印当前页面、程序休眠、文件存在判断、表格保护与取消保护以及打开文件夹内所有表格等实用技巧。

摘要由CSDN通过智能技术生成

获取“信息”表C列有效行数，代码如下：

    Dim i As Integer
    n = Sheets("信息").Range("C65536").End(xlUp).Row

打印当前页面

'打印活动表格
ActiveSheet.PrintOut
'打印指定表格
Sheets("数据").PrintOut

EXCEL VBA工程让程序休眠1秒钟

'首先在最上部，定义
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'在程序中使用,1000 为1秒钟：
Sleep 1000

判断指定路径文件是否存在

'定义函数
Function IsFileExists(ByVal strFileName As String) As Boolean
    If Dir(strFileName, 16) <> Empty Then
        IsFileExists = True
    Else
        IsFileExists = False
    End If
End Function
'使用
If IsFileExists("ThisWorkbook.Path & "\image\123.jpg") = True Then
    ' 文件存在时的处理
        MsgBox "文件存在！"
    Else
    ' 文件不存在