Renato Knupp
-
Total de itens
57 -
Registro em
-
Última visita
Tudo que Renato Knupp postou
-
Pessoal, consegui dessa forma, caso ajude alguém. Aqui eu salvo a imagem no computador Dim xShape As Shape Dim oSheet As Worksheet Dim oTemp As ChartObject Dim oChartArea As Chart Dim iFile as String Set oSheet = ActiveSheet Set xShape = oSheet.Shapes.Item("imagem1") iFile = “C:\temp\QR_Code.jpeg” xShape.CopyPicture Set oTemp = oSheet.ChartObjects.Add(0, 0, xShape.Width, xShape.Height) Set oChartArea = oTemp.Chart oTemp.Activate With oChartArea .ChartArea.Select .Paste .Export (iFile) End With oTemp.Delete Depois no .HTMLBody eu chamo o endereço pelo "<img src = " & iFile & ">" Não sei se é a forma mais simples, mas funcionou.
-
Então, mas nesse caso eu tenho uma imagem já salva no computador (tentei adaptá-lo), no meu caso ela não está salva, a imagem está dentro da minha planilha. Na minha planilha eu inseri a imagem dessa forma: URL = "https://chart.googleapis.com/chart?chs=130x130&cht=qr&chl=" & Worksheets("QR").Range("q1").Value Worksheets("QR").Pictures.Insert(URL).Select With Selection.ShapeRange .Name = "QR_Code" End With agora eu preciso pegar a imagem "QR_Code" e coloca-la no corpo do email. Tentei salva-la no computador ("C:\temp\teste.jpg"), com isso sua sugestão funcionaria mas, não deu certo. Tentei copia-la e enviar direto no .HTMLBody mas também não funciona. tentei coloca-la em uma variável, mas também sem sucesso. tá faltando algum detalhe que estou deixando passar batido.
-
Pessoal, criei uma rotinha em uma planilha para enviar um email pelo outlook, porém preciso que no corpo do email apareça uma imagem que está na minha planilha. Dentro da planilha eu tenho uma imagem onde nomeei como "QR_Code", e quando inserir o corpo do email no .HTMLBody eu colocarei essa imagem. .HTMLBody = "<html><body>Senhores,<br><br>Favor utilizar o código abaixo para acesso. <br>" & imagem & " <br><br> Obrigado! </body></html>" já tentei de diversas formas, com vários exemplo pesquisados, mas não deu certo. Alguém consegue me ajudar pfvr?
-
Boa tarde pessoal, dei uma pesquisada em alguma formula que convertesse um texto em uma formula. O INDIRETO apresenta erro. Basicamente o que preciso é em A1 eu tenho o texto "6/2", no formato texto, e em A2 eu coloque uma fórmula fazendo referencia a A1 onde o resultado seja "3".
-
Obrigado amigo, funcionou. Foi uma forma bem mais simples de resolver o problema.
-
Bom dia Pessoal, Preciso carregar uma determinada imagem em uma ferramenta Image de um form. o problema é que essa imagem está dentro da minha planilha. Já tentei de várias formas, desde codigos simples até codigos mais complexos. alguém consegue me ajudar Dentre minhas tentativas: Image1.Picture = Plan1.Shapes.Range(Array("Imagem 1")).select Plan1.Shapes("Imagem 1").CopyPicture xlScreen, xlBitmap Paste the picture from the clipboard into our image control Image1.Picture = Plan1.Shapes(xlBitmap).Paste Tentei varias outras coisas, se alguém souber de alguma forma de fazer vai me ajudar muito.
-
Pessoal, no vb tem um camando para que o form não fique piscando enquanto algo está sendo executado, é esse: Application.ScreenUpdating = False alguém sabe se no c# tem algo parecido?
-
cara, não sei se é a forma correta mas funcionou assim: foreach (ListViewItem item in listView1.SelectedItems) { textBox1.Text = item.SubItems[0].Text; textBox2.Text= item.SubItems[1].Text; } de qlqr forma funcionou, vlw mesmo pela sua atenção!
-
cara desculpe minha ignorancia, mas não tá rolando!
-
Xistyle, nada feito. O sitema não reconhece o comando FormEdicao quando instancia o frm na linha abaixo FormEdicao frm = New FormEdicao();
-
Pessoal, Estou trabalhando com ListView em C# e está complicado, já trabalhei com esse componente em outras linguagens e sei que chatinho. Seguinte minha intenção é carregar de um banco de dados determinadas informações, ok isso já está funcionando, depois disso quero dar duplo click em uma linha e carregar essas informações em um form para editá-las, ai é que está o problema. Passei o dia ontem na net e nada, não consigo carregar em uma textbox o item selecionado, sempre dá erro. se alguém tiver alguma função em C# que funcione e puder postar serei muito grato, se tiverem um tutorial sobre o componente tb , já olhei boa parte do que esta na net e não ajudou muito. Desde já obrigado pela atenção.
-
Xistyle, muito obrigado pela sua ajuda, quebrei um pouco a cabeça e consgui com a linha de codigo abaixo: SqlConnection conn = new SqlConnection("Server=localhost;Database=siged;Trusted_Connection=True"); Vlw
-
Xistyle ainda nada, la em cima eu adicionei as linhas: using System.Data; using System.Data.SqlClient; mas dá erro o erro: The using directive for 'System.Data' appeared previously in this namespace tambem continua aparecendo o erro na linha .open() Erro de rede ou específico à instância ao estabelecer conexão com o SQL Server. O servidor não foi encontrado ou não estava acessível. Verifique se o nome da instância está correto e se o SQL Server está configurado para permitir conexões remotas. (provider: Interfaces de Rede SQL, error: 26 - Erro ao Localizar Servidor/Instância Especificada) seguem dados de conexão com o banco quando abro o sql server Server type: Database Engine Server name: KNUPP Authentication: Windows Authentication User name: knupp\adm Password: <vazio> database: siged Segue a rotina que estou usando SqlConnection conn = new SqlConnection(@"Data Source =localhost\SQLExpress; AttachDbFilename =C:\Users\adm\Documents\Banco 2\siged.mdf; Database = siged; Trusted_Connection =Yes; "); SqlCommand comm = new SqlCommand(); comm.Connection = conn; comm.CommandText = "INSERT INTO navio (imo, nome, bandeira, dataConstrucao, dwt, tamanho, poroes, tipo) VALUES(@imo, @nome, @bandeira, @dataConstrucao, @dwt, @tamanho, @poroes, @tipo)"; comm.Parameters.AddWithValue("@imo", Convert.ToInt32(textBox1.Text)); comm.Parameters.AddWithValue("@nome", textBox2.Text); comm.Parameters.AddWithValue("@bandeira", comboBox1.Text); comm.Parameters.AddWithValue("@dataConstrucao", maskedTextBox1); comm.Parameters.AddWithValue("@dwt", Convert.ToInt32(textBox3.Text)); comm.Parameters.AddWithValue("@tamanho", Convert.ToDouble(textBox4.Text)); comm.Parameters.AddWithValue("@poroes", Convert.ToInt32(textBox5.Text)); comm.Parameters.AddWithValue("@tipo", comboBox2.Text); conn.Open(); comm.ExecuteNonQuery(); conn.Close(); faz diferença no endereço do banco eu ter um espaço: C:\Users\adm\Documents\Banco 2\siged.mdf vlw
-
Pessoal to com um problema, nunca usei essas duas ferramentas. to precisando fazer conexão com o banco pra salvar alguns dados vasculhei td na net e no forum e não to conseguindo fazer conexão, o codigo usado foi: SqlConnection conn = new SqlConnection(@"Data Source =.\SQLExpress; AttachDbFilename =C:\Users\adm\Documents\Banco\siged.mdf; Trusted_Connection =Yes; "); SqlCommand comm = new SqlCommand(); comm.Connection = conn; comm.CommandText = "INSERT INTO navio (imo, nome, bandeira, dataConstrucao, dwt, tamanho, poroes, tipo) VALUES(@imo, @nome, @bandeira, @dataConstrucao, @dwt, @tamanho, @poroes, @tipo)"; comm.Parameters.AddWithValue("@imo", Convert.ToInt32(textBox1.Text)); comm.Parameters.AddWithValue("@nome", textBox2.Text); comm.Parameters.AddWithValue("@bandeira", comboBox1.Text); comm.Parameters.AddWithValue("@dataConstrucao", maskedTextBox1); comm.Parameters.AddWithValue("@dwt", Convert.ToInt32(textBox3.Text)); comm.Parameters.AddWithValue("@tamanho", Convert.ToDouble(textBox4.Text)); comm.Parameters.AddWithValue("@poroes", Convert.ToInt32(textBox5.Text)); comm.Parameters.AddWithValue("@tipo", comboBox2.Text); conn.Open(); comm.ExecuteNonQuery(); conn.Close(); o erro ocorre no evento open: Erro de rede ou específico à instância ao estabelecer conexão com o SQL Server. O servidor não foi encontrado ou não estava acessível. Verifique se o nome da instância está correto e se o SQL Server está configurado para permitir conexões remotas. (provider: Interfaces de Rede SQL, error: 26 - Erro ao Localizar Servidor/Instância Especificada) se alguém tiver algum link ou tutorial pra me ajudar eu vou agradecer muito. vlw
-
AJUDA PARA PESQUISA ENTRE DATAS (PERIODO)VBA
pergunta respondeu ao cleitoncoelho de Renato Knupp em VBA
pesquise sobre a função DateDiff, ela retorna diferenças entre datas no formato que você quiser (ano, mês, dia, hora, minuto...). -
tente escrever seu codigo dentro do evento active do form e não no initialize.
-
Pessoal to com um problema, criei o codigo abaixo para serializar uma matriz File arquivo = new File("banco.xxx"); try{ FileOutputStream fluxoArquivo = new FileOutputStream(arquivo); ObjectOutputStream fluxoObjeto = new ObjectOutputStream(fluxoArquivo); fluxoObjeto.writeObject(matriz); fluxoObjeto.writeObject(arquivo); fluxoObjeto.close(); }catch(Exception e){ } até ai td bem o problema é, como faço pra pegar essa matriz de volta? tentei isso aqui String [][] matriz = new String [100][4]; try{ File arquivo = new File("teste.abc"); FileInputStream fluxoArquivo = new FileInputStream(arquivo); ObjectInputStream fluxoObjeto = new ObjectInputStream(fluxoArquivo); matriz[][] = fluxoObjeto.readObject(); } catch(Exception e){ } tá dando erro na linha em negrito, alguém sabe me ajudar?
-
Macro que copia e cola valores + integração outlook
pergunta respondeu ao rpd de Renato Knupp em VBA
cara achei essa função perdida aqui comigo, ve se funciona, ela resolveria tudo que você precisa Dim destino1, destino2, arquivo, gerente As String Dim OutApp As Object, oOutlookMessage As Object 'Dim OutMail As Outlook.MailItem Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(olMailItem) 'endereco = "C:\Documents and Settings\administrador\Desktop\" 'arquivo = "imagem.jpg" destino1 = "destino1@abc.com.br" destino2 = ""destino2@abc.com.br; destino3@abc.com.br" Application.DisplayAlerts = False Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(olMailItem) With OutMail .To = destino1 .CC = destino2 .BCC = "" .Subject = "Teste de envio" .Body = "teste" 'verificar se o arquivo está no local informado. '.Attachments.Add (endereco & arquivo) .Send End With Application.DisplayAlerts = True Set OutMail = Nothing Set OutApp = Nothing MsgBox "Emails enviados com Sucesso.", vbInformation, "Envio de Emails" -
Como verificar uma lista de arquivos numa determinada pasta pelo taman
pergunta respondeu ao Pecosak de Renato Knupp em VBA
A função abaixo lista todos os arquivos de uma pasta, é só adapta-la para sua necessidade: Public Function Varre(endereço) Set FSO = CreateObject("Scripting.FileSystemObject") Set aqui = FSO.GetFolder(endereço) For Each Arquivo In aqui.Files Aux1 = Len(Arquivo.Path) - InStr(1, StrReverse(Arquivo.Path), "\") Range("A" & linha).Value = Mid(Arquivo.Path, 1, Aux1 + 1) Range("A" & linha).Value = Arquivo.Name Range("B" & linha).Value = Arquivo.Size linha = linha + 1 Next For Each Pasta In aqui.SubFolders Varre (Pasta.Path) Next End Function crie um botão e dentro dele chame a função passando o endereço a ser analizado: linha = 1 Call Varre("C:\Documents and Settings\administrador\Desktop") -
Macro que copia e cola valores + integração outlook
pergunta respondeu ao rpd de Renato Knupp em VBA
Cara, esse código foi o mais completo que achei, pois ele abre o outlook caso esteja fechado e tira um aviso de segurança do outlook, mas ele resolve seu problema parcialmente: Dim texto As String Dim oOutlookApp As Object, oOutlookMessage As Object Dim mySafeEmail As Redemption.SafeMailItem Set oOutlookApp = CreateObject("Outlook.Application") oOutlookApp.Session.Logon Set oOutlookMessage = oOutlookApp.CreateItem(olMailItem) 'faz referencia a DLL instalada Set mySafeEmail = CreateObject("Redemption.SafeMailItem") contato = "destinatario@abc.com.br" texto = "Bom dia," & RNC & "," & vbNewLine & vbNewLine & _ "Segue teste de e-mail." With mySafeEmail .Item = oOutlookMessage .Subject = "Teste " .Recipients.Add contato .Recipients.ResolveAll .Body = texto .Send End With conforme falei ao enviar um e-mail do excel pelo outlook, o mesmo identificará e dará uma msg de aviso, para que essa mensagem não aconteça, você terá que baixar uma DLL chamada "Redemption.dll" e registrá-la no windows, depois disso você vai ter que ir no ambiente do VBA no menu Ferramentas e entrar na opção referências e marcar a opção Redemption Outlook and MAPI COM Library. Como nem tudo é perfeito, esse codigo resolve parcilamente seus problemas, pois nele na época eu não conseguia fazer enviar para mais de uma pessoa por vez, como pra mim isso não era necessário eu não pesquisei mais. Caso consiga utilizar a opção CC e CCO dentro desse código, poste ai. -
Galera depois de pesquisar um pouco mais, achei esse site http://www.macoratti.net/lstview2.htm, as dicas que precisava, se alguém quiser usar uma listview e não souber, ta ai a dica.
-
alguém conhece algum tutorial para se utilizar um listview no vba, estou trabalhando com um banco, procurei mas até agora nada, preciso inserir informações em colunas tipo: CPF, NOME, ENDEREÇO, TELEFONE desde já obrigado.
-
Obrigado Jonathan! case sensitive isso me fez perder quaser um dia inteiro!! Vlw mesmo!
-
Segue: 1>------ Build started: Project: teste, Configuration: Debug Win32 ------ 1>Compiling... 1>teste.cpp 1>c:\users\knup\desktop\temp\teste\teste\teste.cpp(29) : error C4430: missing type specifier - int assumed. Note: C++ does not support default-int 1>c:\users\knup\desktop\temp\teste\teste\teste.cpp(30) : warning C4183: 'carro': missing return type; assumed to be a member function returning 'int' 1>c:\users\knup\desktop\temp\teste\teste\teste.cpp(31) : error C4430: missing type specifier - int assumed. Note: C++ does not support default-int 1>c:\users\knup\desktop\temp\teste\teste\teste.cpp(34) : warning C4183: 'carro': missing return type; assumed to be a member function returning 'int' 1>c:\users\knup\desktop\temp\teste\teste\teste.cpp(38) : error C2078: too many initializers 1>c:\users\knup\desktop\temp\teste\teste\teste.cpp(38) : error C2440: 'initializing' : cannot convert from 'const char [4]' to 'Carro' 1> No constructor could take the source type, or constructor overload resolution was ambiguous 1>Build log was saved at "file://c:\Users\Knup\Desktop\Temp\teste\teste\Debug\BuildLog.htm" 1>teste - 4 error(s), 2 warning(s) ========== Build: 0 succeeded, 1 failed, 0 up-to-date, 0 skipped ==========
-
Editei o cod estava muito grande Galera estou com problemas, seguinte nunca tinha visto C++ até a um mês atrás, conheço de programação e lógica mas em outras linguagens. O problema é o seguinte tenho que fazer um trabalho (facul) e preciso trabalhar com construtores, mas também preciso utilizar os métodos set e get, simples? não está sendo, com todas as minha limitações (trabalhar com char em c++ é chato) eu cheguei ao seguinte código: #include "stdafx.h" #include <string.h> #include <iostream> using namespace std; class Carro{ public: char *marca, *modelo; int ano; void setMarcaCarro(char *marca){ this->marca = marca; } char* getMarcaCarro(){ return this->marca; } void setModCarro(char *modelo){ this->modelo = modelo; } char* getModCarro(){ return this->modelo; } void setAnoCarro(int ano){ this->ano = ano; } int getAnoCarro(){ return this->ano; } carro( ){ } carro(char *marca, char *modelo){ this->marca = marca; this->modelo = modelo; } }; int main(){ Carro c1; Carro c2("volks","Gol"); char marca[30], modelo[20]; int ano; system("cls"); cout << endl << "Informe a marca do Veiculo: "; cin >> marca; c1.setMarcaCarro(marca); cout << endl << "Informe o modelo do Veiculo: "; cin >> modelo; c1.setModCarro(modelo); cout << endl << "Informe o Ano do Veiculo (9999): "; cin >> ano; c1.setAnoCarro(ano); cout << endl << endl; cout << " ** Caracteristicas do veiculo ** " << endl; cout << "Marca: " << c1.getMarcaCarro() << endl; cout << "Modelo: " << c1.getModCarro() << endl; cout << "Ano: " << c1.getAnoCarro() << endl; cout << endl << endl; cout << endl << "Informe o Ano do Veiculo: "; cin >> ano; c2.setAnoCarro(ano); cout << endl << endl; cout << " ** Caracteristicas do veiculo ** " << endl; cout << "Marca: " << c2.getMarcaCarro() << endl; cout << "Modelo: " << c2.getModCarro() << endl; cout << "Ano: " << c2.getAnoCarro() << endl; cout << endl << endl; system("pause"); return 0; } Bom o código funciona perfeitamente sem as partes comentadas, quando coloco elas , tudo vira uma zona, tenho um exemplo bem parecido e funciona perfeitamente. minha intenção é digitar todos os dados do primeiro veiculo, e do segundo em diante e só digito algumas caracteristicas e ele atravez do metodos contrutores completa o resto, isso 5 vezes ( o cod é muito maior que o que esta ai). Desde já obrigado pela ajuda.