jhoe1205

Bom dia senhores, Tenho uma planilha de Excel que busca em um banco SQL Server, os dados das contas telefônicas, montei uma função VBA mas esta está apresentando o seguinte erro: "Erro em tempo de execução '9'" "Subscrito fora do intervalo" e aponta a linha "With Worksheets("Importar").ListObjects(1)" no código mostrado a baixo. Sub ImportaTarifador() Dim sql, DataI, DataF As String Dim Conexao As ADODB.Connection Set Conexao = New ADODB.Connection DiaI = Right(Names("DiaInicial").Value, Len(Names("DiaInicial").Value) - 1) DiaF = Right(Names("DiaFinal").Value, Len(Names("DiaFinal").Value) - 1) DataI = DiaI & "/" & Range("E4").Value & "/" & Range("h4").Value If Range("E4").Value = 12 Then DataF = 1 & "/" & DiaF & "/" & Range("h4").Value + 1 Else DataF = DiaF & "/" & Range("e4").Value + 1 & "/" & Range("h4").Value End If sql = "SELECT L.datahora, L.ramal, L.nrodisc, L.durminutos, L.DURSEGUNDOS, L.VALORCUSTO, R.CODCENCUS AS SETOR FROM TARLIGACOES L INNER JOIN TARCADRAMAL R ON L.RAMAL = R.RAMAL WHERE L.datahora BETWEEN '?Inicial' AND '?Final 23:59:59' GROUP BY L.datahora, L.ramal, L.nrodisc, L.durminutos, L.DURSEGUNDOS, L.VALORCUSTO, R.CODCENCUS ORDER BY L.DATAHORA, L.RAMAL" 'sql = "SELECT L.datahora, L.ramal, L.nrodisc, cast(L.durminutos AS varchar(3)) + ':' + cast(L.DURSEGUNDOS AS varchar(3)) AS DURACAO, L.VALORCUSTO, R.CODCENCUS AS SETOR FROM dá.TARLIGACOES L INNER JOIN dá.TARCADRAMAL R ON L.RAMAL = R.RAMAL WHERE L.datahora BETWEEN '4/11/2007' AND '5/10/2007 23:59:59' GROUP BY L.datahora, L.ramal, L.nrodisc, L.durminutos, L.DURSEGUNDOS, L.VALORCUSTO, R.CODCENCUS ORDER BY L.DATAHORA, L.RAMAL" sql = Replace(sql, "?Inicial", DataI) sql = Replace(sql, "?Final", DataF) Debug.Print sql With Worksheets("Importar").ListObjects(1) .ShowTotals = False .Range.AutoFilter Field:=1 .Range.AutoFilter Field:=2 .Range.AutoFilter Field:=3 .Range.AutoFilter Field:=4 .Range.AutoFilter Field:=5 .Range.AutoFilter Field:=6 .Range.AutoFilter Field:=7 If .ListRows.Count > 0 Then .DataBodyRange.Delete End If End With With Conexao '.Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=XXX; Password=XXX;Initial Catalog=windes4;Data Source=SRV-DB1;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=WKSFIN01;Use Encryption for Data=False;Tag with column collation when possible=False" .Open Set Rs = .Execute(sql) Worksheets("Importar").Range("B8").CopyFromRecordset Rs End With If Worksheets("Importar").ListObjects(1).ListRows.Count > 0 Then With Worksheets("Importar").ListObjects(1).DataBodyRange .Columns(1).NumberFormat = "dd/mm/yy hh:mm;@" .Columns(1).HorizontalAlignment = xlCenter .Columns(2).NumberFormat = "#,##0_);(#,##0)" .Columns(2).HorizontalAlignment = xlCenter .Columns(4).HorizontalAlignment = xlCenter .Columns(9).NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)" .Columns(7).Replace _ What:="1", Replacement:="2570", _ SearchOrder:=xlByColumns, LookAt:=xlWhole .Columns(8).FormulaR1C1 = _ "=IF(RC[-1]<>"""",VLOOKUP(RC[-1],Centros,3,FALSE),"""")" End With Worksheets("Importar").ListObjects(1).ShowTotals = True End If Set Rs = Nothing Conexao.Close Set Conexao = Nothing End Sub Já fiz diversos testes, como mudar a string de conexão do banco, mudar o nome da planilha mudar o usuário de conexão dentre várias outras mas nada funcionou. Agradeço imensamente a quem puder ajudar.

Olá caros forumeiros, trabalho com Delphi a alguns dias e recentemente surgiu-me a seguinte dificuldade: Criei uma dll contendo algumas funções que uso no sistema e nesta dll há uma diretiva que aponta para um arquivo de recurso chamado IMAGENS.RES, após desenvolver a função abaixo e a mesma ter funcionado bem com arquivos BMP e JPG precisei usa-la em arquivos PNG e para minha surpresa a função me diz que o resource não foi encontrado. Toda a ajuda será bem vinda, segue a função: var Figura : TPNGObject; Begin Figura := Loadlibrary('Biblioteca.dll'); try if Figura <> 0 then ImgSplashPadrao.Picture.Bitmap.LoadFromResourceName(Figura,'PNG_SPLASH') else Showmessage('DLL não encontrada'); except freelibrary(Figura); end;

Ok então brother, Se você tiver mais alguma sugestão vou ficar no aguardo caso você tenha alguém que conheça este problema e pode dar uma sugestão também fico grato. No mais só me resta mesmo tentar algumas outras opções malucas como discos de recuperação do SO tipo estes que alguns sites ensinam a criar. Mais uma vez muito grato

Vejamos: Eu sou Profº de Manutenção e tive uma aula na Segunda dia 05/07 onde desmontei todo o equipamento Mother, Processador, Memórias, BIOS, Pilha e tudo mais oque se possa imaginar, depois na hora de montar a máquina nem na BIOS não entrava mais(saliento que já fiz isso uma infinidade de vezes), então, afim de não perder os dados de meu HD retirei-o da máquina em questão e o coloquei em outra máquina e dai por diante começaram os erros, fico grato se puder me dar uma luz. Mais uma vez grato, ate mais

Ola caro colega, vejamos Fiz o recomendado boot pelo floppy e cd e "tentei" entrar em Modo de Segurança mas em ambas as opções continuei a ter a mesma mensagem se você tiver mais alguma opção fico grato, tenho vários arquivos importantes dentro deste HD e não queria ter que pô-lo em Slave, fazer backup, formatar e reinstalar tudo por que acho isso coisa de Técnico preguiçoso. De qualquer forma por enquanto lhe sou extremamente grato.

Ola caro colega : P:Mas ele inicia o windows???? R:Não isso ocorre quando ele ainda está carregando o SO. P:Ele tá dando boot por onde???? floppy, cd rom, IDE 0.iDE 1 onde???? R:Pelo HD mesmo IDE 0 configurado como Master P:você tem privilegio de administrador???? R:Sim Desde já fico grato pela atenção

Ola caros colegas uma breve duvida que eu gostaria que algum Técnico com vivência solucionasse: Tenho uma máquina com Windows 2000 e esta máquina começou com a seguinte mensagem de erro: "Inaccessible Boot Device. Se esta for a primeira vez que você está vendo esta tela reinicie o Windows caso contrário entre em contato com o Administrador" alguém do fórum já teve este problema e sabe como solucionar ?? Fico no aguardo dos colegas de Profissão.