摘要: 适用于将多个相同结构的 Excel 文件的数据,合并成一个 Excel。 Sub FileOpen() Dim File As String Dim sourceWorkbook As Workbook Dim strPath As String, strFileName As String Dim 阅读全文
posted @ 2024-03-20 09:41 合法勒索夫 阅读(55) 评论(0) 推荐(0)
摘要: 新建窗体 Sub SplitExcelByMonth() 'On Error GoTo ErrorHandler ' 启用错误处理 On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = 阅读全文
posted @ 2024-03-20 09:29 合法勒索夫 阅读(51) 评论(0) 推荐(0)
摘要: 遍历读取指定目录下(含子级目录)的 Excel ,并插入 MySql Sub Begin() Dim rootPath As String 'With Application.FileDialog(msoFileDialogFolderPicker) ' If .Show Then rootPath 阅读全文
posted @ 2024-03-20 09:16 合法勒索夫 阅读(40) 评论(0) 推荐(0)