[分享]“Excel专业开发”光盘范例

cqiu1979

老大，好像缺少啊

penten

谢谢分享

penten

xiexie分享

BobPan

还是谢谢了，下载都要时间，上传更加，支持楼主的共享精神！

liangtony

下载解压成功,共19.6M

alem

各位兄弟姐妹,大家好!我在使用VB操作EXCEL时出现以下问题,不知道怎么解决,请各位帮帮忙.

我能过代码生成一个Excel文件,然后想将文件的所有单元格的行高设为一个固定值,字号也设为一个固定值,我能过Excel录制了以下宏,放在VB代码中,执行的时候出现了怪问题:第一次执行该代码一切正常,第二次执行时就出错.代码如下:

.....

  '创建EXCEL对象
  Set oExcel = CreateObject("Excel.Application")
  Set oBook = oExcel.Workbooks.Add
  Set oSheet = oBook.Worksheets(1)

  '--字体，行高设置
  oSheet.Activate
  Cells.Select                                '--关键行
  Selection.RowHeight = 6
  Selection.Font.Name = "宋体"
  Selection.Font.Size = 6
  Selection.Font.Strikethrough = False
  Selection.Font.Superscript = False
  Selection.Font.Subscript = False
  Selection.Font.OutlineFont = False
  Selection.Font.Shadow = False
  Selection.Font.Underline = xlUnderlineStyleNone
  Selection.Font.ColorIndex = xlAutomatic
  Selection.VerticalAlignment = xlCenter

.......

该段代码我放在一个子程序中,第一次调用程序运行后执行,完全正确,第二次调用时在 '--关键行 出错,提示为:"应用程序定义或对象定义错误"

请高手指点一下,谢谢!

  '--字体，行高设置

tanhong

谢谢分享哦～　真是好东西

zhczf

下载完,可以正常解压,多谢分享

fanning001x

谢谢LZ的分享！学习了

hpc

谢谢楼主收藏了！！！