VBS + Excel

[PrincNochi]

Здравствуйте. Пишу скрипт на vbs, который должен:
1)взять данные (ФИО) из существующей книги;
2)отредактировать данные, фамилию оставив полностью, а имя и отчество записать инициалами(в исходном файле фамилия\имя\отчество записаны в разных столбцах);
3)создать новую книгу и записать результат выполнения скрипта.
Книга создается, правда пустая...

rem переменные
rem новая книга
	dim xls	'excel
	dim book	'книга
	dim sheet	'страница
rem существующая книга
	dim obook	'книга
	dim osheet	'страница
rem
	dim f,i,o	'фамилия\имя\отчество
	dim caption	'имя файла
	dim pos,save_pos	'позиция
	dim LastRow	'последняя строка
	dim str	'строка
rem имя книги
	caption=Date
	caption=replace(caption,"\",".",1,-1)+".xls"
rem создаем новую книгу
	set xls=CreateObject("Excel.Application")
	set book=xls.WorkBooks.Add
	set sheet=xls.WorkBooks(1)
rem открываем старую книгу
	set obook=xls.WorkBooks.Open("C:\donor.xls")
	set osheet=xls.WorkBooks(1)
rem приводим к виду "Фамилия И.О."
	function first(f,i,o)
        dim crash
		if len(i)>1 then
			str=left(i,1)
			crash=str+"."
		end if
		if len(o)>1 then
			str=left(o,1)
			crash=crash+str+"."
		end if
		first=f+" "+crash
	end function
rem получение последней ячейки
	LastRow=osheet.ActiveSheet.Cells(1,1).SpecialCells(11).row
rem цикл для функции
	save_pos=1
	for pos=1 to LastRow
		set f=osheet.ActiveSheet.Cells(1,pos)
		set i=osheet.ActiveSheet.Cells(2,pos)
		set o=osheet.ActiveSheet.Cells(3,pos)
rem сохраняем результат работы функции
		sheet.ActiveSheet.Cells(1,save_pos)=first(f,i,o)
		save_pos=save_pos+1
	next
rem сохраняем книгу
	book.SaveAs(caption)
	xls.Visible=true

Может кто-нибудь сможет помочь.

[Казанский]

rem создаем новую книгу
	set xls=CreateObject("Excel.Application")
	set book=xls.WorkBooks.Add
	set sheet=book.WorkSheets(1)
rem открываем старую книгу
'	set oxls=CreateObject("Excel.Application") 'зачем второе приложение?!
	set obook=xls.WorkBooks.Open("C:\donor.xls")
	set osheet=obook.WorkSheets(1)

Дальше не смотрел.

[Казанский]

У Вас есть программа, в которой можно отлаживать VBS - пошаговое прохождение, наблюдение за переменными, точки останова и т.д.?
Если нет, можно отлаживать код в VBA другой программы, например Word.

[PrincNochi]

Просто впервые пишу на vbs и ещё толком не разобрался. Замечание учел, но эффекта все равно нет.

[PrincNochi]

Спасибо за совет про точки останова, а то я уже замучился сам все перепроверять.

[Hugo121]

Мне тут не нравится:

rem создаем новую книгу
	set xls=CreateObject("Excel.Application")
	set book=xls.WorkBooks.Add
	set sheet=xls.WorkBooks(1)
rem открываем старую книгу
	set obook=xls.WorkBooks.Open("C:\donor.xls")
	set osheet=xls.WorkBooks(1)

я бы это переписал иначе... что-то вроде

Rem создаем новую книгу
    Set xls = CreateObject("Excel.Application")
    Set Sheet = xls.Workbooks.Add(1).Sheets(1)
Rem открываем старую книгу
    Set oSheet = xls.Workbooks.Open("C:\donor.xls").Sheets(1)

    ' проверка:
    xls.Visible = True
    Sheet.Cells(1) = "test1"
    oSheet.Cells(1) = "test2"

Хотя Алексей выше уже тоже подправил, я сразу не обратил внимание...

Ну и тут зачем set?

set f=osheet.ActiveSheet.Cells(1,pos)
set i=osheet.ActiveSheet.Cells(2,pos)
set o=osheet.ActiveSheet.Cells(3,pos)

Вы ведь далее используете значения - так их и передавайте функции.