bonoddr

Seguinte, eu estou pesquisando pra saber como proceder. Quero fazer no Dreamweaver, logicamente usando linguagem ASP, que determinados valores de campos de uma planilha excel (que está localizada no computador do usuário) sejam inseridos em uma tabela de access localizada em um servidor em outros determinados campos. Alguém por favor pode ao menos me dar um ponto de partida? Não tenho a mínima idéia de como começar.. Valeu! bonoddr

Seguinte, eu estou pesquisando pra saber como proceder. Quero fazer em ASP que determinados valores de campos de uma planilha excel (que está localizada no computador do usuário) sejam inseridos em uma tabela de access localizada em um servidor em outros determinados campos. Alguém por favor pode ao menos me dar um ponto de partida? Não tenho a mínima idéia de como começar..

Hummm entendi, agora ficou bem mais claro... Valeu mesmo

Se alguém puder me ajudar eu ficaria muito agradecido. Estou tentando inserir uma tabela dinâmica em uma página ASP - pivot table através do FrontPage(o código gerado é XML), mas quando carrego, recebo a seguinte mensagem de erro: A lista da tabela dinâmica "teste" não pôde conectar à fonte de dados "teste". 0X80004005: As configurações de segurança deste computador proíbem o acesso a uma fonte de dados em outro domínio. Eu consigo usar a tabela dinâmica quando a mesma se encontra no meu computador, mas não quando está em um servidor. Eu inseri o objeto pivot table pelo frontpage. O DNS que estou usando localmente é o mesmo do servidor. eis o código (em XML): <object classid="clsid:0002E520-0000-0000-C000-000000000046" id="PivotTable1" width="518" height="384"> <param name="XMLData" value="&lt;xml xmlns:x=&quot;urn:schemas-microsoft-com:office:excel&quot;&gt; &lt;x:PivotTable&gt; &lt;x:OWCVersion&gt;9.0.0.2710&lt;/x:OWCVersion&gt; &lt;x:DisplayFieldList/&gt; &lt;x:FieldListTop&gt;330&lt;/x:FieldListTop&gt; &lt;x:FieldListLeft&gt;935&lt;/x:FieldListLeft&gt; &lt;x:FieldListBottom&gt;699&lt;/x:FieldListBottom&gt; &lt;x:FieldListRight&gt;1122&lt;/x:FieldListRight&gt; &lt;x:CacheDetails/&gt; &lt;x:ConnectionString&gt;Provider=\\intranet\teste.mdb;Persist Security Info=False&lt;/x:ConnectionString&gt; &lt;x:DataMember&gt;Tabela_Principal&lt;/x:DataMember&gt; &lt;x:Name&gt;00_Quiz_Principal&lt;/x:Name&gt; &lt;x:PivotField&gt; &lt;x:Name&gt;REGISTRO&lt;/x:Name&gt; &lt;x:DataType&gt;Integer&lt;/x:DataType&gt; &lt;x:PLDataOrientation/&gt; &lt;/x:PivotField&gt; &lt;x:PivotField&gt; &lt;x:Name&gt;Processo&lt;/x:Name&gt; &lt;x:DataType&gt;Number&lt;/x:DataType&gt; &lt;x:PLDataOrientation/&gt; &lt;x:PLPosition&gt;2&lt;/x:PLPosition&gt; &lt;/x:PivotField&gt; &lt;x:PivotField&gt; &lt;x:Name&gt;Nome&lt;/x:Name&gt; &lt;x:PLDataOrientation/&gt; &lt;x:PLPosition&gt;3&lt;/x:PLPosition&gt; &lt;/x:PivotField&gt; &lt;x:PivotField&gt; &lt;x:Name&gt;Q1&lt;/x:Name&gt; &lt;x:DataType&gt;Integer&lt;/x:DataType&gt; &lt;x:PLDataOrientation/&gt; &lt;x:PLPosition&gt;4&lt;/x:PLPosition&gt; &lt;/x:PivotField&gt; &lt;x:PivotField&gt; &lt;x:Name&gt;Q2&lt;/x:Name&gt; &lt;x:DataType&gt;Integer&lt;/x:DataType&gt; &lt;x:PLDataOrientation/&gt; &lt;x:PLPosition&gt;5&lt;/x:PLPosition&gt; &lt;/x:PivotField&gt; &lt;x:PivotField&gt; &lt;x:Name&gt;Q3&lt;/x:Name&gt; &lt;x:DataType&gt;Integer&lt;/x:DataType&gt; &lt;x:PLDataOrientation/&gt; &lt;x:PLPosition&gt;6&lt;/x:PLPosition&gt; &lt;/x:PivotField&gt; &lt;x:PivotField&gt; &lt;x:Name&gt;Q4&lt;/x:Name&gt; &lt;x:DataType&gt;Integer&lt;/x:DataType&gt; &lt;x:PLDataOrientation/&gt; &lt;x:PLPosition&gt;7&lt;/x:PLPosition&gt; &lt;/x:PivotField&gt; &lt;x:PivotField&gt; &lt;x:Name&gt;SUGESTAO&lt;/x:Name&gt; &lt;x:PLDataOrientation/&gt; &lt;x:PLPosition&gt;8&lt;/x:PLPosition&gt; &lt;/x:PivotField&gt; &lt;x:PivotField&gt; &lt;x:Name&gt;Data&lt;/x:Name&gt; &lt;x:Orientation&gt;Column&lt;/x:Orientation&gt; &lt;x:Position&gt;-1&lt;/x:Position&gt; &lt;x:DataField/&gt; &lt;/x:PivotField&gt; &lt;x:PivotView&gt; &lt;x:IsNotFiltered/&gt; &lt;x:CellsExpandedSeqNum&gt;0&lt;/x:CellsExpandedSeqNum&gt; &lt;x:Label&gt; &lt;x:Caption&gt;Tabela_Principal&lt;/x:Caption&gt; &lt;x:NotVisible/&gt; &lt;/x:Label&gt; &lt;/x:PivotView&gt; &lt;/x:PivotTable&gt; &lt;/xml&gt;"> </object> Sinistro né? Se alguém vê isso como familiar, poste sua opinião. Falow! bonoddr.

