试试:
ole1.worksheets("sheet1").range("a1:z20").borders.linestyle=xlContinuous
ole1.worksheets("sheet1").range("a1:z20").borders.linestyle=xlContinuous
解决方案 »
- vb中如何用代码往图片框里添加图片
- vb 序列化对象成字符串
- 关于邮件中文解码?
- 关于控件移动的问题,请指教~~!
- 谁用VB做过监控方面的软件没?
- 要编一个读取文本的东西,时间比较紧,请大家帮帮忙
- 使用 InstallShield 打包 Active Report 2.0 需要引用什么库?
- 如何利用winsock控件进行跨网段通讯?有人知道吗?份不够可以再加,解决问题后结贴
- 求救:请问那侠士知道如何将vb+mysql打包啊
- 如何用vb控制iis的web站点的建立等管理。如果有答上来的我给他一套帐务管理系统的源代码
- ActiveReport的pageHeader和pagefooter问题
- 将文本拖动进入WORD或者EXCEL?
B.Worksheets(1).Cells(i, j).Borders.Color = vbBlack