查询某文件夹下所有EXCEL表格文件工作表行数和列数等信息

最新推荐文章于 2024-10-22 12:11:13 发布

原创

最新推荐文章于 2024-10-22 12:11:13 发布 · 1.2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#linux #microsoft #运维

这段代码用于批量读取指定文件夹中Excel文件的信息，包括文件名、行数和列数。首先禁用屏幕刷新和弹窗提示，然后通过文件对话框让用户选择文件夹，接着遍历目录下的所有Excel文件，打开每个文件获取第一张工作表的行数和列数，并将这些信息写入到活动工作簿的第一个工作表中。如果打开文件时遇到错误，会尝试以修复模式重新打开。最后，恢复屏幕刷新并显示处理的文件数量。

Sub CheckExcelFileINFO()
    Dim v_Path, v_FileName, v_currentWbName
    Dim v_Wbook As Workbook
    Dim v_FName2 As String
    Dim i As Long       '变量
    Dim j As Long
    Dim n As Long       '文件计数变量
    Dim v_Rows As Long  '行数
    Dim v_Cols As Long  '列数
    
    Application.ScreenUpdating = False   '暂停刷新
    'Application.DisplayAlerts = False '使不弹出询问 是否替换目标单元格内容
    'v_Path = ActiveWorkbook.Path   '当前目录
    
    Dim v_FileDialog As FileDialog
    Set v_FileDialog = Application.FileDialog(msoFileDialogFolderPicker)  '选择目录
    
    'Application.FileDialog 的参数说明：
    'msoFileDialogOpen         打开旧文件
    'msoFileDialogSaveAs       保存文件
    'msoFileDialogFilePicker   选择文件
    'msoFileDialogFolderPicker 选择目录
    
    v_FileDialog.Title = "选择文件夹"      '窗口标题
    v_FileDialog.InitialFileName = "E:\"    '设置默认目录
    'v_FileDialog.AllowMultiSelect = True  '可复选多个文件
    'v_FileDialog.Filters.Clear
    'v_FileDialog.Filters.Add "Excel文件", "*.xlsx"   '文件类型
    'v_FileDialog

最低0.47元/天解锁文章