eis o código (em XML): <object classid="clsid:0002E520-0000-0000-C000-000000000046" id="PivotTable1" width="518" height="384"> <param name="XMLData" value="&lt;xml xmlns:x=&quot;urn:schemas-microsoft-com:office:excel&quot;&gt; &lt;x:PivotTable&gt; &lt;x:OWCVersion&gt;9.0.0.2710&lt;/x:OWCVersion&gt; &lt;x:DisplayFieldList/&gt; &lt;x:FieldListTop&gt;330&lt;/x:FieldListTop&gt; &lt;x:FieldListLeft&gt;935&lt;/x:FieldListLeft&gt; &lt;x:FieldListBottom&gt;699&lt;/x:FieldListBottom&gt; &lt;x:FieldListRight&gt;1122&lt;/x:FieldListRight&gt; &lt;x:CacheDetails/&gt; &lt;x:ConnectionString&gt;Provider=\\intranet\teste.mdb;Persist Security Info=False&lt;/x:ConnectionString&gt; &lt;x:DataMember&gt;Tabela_Principal&lt;/x:DataMember&gt; &lt;x:Name&gt;00_Quiz_Principal&lt;/x:Name&gt; &lt;x:PivotField&gt; &lt;x:Name&gt;REGISTRO&lt;/x:Name&gt; &lt;x:DataType&gt;Integer&lt;/x:DataType&gt; &lt;x:PLDataOrientation/&gt; &lt;/x:PivotField&gt; &lt;x:PivotField&gt; &lt;x:Name&gt;Processo&lt;/x:Name&gt; &lt;x:DataType&gt;Number&lt;/x:DataType&gt; &lt;x:PLDataOrientation/&gt; &lt;x:PLPosition&gt;2&lt;/x:PLPosition&gt; &lt;/x:PivotField&gt; &lt;x:PivotField&gt; &lt;x:Name&gt;Nome&lt;/x:Name&gt; &lt;x:PLDataOrientation/&gt; &lt;x:PLPosition&gt;3&lt;/x:PLPosition&gt; &lt;/x:PivotField&gt; &lt;x:PivotField&gt; &lt;x:Name&gt;Q1&lt;/x:Name&gt; &lt;x:DataType&gt;Integer&lt;/x:DataType&gt; &lt;x:PLDataOrientation/&gt; &lt;x:PLPosition&gt;4&lt;/x:PLPosition&gt; &lt;/x:PivotField&gt; &lt;x:PivotField&gt; &lt;x:Name&gt;Q2&lt;/x:Name&gt; &lt;x:DataType&gt;Integer&lt;/x:DataType&gt; &lt;x:PLDataOrientation/&gt; &lt;x:PLPosition&gt;5&lt;/x:PLPosition&gt; &lt;/x:PivotField&gt; &lt;x:PivotField&gt; &lt;x:Name&gt;Q3&lt;/x:Name&gt; &lt;x:DataType&gt;Integer&lt;/x:DataType&gt; &lt;x:PLDataOrientation/&gt; &lt;x:PLPosition&gt;6&lt;/x:PLPosition&gt; &lt;/x:PivotField&gt; &lt;x:PivotField&gt; &lt;x:Name&gt;Q4&lt;/x:Name&gt; &lt;x:DataType&gt;Integer&lt;/x:DataType&gt; &lt;x:PLDataOrientation/&gt; &lt;x:PLPosition&gt;7&lt;/x:PLPosition&gt; &lt;/x:PivotField&gt; &lt;x:PivotField&gt; &lt;x:Name&gt;SUGESTAO&lt;/x:Name&gt; &lt;x:PLDataOrientation/&gt; &lt;x:PLPosition&gt;8&lt;/x:PLPosition&gt; &lt;/x:PivotField&gt; &lt;x:PivotField&gt; &lt;x:Name&gt;Data&lt;/x:Name&gt; &lt;x:Orientation&gt;Column&lt;/x:Orientation&gt; &lt;x:Position&gt;-1&lt;/x:Position&gt; &lt;x:DataField/&gt; &lt;/x:PivotField&gt; &lt;x:PivotView&gt; &lt;x:IsNotFiltered/&gt; &lt;x:CellsExpandedSeqNum&gt;0&lt;/x:CellsExpandedSeqNum&gt; &lt;x:Label&gt; &lt;x:Caption&gt;Tabela_Principal&lt;/x:Caption&gt; &lt;x:NotVisible/&gt; &lt;/x:Label&gt; &lt;/x:PivotView&gt; &lt;/x:PivotTable&gt; &lt;/xml&gt;"> </object> Sinistro né? Se alguém vê isso como familiar, poste sua opinião. Falow! bonoddr.

