最近用vb.net开发了一个小工具,可以选择字体和颜色,利用自带的FontDialog和ColorDialog实现,然后用获取到的字体及颜色来修改Excel表格样式,Excel的字体对象是Microsoft.Office.Interop.Excel.Font,而字体控件是System.Drawing.Font,颜色控件是System.Drawing.Color,所以在赋值的时候需要进行转换。
下面只列出了部分比较重要代码,供以后查阅。
精简后没有调试,不保证能正常运行。
Dim myFont As System.Drawing.Font '字体 Dim myColor As System.Drawing.Color '字体颜色 Dim myCellColor As System.Drawing.Color '单元格颜色 '打开字体窗口,选择一个字体,设置字形和字号 Dim f As New FontDialog f.AllowScriptChange = False '不能选择字符集 f.AllowVerticalFonts = False '不显示旋转90度的字体 f.ShowEffects = False '不能设置特殊效果,如下划线、删除线 If f.ShowDialog=DialogResult.OK Then myFont=f.Font End If '打开颜色窗口,选择一种字体颜色 Dim c As New ColorDialog If c.ShowDialog = DialogResult.OK Then myColor = c.Color End If '打开颜色窗口,选择一种单元格颜色 Dim cc As New ColorDialog If cc.ShowDialog = DialogResult.OK Then myCellColor = cc.Color End If '设置Excel字体和单元格样式 Dim ExcelApp As New Excel.Application Dim ExcelBook As Excel.Workbook Dim ExcelSheet As ExcelWorkSheet ExcelBook = ExcelApp.Workbooks.Add ExcelSheet = ExcelBook.ActionSheet With ExcelSheet.Range("A1","E1") .Font.Name = myFont.Name '设置字体 .Font.Size = myFont.Size '设置字号 If myFont.Style = 3 Then '字形是粗斜体 .Font.FontStyle = Join(Split(myFont.Style.ToString, ", ")) Else '字形是常规、粗体、斜体 .Font.FontStyle = myFont.Style.ToString End If .Font.Color = ColorTranslator.ToOle(myColor) '设置字体颜色 .Interior.Color = ColorTranslator.ToOle(myCellColor) '设置单元格填充色 .Borders.LineStyle = 1 End With ExcelBook.SaveAs("D:\Book1.xls") ExcelBook.Close() ExcelApp.Quit() ExcelSheet = Nothing ExcelBook = Nothing ExcelApp = Nothing
相关推荐
vb.net 水晶报表中输出Excel,在vb.net中输出Excel
VSTO开发Excel工具箱源码(VB.NET版),VB.NET连接SQL serve数据库,远程数据库,异步委托、VB.net画甘特图等等源码,有注释等等,超值
vb.net把DataGridView中的数据导入Excel中,通常采用对Excel操作的方式进行。该方法简单易懂,网上也有很多,但是效率低下。因为其采用的是一个单元格一个单元格的写入方式。当数据量非常大时,用时往往很长。相对而...
vb.net引用Excel对象访问excel,自带excel文件,绝对可以运行,绝对有参考价值,为这了几行程序我痛苦了十几天,在csdn里面求一位高手帮忙才解决其中一个非常隐蔽的问题,希望对初学者有所帮助。代码通过vb.net2010...
vb.net面向对象程序设计(2007),不错的学习选择
在向大家详细介绍VB.NET面向对象编程之前,首先让大家了解下Employee类。下面我们最简单的特性开始来论述VB.NET面向对象编程的一些特性。
C#转换成vb.net软件解压后双击ConvertCSharp2VB.exe即可使用 将c#的代码粘贴到窗口中 点击右下角Convert即可看到VB.NET的代码 正确率90%左右 !
C#代码项目转换VB.NET项目代码(可整个项目转换)C#代码项目转换VB.NET项目代码(可整个项目转换)
VB.Net业务对象专家指南(c#和VB.net源代码)
通过vb.net把数据库的数据写入excel中
VB.NET面向对象的实现教程
用VB.Net实现读取本地Excel文件,并获取excel中内容
VB.Net to C# Converter(代码转换工具) v2.23 VB.Net to C Sharp Converter 是一款将vb.net代码转化为c#代码的程序。在转化过程中,保留了原有的注释和变量名。 VB.Net to C# Converter是一款代码转换软件,将用户...
vb.net将如何将excel中的数据导入到数据库
vb.net开发Exce格式总结 l vb.net开发Excel vb.net开发Excel格式总结
VB.NET 面向对象可重用组件开发
(vb.net) DataGridView对数据库的增删改查 成功的例子,附带数据库
VB.net转换成JAVA的工具。包含说明和源代码。
使用VB.NET语言访问操作EXCEL档常用的操作命令代码,对于开发需要访问使用非常实用.
vb.net 与excel 的结合,可以直接建立excel