EDA365电子论坛网

标题: [求助] 有谁知道怎么用skill给excel添加条件格式么？？？ [打印本页]

作者: 361553894 时间: 2015-12-4 08:34
标题: [求助] 有谁知道怎么用skill给excel添加条件格式么？？？
目前做法是skill输出vbs并且执行，但是Selection.FormatConditions.Add这个指令（vbs指令）一直说格式错误
我知道16.6版本有对excel操作的支持，但不知道怎么添加条件格式，有谁用过的能指导下么？

作者: betamelody 时间: 2015-12-4 09:32
166支持excel的函数仅限于特定版本的读和写,条件公式应该不支持,把VBS代码帖上来,也许可以帮到你

作者: 361553894 时间: 2015-12-4 11:55
本帖最后由 361553894 于 2015-12-4 12:58 编辑

betamelody 发表于 2015-12-4 09:32
166支持excel的函数仅限于特定版本的读和写,条件公式应该不支持,把VBS代码帖上来,也许可以帮到你

Set oExcel = CreateObject("Excel.Application.11")
path = "D:/working/LH/"
myDate= Right("000" & Year(Date),4) & Right("0" & Month(Date),2) & Right("0" & Day(Date),2)
myTime= Right("0" & Hour(Time),2) & Right("0" & Minute(time),2) & Right("0" & Second(time),2)
name = path & myDate & "-" & myTime & "-NetLengthToExcel_U"
NetLengthUpdate name
Sub NetLengthUpdate(name)
With oExcel
.Visible=True
.Caption="NetLengthUpdate"
.Workbooks.Open("D:/working/LH/20151203-125756-NetLengthToExcel.xls")
.WorkSheets("Data").Activate
maxrow = .WorkSheets("Data").UsedRange.Rows.Count
.Cells.NumberFormatLocal = "0.00_ "
.Range("E4:E" & maxrow).Select
' Selection.FormatConditions.Delete
' Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E$5>3000"
' Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E$5>3000"
' Selection.FormatConditions(1).Font.ColorIndex = 3
' Selection.FormatConditions(2).Font.ColorIndex = 4
End With
End Sub
Selection.FormatConditions.Delete这条是能执行的
关键是FormatConditions.Add 不管怎么改都说格式错误

作者: 361553894 时间: 2015-12-4 11:59

betamelody 发表于 2015-12-4 09:32
166支持excel的函数仅限于特定版本的读和写,条件公式应该不支持,把VBS代码帖上来,也许可以帮到你

所以现在的想法是用
.VBE.ActiveVBProject.VBComponents.Import
插入宏，然后用run运行宏

作者: 361553894 时间: 2015-12-17 11:00

betamelody 发表于 2015-12-4 09:32
166支持excel的函数仅限于特定版本的读和写,条件公式应该不支持,把VBS代码帖上来,也许可以帮到你

版主有想法了么？？？

欢迎光临 EDA365电子论坛网 (https://bbs.eda365.com/)