Xclick

Saudações,

Estou pesquisando um exemplo de código para que eu consiga gerar um arquivo excel e neste arquivo montar 3 planilhas com dados vindo de uma tabela. Este arquivo é para ser usado na exportação de produtos para o Correios Net Shopping (estou citando caso haja alguém que já tenha feito ou esteja a procura da solução para o mesmo problema).

Já tentei no código criar por exemplo 3 tabelas mas não deu certo, ele coloca uma abaixo da outra. Já tentei criar 3 bodys mas ele ignora os 2 ultimos. Não encontrei maiores referências sobre isso na internet.

Obrigado


Bom, mais uma vez o meu Senso Autodidata me ajudou!

Vou postar aqui um código de exemplo que responde a minha pergunta, pode ser que seja útil para alguém um dia. A princípio o que eu entendi é que para uma manipulçao mais detalhada do arquivo nenhum desses exemplos que fornecem por aí serve, infelizmente... O jeito é trablhar diretamente com o objeto Excel.Aplication que fornece um tratamento completo do arquivo excel. Aí vai:

[codebox] Set ObjExcel = Server.CreateObject("Excel.Application")

ObjExcel.Visible = False
ObjExcel.DisplayAlerts = False
ObjExcel.UserControl = False
'Você pode usar um FSO para criar um arquivo .xls ou já ter este. O caminho deve ser o endereço físico completo! c:/blablabla
caminho_planilha= ""
'Abre o arquivo Excel
Set Planilha = ObjExcel.Workbooks.Open(caminho_planilha)
' Seleciona a Folha da Planilha que vamos trabalhar, se omitido, por padrão é sempre a primeira.
' Lembrando que o Excel não trabalha com índice 0 começa do 1
Set Folha = Planilha.Sheets.item(1)
' Para adicionar uma nova planilha ao projeto, usamos o metodo add([Depois de tipo number]) e abaixo vou renomear a planilha
Planilha.Sheets.add(1)
Planilha.Sheets.item(2).name = "Nova Folha"
' Agora vou mudar de Folha para trabalhar em outra Folha
Set Folha = Planilha.Sheets.item(2)
'Agora um exemplo a grosso modo de como gravar um dado
Folha.cells(1,1).value = "Teste" '(linha, coluna) sempre number!
'E para ler a celula
Response.write Folha.cells(1,1)
'Importante Salvar o Projeto senão ñ haverá alteração no arquivo, então
Planilha.Save
'Muito importante o uso do close pois senão ele deixa um processo EXCEL.EXE aberto no servidor
Planilha.close
Set Planilha = nothing
Set Folha = Nothing
Set ObjExcel = Nothing
[/codebox]

Espero que seja útil a alguém!

Prezados,

Quanto tempo não posto por aqui, espero que estejam todos bem!

Estamos desenvolvendo um um sistema de banner para uma loja virtual e o cliente colocou sua vontade da seguinte maneira:

O site possui aumento elástico de acordo com a resolução do cliente, neste site há uma coluna lateral direita de 220 pixels fixos e outra coluna de 180 pq na coluna da esquerda, então como podem imaginar o centro aumenta de acordo com a resolução da tela do cliente.

Pois bem, fazendo as contas, se um cliente acessa loja com uma resolução de 800px de largura, temos um espaço útil de 378px no centro (levando em consideração também de foi descontado 22px também pela barra de rolagem, então de 800px temos 778 de área útil, menos 220 da direita em 180 da esquerda cheguei neste valor). A vontade do cliente é que a cada possibilidade de aumento de resolução, um novo banner seja mostrado, veja o exemplo:

Resolução do cliente 800 px, área útil 378 (fator de desconto de px sempre igual a 422px) - Banner Pricinpal de 378px
Resoluçao do cliente 1024 px área útil de 378 + 224px ou seja, um segundo banner com outra oferta de 224px e assim por diante...

Minha maior dúvida seria qual o padrão de aumento de resolução? Obviamente que haverá uma maior diversidade de variações mais sempre pensando na maioria e tomando como base, acima dos 1024 monitores widescreen, cheguei a esses valores: 800 - 1024 - 1280 - 1360 - 1680. Será que existe alguma resolução mais utilizada que me esqueci?

Saudações a todos!