c#将一个工作簿内工作表拆成多个独立工作簿

qq_42678477

于 2019-01-20 13:41:43 发布

阅读量606

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/qq_42678477/article/details/86561468

本文介绍了一种使用VBA批量将一个Excel工作簿中的所有工作表拆分成独立文件的方法。通过遍历源工作簿中的每个工作表，复制并保存为单独的Excel文件，最后将新创建的文件夹打开，便于用户查看和管理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

        public void DetachSheetsToWorkbooks(Excel.Workbook sourceWb)
        {
            string path = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory);
            path = (path.EndsWith("\\")) ? path : path + "\\";
            path += DateTime.Now.ToString("MMdd_HHmmss");
            if (!Directory.Exists(path))
                Directory.CreateDirectory(path);


            Excel.Worksheet sht = null;

            Excel.Application app = null;
            Excel.Workbook wbNew = null;
            Excel.Worksheet newSht = null;

            app = sourceWb.Application;

            for (int i = 1; i <= sourceWb.Worksheets.Count; i++)
            {
                sht = sourceWb.Worksheets[i];

                string filename = path + "\\" + sht.Name;
                wbNew = app.Workbooks.Add();
                sht.Copy(After: wbNew.Worksheets[1]);
                newSht = wbNew.Worksheets[1]; newSht.Delete();
                wbNew.SaveAs(Filename: filename);
                wbNew.Close(SaveChanges: false);
            }

            MyCommon.ExecuteProcess("explorer.exe", path);

        }