摘要:
适用于将多个相同结构的 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)

浙公网安备 33010602011771号