wsTarget As Worksheet

冷茶视界 2024-10-06 发布于江苏 | 转藏 内容提要 合并文件夹下所有Excel文件、CSV文件，包含所有子文件夹|完整代码 1、在工作表“汇总”里，命令按钮点击事件，显示用户窗体： Private Sub CmdSum_Click() UserForm1.ShowEnd Sub 2、在UserForm1里，窗体启动、选择合并文件夹，合并文件： Dim sourceFolder As StringDim fileCount As Integer, sheetsCount As Integer, successfulSheetsCount As IntegerDim tbTitle(), wsTarget As WorksheetPrivate Sub UserForm_Initialize() Dim lastRow As Integer, lastCol As Integer With Me.lbTop .ZOrder 0 .Visible = False .Caption = "请输入至少一个共同关键字，2个以上以空格隔开" .Top =...

内容提要 根据工资表生成工资条：两种思路|完整代码 1、在工作表“工资表”里，命令按钮点击事件，调用相应过程： Private Sub CmdPayslip_Click() Call generatePayslipEnd SubPrivate Sub CmdPayslip2_Click() Call generatePayslip2End Sub 2、在myModule模块里，自定义过程generatePayslip，生成工资表，这是方法一： Sub generatePayslip() Dim ws As Worksheet, wsTarget As Worksheet Dim rngTitle As Range, rngData As Range, lastRow As Integer, lastCol As Integer Dim strTitle As String, currName As String Dim dic As Object, dKey As String Dim time As Single Application.ScreenUpdating =...