robinLib
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброе время суток!
Есть макрос:
Sub TaskHierarchy()
'Ctrl T
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlRow As Excel.Range
Dim xlCol As Excel.Range
Dim Proj As Project
Dim T As Task
Dim ColumnCount, Colums, Tcount As Integer
Dim MyFile As String
Dim ff As Integer
'Начальные значения
Tcount = 0
ColumnCount = 0
'Создание экземпляра Excel
Set xlApp = Excel.Application
'
'Подождать
xlApp.Cursor = xWait
'Создание рабочей книги и листа в Excel
xlApp.Workbooks.Open "C:\Budget\TimeData.xls"
Set xlBook = xlApp.ActiveWorkbook
'Расширение первого столбца листа 1
Set xlSheet = xlBook.Worksheets.Item("Лист1")
xlSheet.Cells(1, 1).Select
Columns("A:A").Select
Selection.ColumnWidth = 10
'Присвомить листу название проекта
'xlSheet.Name = ActiveProject.Name
'Выбор 1-ой ячейки в Excel для записи
Set xlRow = xlApp.ActiveCell
'Задается необходимое значение в ячейку А1
xlRow = "Бюджет ФЦП - " & ActiveProject.Name
'Перемещение в следующую ячейку
Set xlRow = xlRow.Offset(1, 0)
xlRow = Date
Set xlRow = xlRow.Offset(2, 0)
' Установка временной оси
Set xlCol = xlRow.Cells(1, 10)
xlCol = "31.01.05"
Set xlCol = xlRow.Cells(1, 11)
xlCol = "28.02.05"
Set xlCol = xlRow.Cells(1, 12)
xlCol = "31.03.05"
Set xlCol = xlRow.Cells(1, 13)
xlCol = "30.04.05"
Set xlCol = xlRow.Cells(1, 14)
xlCol = "31.05.05"
Set xlCol = xlRow.Cells(1, 15)
xlCol = "30.06.05"
Set xlCol = xlRow.Cells(1, 16)
xlCol = "31.07.05"
Set xlCol = xlRow.Cells(1, 17)
xlCol = "31.08.05"
Set xlCol = xlRow.Cells(1, 18)
xlCol = "30.09.05"
Set xlCol = xlRow.Cells(1, 19)
xlCol = "31.10.05"
Set xlCol = xlRow.Cells(1, 20)
xlCol = "30.11.05"
Set xlCol = xlRow.Cells(1, 21)
xlCol = "31.12.05"
'Занесение в Excel информации задач
For Each T In ActiveProject.Tasks
If Not T Is Nothing Then
Set xlRow = xlRow.Offset(1, 0)
Set xlCol = xlRow.Offset(0, T.OutlineLevel - 1)
xlCol = T.Name
'Занесение суммарных затрат по каждой работе
Set xlCol = xlRow.Range("i1")
xlCol = T.Cost
'Полужирное выделение
'If T.Summery Then
'xlCol.Font.Blod = True
'End If
Tcount = Tcount + 1
End If
Next T
OutlineShowTasks OutlineNumber:=pjTaskOutlineShowLevel2
SelectTaskField Row:=0, Column:="Название"
ViewApply Name:="Использование задач"
PaneNext
SelectTimescaleRange Row:=0, StartTime:="31.01.06", Width:=12, Height:=1000
'MsgBox "gggg"
EditCopy
xlSheet.Cells(5, 10).Select
'Перевод курсора
xlApp.Cursor = xlDefault
'Сделать видимым Excel
xlApp.Visible = True
'Ативизация Excel
'AppActivate "Microsoft Excel"
ActiveWorkbook.Save
ActiveWorkbook.Saved = True
'
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing
End Sub
Он написан под Microsoft Project для переноса данных в Excel. Вопрос: после выполнения данного макроса при нажатии Ctrl+ALT+Del вижу процесс Microosft Excel - незавершенный процесс!!! Как же его завершить? |