Bom, o DNS que estou usando localmente é o mesmo do servidor. Porém, creio que no código esteja apontando pro DNS local. Vou dar uma olhada no código, mas se alguém puder me ajudar, ficarei muito grato bonoddr

Alguém sabe? Revivi o topic porque tava indo lá pro final da página, fatalmente ninguém iria ver

Se alguém puder me ajudar eu ficaria muito agradecido. Estou tentando inserir uma tabela dinâmica em uma página ASP, mas quando carrego, recebo a seguinte mensagem de erro: A lista da tabela dinâmica "teste" não pôde conectar à fonte de dados "teste". 0X80004005: As configurações de segurança deste computador proíbem o acesso a uma fonte de dados em outro domínio. Eu consigo usar a tabela dinâmica quando a mesma se encontra no meu computador, mas não quando está em um servidor. Eu inseri o objeto pivot table pelo frontpage. Agradeço qualquer ajuda. No aguardo, bonoddr

Mais uma pergunta cara... Uma Sub pode chamar outra? Se sim, qual a diferença de chamar sub´s ou functions?

Boa idéia cara, mas eu não conheço nenhum. De repente o Dev Cpp faz isso, se não me engano.

John Doe, deve ser pela mesma facilidade do Java, pois nesta você faz uso indireto de ponteiros, o uso deles está implícito.

Bom pessoal, para quem não descobriu, a funcionalidade do programa anterior é para substituir todos os caracteres minúsculos por maiúsculos. A diferença na tabela ASC II é constante para quaisquer caracteres (ex.: c para C, f para F, j para J, ...) Não tenho tido muito tempo para postar, mas quando puder vou atualizar. Até mais! OBS.: postar no sentido de colocar um material consistente, pois tenho frequentado um pouco o fórum de VB/VB.NET também.

Sim, o meu programa eu coloquei outros 3 módulos. Posso usar functions nestes módulos? Exatamente Graymalkin, estou tentando fazer: Sub T1() func 1 func 2 func 3 func 4 End Sub Mas o engraçado é que as minhas 2 primeiras executam na moral, mas as duas últimas não! Que estranho, sabe porque isso acontece? Se puder, também gostaria de saber como usar esses func´s em módulos (modules). Valeu! bonoddr *editado* já descobri o problema, na minha 2ª função tinha um End, então o programa inteiro parava. Substituí por GoTo e apontei para o final desta função, funcionou na moral! Mas ainda tenho dúvidas quanto aos módulos hehehehee

