Помогите пожалуйста в решении огромной проблеммы для меня. Я ничего не понимвю в программировании, но хочу сделать программу для работы с Excel Смысл этой программы в том, чтобы готовить листы пересчета и вести сам пересчет. Я копирую таблицу в эту программу и готовлю в ней лист пересчета, в определенном столбце находятся конечные остатки, в другом столбце я впечатываю реальное количество, а в следующем столбце доложны появиться расхождения, т.е. столбец с конечным количеством должен вычитать реальное количество, но как это сделать я не знаю. вот есть скрипт, но он копирует столбцы через один, а мне надо определенные и чтобы сразу упорядочивалась по алфавиту по первому столбцу
Вот скрин программы, которую я начал делать

[img]C:\Documents and Settings\Admin\Рабочий стол\Безымянный.jpg[/img]


Приложение:
а вот скрипт
Option Explicit

Dim FSO

Function doWork(Data,Index)
Dim strIn
strIn = CStr(Data)
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim Ext
Ext = GetAnExtension(strIn)
If LCase(Ext) <> "xls" Then
Sys.onEvent strIn
Else
Dim XL
Set XL = CreateObject("Excel.Application")
XL.WorkBooks.Open strIn
Dim strOut
strOut = ""
Dim rows
rows = 1
Dim colm
colm = 1
Do While Not IsEmpty(XL.Cells(rows, 1).Value)
Do While Not IsEmpty(XL.Cells(rows, colm).Value)
strOut = strOut & XL.Cells(rows, colm).Value & ";"
colm = colm + 2
Loop
strOut = strOut & vbCrLf
colm = 1
rows = rows + 1
Loop
XL.Quit
Set XL = Nothing
Sys.onExcel strOut
End If
End Function

Function GetAnExtension(FileSpec)
On Error Resume Next
GetAnExtension = FSO.GetExtensionName(FileSpec)
If CStr(Err.Number) <> 0 Then call LogMsg(EventError, "Can't get extension of file: " & FileSpec)
End Function

Sub LogMsg(intType, strMsg)
Sys.onError strMsg & ";" & intType
End Sub