-
客服电话
-
APP下载
迪恩网络APP
随时随地掌握行业动态
-
官方微信
扫描二维码
关注迪恩网络微信公众号
客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
以前一直是用C#直接操作Excel,但是发现性能无比低下,最近发现用Excel中的宏可以高速的完成批处理的功能,于是决定写一个用C#为Excel文件创建宏的程序,工程如下:
代码
using System;
using System.IO; using System.Runtime.InteropServices; using System.Reflection; using System.Text; using Office = Microsoft.Office.Core; using VBDE = Microsoft.Vbe.Interop; using Excel = Microsoft.Office.Interop.Excel; namespace ConsoleApplication1 { class Class1 { [STAThread] static void Main(string[] args) { string MyFile = Path.GetFullPath(".") + @"\sample.xls"; CreateWorkbook(MyFile,GetMacro()); Console.WriteLine("File Saved to " + MyFile); Console.ReadLine(); } #region Get Macro private static string GetMacro() { StringBuilder sb = new StringBuilder(); sb.Append("Sub FormatSheet()" + "\n"); sb.Append(" msgbox \"http://www.cnblogs.com/huangcong/\"\r\n"); sb.Append("End Sub"); return sb.ToString(); } #endregion #region Create Workbook private static void CreateWorkbook(string FileName,string Macro) { Excel.Application xl = null; Excel._Workbook wb = null; Excel._Worksheet sheet = null; VBDE.VBComponent module = null; bool SaveChanges = false; try { if (File.Exists(FileName)) { File.Delete(FileName); } GC.Collect(); xl = new Excel.Application(); xl.Visible = false; wb = (Excel._Workbook)(xl.Workbooks.Add( Missing.Value )); sheet = (Excel._Worksheet)wb.ActiveSheet; module = wb.VBProject.VBComponents.Add(VBDE.vbext_ComponentType.vbext_ct_StdModule); module.CodeModule.AddFromString(Macro); xl.Visible = false; xl.UserControl = false; SaveChanges = true; wb.SaveAs(FileName,Excel.XlFileFormat.xlWorkbookNormal, null,null,false,false,Excel.XlSaveAsAccessMode.xlShared, false,false,null,null,null); } catch( Exception theException ) { String msg; msg = "Error: "; msg = String.Concat( msg, theException.Message ); msg = String.Concat( msg, " Line: " ); msg = String.Concat( msg, theException.Source ); Console.WriteLine(msg); } finally { try { xl.Visible = false; xl.UserControl = false; wb.Close(SaveChanges,null,null); xl.Workbooks.Close(); } catch { } xl.Quit(); if (module != null) { Marshal.ReleaseComObject (module); } if (sheet !=null) { Marshal.ReleaseComObject (sheet); } if (wb !=null) { Marshal.ReleaseComObject (wb); } if (xl !=null) { Marshal.ReleaseComObject (xl); } module = null; sheet=null; wb=null; xl = null; GC.Collect(); } } #endregion } } 运行结果: 打开添加了宏的Excel文件,找到刚才创建好的宏: 运行查看效果: 工程下载: 创建宏.rar
出处：请输 本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。 |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论