Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

adriano.internet

Como exportar XLS para CSV em quantidade determinada?

Por , em Geral

Recommended Posts

adriano.internet    0

adriano.internet
Postado

Olá pessoal,

 

tenho alguns registros de estoque que foram exportados para o EXCEL (XLS), mais pelo sistema aqui não posso definir a quantidade de registros por arquivo.

 

tenho um arquivo do excel com 50.000 registros (linhas), gostaria de saber se é possível exportá-lo para arquivos de 500 registros/linhas pelo excel ou outro programa, são vários arquivos por isto se for um trabalho manual levará dias.

 

já dei um search no google mais nao achei nada relacionado.

 

 

obrigado pela ajuda.

 

 

tks

Compartilhar este post

Link para o post
Compartilhar em outros sites

adriano.internet    0

adriano.internet
Postado

depois de algum tempo de estudo cheguei a conclusão que iria ter que ser na unha..

 

a macro abaixo e exporto 100.000 registros para 100 arquivos com 1000 registros cada.

 

 

Sub Macro3()
'
' Macro3 Macro
'

'
	Range("A1:A1000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Range("A1").Select
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="001.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
	Range("A1001:A2000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="002.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
	Range("A2001:A3000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="003.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A3001:A4000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="004.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A4001:A5000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="005.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A5001:A6000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="006.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A6001:A7000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="007.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A7001:A8000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="008.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A8001:A9000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="009.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A9001:A10000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="010.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A10001:A11000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="011.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A11001:A12000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="012.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A12001:A13000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="013.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A13001:A14000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="014.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A14001:A15000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="015.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A15001:A16000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="016.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A16001:A17000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="017.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A17001:A18000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="018.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A18001:A19000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="019.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A19001:A20000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="020.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A20001:A21000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="021.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A21001:A22000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="022.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A22001:A23000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="023.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A23001:A24000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="024.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A24001:A25000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="025.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
		Range("A25001:A26000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="026.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
			Range("A26001:A27000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="027.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
			Range("A27001:A28000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="028.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
			Range("A28001:A29000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="029.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
			Range("A29001:A30000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="030.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
			Range("A30001:A31000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="031.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
				Range("A31001:A32000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="032.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
				Range("A32001:A33000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="033.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
				Range("A33001:A34000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="034.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
				Range("A34001:A35000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="035.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
				Range("A35001:A36000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="036.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
				Range("A36001:A37000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="037.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
				Range("A37001:A38000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="038.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
				Range("A38001:A39000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="039.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
				Range("A39001:A40000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="040.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
				Range("A40001:A41000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="041.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
				Range("A41001:A42000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="042.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
					Range("A42001:A43000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="043.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
					Range("A43001:A43000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="044.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
					Range("A43001:A45000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="045.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
					Range("A45001:A46000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="046.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
					Range("A46001:A47000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="047.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
					Range("A47001:A48000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="048.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
					Range("A48001:A49000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="049.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
					Range("A49001:A50000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="050.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
					Range("A50001:A51000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="051.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
						Range("A51001:A52000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="052.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
						Range("A52001:A53000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="053.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
						Range("A53001:A54000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="054.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
						Range("A54001:A55000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="055.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
						Range("A55001:A56000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="056.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
						Range("A56001:A57000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="057.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
						Range("A57001:A58000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="058.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
						Range("A58001:A59000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="059.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
	
							Range("A59001:A60000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="060.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
							Range("A60001:A61000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="061.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
							Range("A61001:A62000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="062.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
							Range("A62001:A63000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="063.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
							Range("A63001:A64000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="064.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
							Range("A64001:A65000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="065.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
							Range("A65001:A66000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="066.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
							Range("A66001:A67000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="067.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
							Range("A67001:A68000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="068.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
							Range("A68001:A69000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="069.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
								Range("A69001:A70000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="070.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
									Range("A70001:A71000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="071.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
									Range("A71001:A72000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="072.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
									Range("A72001:A73000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="073.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
									Range("A73001:A74000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="074.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
									Range("A74001:A75000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="075.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
									Range("A75001:A76000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="076.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
									Range("A76001:A77000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="077.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
									Range("A77001:A78000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="078.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
									Range("A78001:A79000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="079.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
										Range("A79001:A80000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="080.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
										Range("A80001:A81000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="081.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
										Range("A81001:A82000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="082.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
										Range("A82001:A83000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="083.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
										Range("A83001:A84000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="084.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
										Range("A84001:A85000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="085.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
										Range("A85001:A86000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="086.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
										Range("A86001:A87000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="087.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
										Range("A87001:A88000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="088.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
										Range("A88001:A89000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="089.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
										Range("A89001:A90000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="090.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
											Range("A90001:A91000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="091.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
											Range("A91001:A92000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="092.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
											Range("A92001:A93000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="093.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
											Range("A93001:A94000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="094.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
											Range("A94001:A95000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="095.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
											Range("A95001:A96000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="096.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
											Range("A96001:A97000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="097.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
											Range("A97001:A98000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="098.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
											Range("A98001:A99000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="099.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
												Range("A99001:A100000").Select
	Selection.Copy
	Workbooks.Add
	ActiveSheet.Paste
	Application.CutCopyMode = False
	ActiveWorkbook.SaveAs Filename:="100.csv", _
		FileFormat:=xlCSVMSDOS, CreateBackup:=False
	ActiveWorkbook.Save
	ActiveWindow.Close
	
End Sub

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos Geral
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito