查询某文件夹下所有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