Pergunta : Como usar a função do PIVÔ

Olá! os peritos,

I am using uma função do PIVÔ mas observado que o jogo do resultado conterá anulam onde não há nenhum dados para esse pivô. Como posso eu o forçar para mostrar 0 em vez do ZERO? class= do

Resposta : Como usar a função do PIVÔ

E se você quer Excel, talvez isto:
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:

'Trajeto aos relatórios
strReportPath= " \ \ SERVER1 \ MYSHARE "

'Trajeto à lima de XLS
strXLS= " c:\report.xls "


Ajustar o objExcel = o CreateObject (“Excel.Application”)
objExcel.DisplayAlerts = falso
objExcel.Visible = retificam
Ajustar o objWorkbook = o objExcel.Workbooks.Add

Ajustar o fso=CreateObject (“Scripting.FileSystemObject”)

'o XLS existe?
Se fso.FileExists (strXLS) então
	ret=msgbox (a “lima existe:  ” & o strXLS & o vbCrLf & o vbCrLf & “Overwrite? ”, de vbYesNo+vbQuestion, “de XLS fabricante do relatório”)
	Se ret=vbNo então 
		wscript.quit
	Mais
		fso.DeleteFile (strXLS)
		Se fso.FileExists (strXLS) então
			o msgbox “não podia overwrite a lima:  ” & strXLS, vbExclamation, “fabricante do relatório de XLS”
			wscript.quit
		Terminar se
	Terminar se
Terminar se

'Dar laços com os relatórios de TXT
Para cada um oFile em fso.GetFolder (strReportPath). Limas
	Se lcase (fso.GetExtensionName (oFile))= " txt " então
		MakeWorksheet oFile
	Terminar se
Em seguida

Para cada folha em objWorkbook.Worksheets
	Se saido (folha. O nome, 5) = " folha " cobre então. Supressão
Em seguida

objExcel.DisplayAlerts = retificam
'strXLS de objExcel.save
strXLS de objWorkbook.SaveAs

MakeWorksheet secundário (oFile)
	strWorksheet = fso.GetBaseName (oFile)
	Ajustar o objWorksheetNew = o objWorkbook.Worksheets.Add
	objWorksheetNew.Name=strWorksheet
	
	Ajustar oFile=fso.OpenTextFile (oFile)
	text=oFile.ReadAll
	oFile.close
	
	arrText = separação (texto, vbCrLf)
	
	'Escrever encabeçamentos
	intRow=1
	objWorksheetNew.Cells (intRow, 1). Value= do " título software "
	objWorksheetNew.Cells (intRow, 2). Value= do " comentário software "
	
	Para cada linha no arrText
		Se instr (linha, vbTab) então
			arrLine=split (linha, vbTab)
			intRow=intRow+1
			objWorksheetNew.Cells (intRow, 1). Value=arrLine (0)
			objWorksheetNew.Cells (intRow, 2). Value=arrLine (1)
		Terminar se
	Em seguida
	
	objWorkSheetNew.Cells.EntireColumn.AutoFit
	Ajustar o objWorksheetNew = nada
	Ajustar oFile=Nothing
Terminar o submarino
Outras soluções  
 
programming4us programming4us