有关vb中调用excel的问题？

blackfishliving 2005-09-23 04:52:28

如何在程序中合并多个单元格？如何指定某一列的宽度，如何给数据区画框？

...全文

154 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

chtlover 2005-09-24

打赏
举报

楼上说的好

samwzhang 2005-09-24

打赏
举报

教你个EXCEL编程的有效的土办法：
你想做什么功能时：到EXCEL里边去录制一个同样功能的宏，然后把那个宏的VBA代码拷到VB里边，再改成VB格式，就OK了。

samwzhang 2005-09-24

打赏
举报

当然无效了，你连EXCEL对象都不用，能有效的了吗？

blackfishliving 2005-09-23

打赏
举报

怎么会提示无效或不合格的引用?

blackfishliving 2005-09-23

打赏
举报

with后面应该是什么对象？

chtlover 2005-09-23

打赏
举报

楼上正解

顶

samwzhang 2005-09-23

打赏
举报

如何在程序中合并多个单元格？.Range("H1:I1").MergeCells = True
如何指定某一列的宽度?.Columns(K).ColumnWidth =
如何给数据区画框？
With .Range("A2:" & CalExcelLNum(kk) & (K + 1))
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With