vb操作excel新建excel文件模式

首先要引用microsoft excel 11.0 object library
然后将编写以下代码：
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Workbooks.Add
    Set objSheet = objExcel.Workbooks(1).Worksheets(1)  '指定工作表为sheet1

    objExcel.Worksheets.Add
    objExcel.Workbooks(1).Worksheets(1).Name = "ssssssss"
新建一个工作表，并设置其名称为ssssssss.

objSheet.Range("a1:d1").Interior.Color = RGB(255, 255, 153)
这行代码，用来设置a1到d1这个区域的背景颜色

objSheet.Range("a1:d1").Font.Bold = True
设置粗体

  objSheet.Cells(1, 1) = "字段1"
    objSheet.Cells(1, 2) = "字段2"
上面是设置单元格的内容。第一行的代码就是设置第一行，第一列的内容。

objSheet.Columns(1).ColumnWidth
设置列宽，上面的代码即设置第1列的列宽。

    For i = 1 To 4
        objSheet.Columns(i).HorizontalAlignment = xlCenter
    Next i
设置内容的对齐方式。


objSheet.Hyperlinks.Add objSheet.Cells(1, 1), "mp3.baidu.com", , "这是鼠标移动到链接上时显示的内容"
上面是添加一个超链接

objSheet.Range("a2:d2).Font.Size = 10
这个是设置区域的字体大小。

objSheet.Range("b2:D2").Font.Color=RGB(255, 0, 0)
这个是设置字体颜色。


objExcel.Visible = True
这行决定是否显示出我们创建的excel对象。如果值是false，则不显示。即使是true，excel显示出来了，也是未保存状态。

Set objExcel = Nothing
最后，记得释放掉对象。要不然进程中老是有个excel。

 

本文来源于http://code.niuc.org/thread-2230-1-1.html，转载请注明出处。