VBA将多个带有密码的excel文件合并为一个

首先创建一个 “合并.xlsm”文件（A到U列），第一行复制标准标题行，然后添加一个activex按钮，添加代码：

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False

On Error Resume Next '容错
Dim wk, wb As Workbook
Dim fname, pathfile As String
Dim i, j As Integer

With Application.FileDialog(msoFileDialogFolderPicker)  '获取需合并的文件所在文件夹
        .Title = "请选择数据源路径"
        If .Show = False Then Exit Sub
        from_path = .SelectedItems(1) & "\" '加入"\",否则，会到选定路径的上一层
End With
fname = Dir(from_path)

i = 2

Do While fname <> ""
    pathfile = from_path + fname
    Set wk = Application.Workbooks.Open(pathfile, , , , "密码")
    If Err.Number = 9 Then
        Set wk = Workbooks.Open(pathfile)
    End If
    
    j = ActiveSheet.[C65536]