Доброго времени суток. Пишу в VB Script код, который создает объект эксель, но не знаю как измнить шрифт на Ариал, когда применяю форматирование...( Ктонить знает команду?
Function Main()

Dim FileName
Filename = "c:\Svod\report.XLS"

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

Main = DTSTaskExecResult_Failure
If (fso.FileExists(FileName)) Then
Dim objXL
Set objXL = CreateObject("Excel.Application")

objXL.Visible = FALSE
objXL.WorkBooks.Open(FileName)
objXL.CutCopyMode = False
objXL.DisplayAlerts = False
Dim SheetsCnt
If (objXL.WorkBooks(1).Sheets.Count > 1) Then
objXL.WorkBooks(1).Sheets(1).Delete
End if
For i = 1 to objXL.WorkBooks(1).Sheets.Count
objXL.WorkBooks(1).Sheets(i).Activate()

RowsCnt = objXL.ActiveCell.CurrentRegion.Rows.Count
ColsCnt = objXL.ActiveCell.CurrentRegion.Columns.Count






objXL.Range(objXL.Cells(1, 1), objXL.Cells(1, ColsCnt)).HorizontalAlignment = 3
objXL.Range(objXL.Cells(1, 1), objXL.Cells(1, ColsCnt)).VerticalAlignment = 2
objXL.Range(objXL.Cells(1, 1), objXL.Cells(1, ColsCnt)).Interior.Color = 12632256
Next



objXL.WorkBooks(1).Save
objXL.Quit
Set objXL = Nothing

Main = DTSTaskExecResult_Success
End If
End Function

vkle
Ексель точно знает.
Чтоб он поделился, нужно запустить запись макроса. Сделать нужные действа. Затем сохранить макрос и открыть его во встроеном редакторе. Медитировать над открывшимся кодом.
Можно еще в справку глянуть, но это немного дольше, да и готового ответа там может не быть.
Posted via ActualForum NNTP Server 1.4

Ну в экселе я пробывал медетировать, но похоже плохо пытался, ибо как этот код привязать к моему скрипту ума не представляю:
With Selection.Font
.Name = "Arial"
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

Фсе, разобрался, нужно было сделать так:

With objXL.Range(objXL.Cells(1, 1), objXL.Cells(1, ColsCnt)).Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.ColorIndex = xlAutomatic
End With

Убрал лишние строчки. Спасибо