Você quer dizer alocação de memória dinâmica? Já ouviu falar do operador NEW? Com o DELETE você desaloca (acho que você já deve saber disso) Bom, a propriedade sizeof() eu não pesquisei, mas dá uma olhada nela sim que pode te ajudar.

É isso aí ppgsalomao, é nóis em VBA!

Cara, pegue os links na parte de editores / compiladores. Pra começar, recomendo o editor Crimson e o compilador free da borland. O editor vem com um arquivo readme.txt que explica como organizar seus arquivos de configuração. Tenho quase certeza que é esse tipo de problema que você está tendo no devc++, já passei muito por isso também. bonoddr

Mais uma coisinha: eu dividi o meu programa em um arquivo principal e 3 módulos. Como especifico no meu arquivo principal a execução de cada um dos módulos? Queria saber também se eu posso especificar estes módulos como functions, ou seja, que retornem algum valor que tenha sido especificado por mim. Então, pego este valor e uso no meu sub principal.

Muitíssimo obrigado cara! Eu estou um pouco acostumado a dividir o código em sub-funções em C++ daí me interessou como procedo na mesma linha de estruturação de código pelo VB. Valeu mesmo, me ajudou bastante!!! bonoddr

Você não tá atrapalhando não cara! Sinta-se à vontade aqui no fórum e seja bem-vindo! Tem um tópico por aqui que tem uns links de apostilas que podem te ajudar: LINK Você pode encontrar compiladores de ambiente gráfico e, para visualizar melhor os compiladores de ambiente ms-dos, você pode usar algum editor. Tem um link em destaque neste fórum de C/C++ que fala exatamente disso.

Acredito que este site possa ser bem útil para o que você procura: Métodos de Ordenação Porém, os algoritmos estão em C++. Aproveitando a oportunidade, tem um tópico que eu criei lá no fórum de C/C++ que fala especificamente sobre os métodos de ordenação. Outro link interessante: neste site, você pode ver como os algoritmos funcionam passo a passo, bem interessante. Visualização Espero ter ajudado, bonoddr

Aproveitando a oportunidade, queria saber como coloco essas macros em qualquer planilha que eu abrir do excel. Ao invés de ter sempre que criar os módulos e copiar/colar os códigos. Valeu! bonoddr Ah lenbrei também, queria fazer como faço em C++, onde cada função retorna um valor específico. Como faço isso em VB, com os Functions ou com os Sub´s? Se puder dar um exemplo...

Cara valeu MESMO, não sabe o quanto me ajudou Mas eu não consegui aproveitar o código para deletar as linhas nulas, ele acaba deletando o que não deve heheheee bonoddr

hummm valeu mesmo.. Então como faço para Rows.Count retornar o número de linhas que realmente estão preenchidas na planilha? por exemplo, tenho uma planilha de 8000 linhas, então quero que Rows.Count retorne o valor 8000 ao invés do número total de linhas de uma planilha (inclusive linhas nulas), sacou? Resumindo: quero poder usar no meu código que exibi: while (conta < Rows.Count) ao invés de: while (conta < 8000) Dessa maneira, eu posso usar o macro em qualquer planilha, e não em uma específica que contém 8000 linhas. Valeu!

Cara muito obrigado! Este seu código me ajudou muito.. Mas tem um porém, no exemplo abaixo, quando coloco pra exibir o conteúdo de Rows.Count, ele retorna o número = 65536. porque isso??? E, ao invés de usar o número fixo (conta < 4), gostaria de usar algo assim: (conta < Rows.Count), sacou? Sub teste() Dim conta As Integer conta = 1 While (conta < 4) Range("A" & conta).Select Range(Selection, Selection.End(xlToRight)).Select valores = Selection.Value retorno = True For Each elemento In valores If elemento <> vbNullString Then retorno = False 'valores = Selection.Delete Exit For End If Next elemento MsgBox retorno MsgBox Rows.Count conta = conta + 1 Wend End Sub Ah, mais uma coisa: no código tá comentado, eu gostaria de remover uma linha inteira quando ela for nula. É dessa maneira que procedo? Agradeço pela ajuda! Tudo o que ajudou até agora foi bastante!

hummm... Que tal falarmos agora sobre o QuickSort?