Question

我对VBA还是很陌生，并且正在尝试以下操作

例如：工作表的名称为“ Sheet1”。我需要将此特定工作表从不同文件夹中的许多不同文件中提取到现有工作簿“ Workbook A”中。

将新工作表粘贴为值
取消保护床单
然后根据单元格值的“ A2”前四个值将这些新工作表重命名

执行所有这些操作，而无需更改工作簿A中的现有工作表。只需将其应用于新集成的工作表“ Sheet1”。

Answer 1

我一直在使用此代码提取工作表，但是文件夹的链接无法正常运行，尤其是当我更改它时。 ChDir（“ \ C：Test”）也需要很长时间才能打开然后关闭文件。并要求在每次打开工作簿时更新链接。

将DataName设置为字符串将Dim DataWB作为工作簿昏暗的文件作为字符串 Dim MasterWB作为工作簿昏暗MScnt作为整数昏暗Snr为整数

    public static string breakString(string s, int lineLength){
    string output = "";
    if(s.Length > lineLength){
        output = output + s.Substring(0, lineLength) + '\n';
        string remainder = s.Substring(lineLength, s.Length-lineLength);
        output = output + breakString(remainder, lineLength, maxLines);
    } else {
        output = output + s;    
    }

    return output;

}

结束子

Excel VBA：将不同文件中的特定工作表拉入现有工作簿并更改名称

1 个答案: