Вопрос : Как использовать функцию ОСИ

Hi специалисты,

I am using функция ОСИ но замеченный что комплект результата будет содержать аннулируют где не будет данных для той оси. Как могу я принудить его для того чтобы показать 0 вместо NULL? class=

Ответ : Как использовать функцию ОСИ

И если вы хотите Эксел, то, возможно это:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:

'Курс к рапортам
strReportPath= " \ \ SERVER1 \ MYSHARE "

'Курс к архиву XLS
strXLS= " c:\report.xls "


Установите objExcel = CreateObject («Excel.Application»)
objExcel.DisplayAlerts = ложно
objExcel.Visible = True
Установите objWorkbook = objExcel.Workbooks.Add

Установите fso=CreateObject («Scripting.FileSystemObject»)

'XLS существует?
Если fso.FileExists (strXLS) после этого
	ret=msgbox («архив существует:  » & strXLS & vbCrLf & vbCrLf & «переписывают? », vbYesNo+vbQuestion, «XLS создатель рапорта»)
	Если ret=vbNo после этого 
		wscript.quit
	Еще
		fso.DeleteFile (strXLS)
		Если fso.FileExists (strXLS) после этого
			msgbox «не smogло переписывать архив:  » & strXLS, vbExclamation, «создатель отчете о XLS»
			wscript.quit
		Закончитесь если
	Закончитесь если
Закончитесь если

'Закрепите петлеть через отчеты о TXT
Для каждого oFile в fso.GetFolder (strReportPath). Архивы
	Если lcase, то (fso.GetExtensionName (oFile))= " txt " после этого
		MakeWorksheet oFile
	Закончитесь если
Затем

Для каждого листа в objWorkbook.Worksheets
	Если о, то (лист. Имя, 5)= " лист " после этого покрывает. Delete
Затем

objExcel.DisplayAlerts = true
'strXLS objExcel.save
strXLS objWorkbook.SaveAs

Sub MakeWorksheet (oFile)
	strWorksheet = fso.GetBaseName (oFile)
	Установите objWorksheetNew = objWorkbook.Worksheets.Add
	objWorksheetNew.Name=strWorksheet
	
	Установите oFile=fso.OpenTextFile (oFile)
	text=oFile.ReadAll
	oFile.close
	
	arrText = разделило (текст, vbCrLf)
	
	'Напишите коллекторы
	intRow=1
	objWorksheetNew.Cells (intRow, 1).Value= " название средства программирования "
	objWorksheetNew.Cells (intRow, 2).Value= " комментарий средства программирования "
	
	Для каждой линии в arrText
		Если instr (линия, vbTab) после этого
			arrLine=split (линия, vbTab)
			intRow=intRow+1
			objWorksheetNew.Cells (intRow, 1).Value=arrLine (0)
			objWorksheetNew.Cells (intRow, 2).Value=arrLine (1)
		Закончитесь если
	Затем
	
	objWorkSheetNew.Cells.EntireColumn.AutoFit
	Установите objWorksheetNew = ничего
	Установите oFile=Nothing
Закончите подводную лодку
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us