两个Excel问题 – 查找string值并保存Excel电子表格

我正在制作一个输出到Excel电子表格的VBScript。 这将在不同的日子在多个系统上运行，所以我想使电子表格主机名和date .xls的名称

我怎么能做到这一点，我一直在使用谷歌search，但无法find它。

此外，我只有两列，但第二列中的一些文本将是“testing通过”或“testing失败”。 大约有25排。 我想这样做，那么在第二列有“testing通过”的行是绿色的，然后是红色的，反之亦然。

我应该怎么做呢？

Answer 1

我更喜欢条件格式：

With Table1.Range("$A:$A,$B:$B").FormatConditions.Add( _ Type:=xlExpression, _ Formula1:="=AND($B1=""Y"")") .Interior.Color = RGB(255, 0, 0) End With With Table1.Range("$A:$A,$B:$B").FormatConditions.Add( _ Type:=xlExpression, _ Formula1:="=AND($B1=""X"")") .Interior.Color = RGB(0, 255, 0) End With 

随意用任何其他表格对象replaceTable1 。

这将每次执行此代码时 添加新的格式条件。

要创build您的文件名，您可以使用Format(Now,"dd/mm/yyyy")和代码Omnikrys – 或FileDialog对象 。

这里有个完整的例子：

ActiveWorkbook.SaveAs Environ$("computername") & "_" & Format(Now, "dd-mm-yyyy") & ".xlsx"

Answer 2

 ActiveWorkbook.SaveAs *filename* Cells(1, 1).Font.ColorIndex = 3 Cells(1, 1).Font.Bold = TRUE Cells(1, 1).Font.Size = 12 

等等

如果我记得右红色是3，绿色是4.此外，任何范围对象应该做的改变样式属性，如字体。 所以范围，select等将工作。

要获得新的文件名，我会去与下面的代码…

 Set objSysInfo = CreateObject( "WinNTSystemInfo" ) filename = objSysInfo.ComputerName & "-" & Year(Now) & right("00" & Month(Now), 2) & ".xls" WScript.Echo Replace(WScript.ScriptFullName, WScript.ScriptName, filename)