![](https://www.comoganharnaloteria.com.br/forum/uploads/set_resources_9/84c1e40ea0e759e3f1505eb1788ddf3c_pattern.png)
jau288
-
Posts
17 -
Joined
-
Last visited
Content Type
Profiles
Forums
Downloads
Posts posted by jau288
-
-
Bom dia , link quebrado... poderia mandar por email - jau288@gmail.com.
Muito obrigado pela a atenção...
-
Em 04/10/2017 at 04:19, Crazy Rabbit disse:
Simplificando o Substantivo,
Lá Vai,
http://www.mediafire.com/file/8y3alqq0mmq8ojj
Print,
Crazy Rabbit
Bom dia Crazy, tentei baixar esta planilha e deu erro (em anexo) poderia mandar um novo link ou mandar por email a planilha por favor.... meu email e
xxxxxxxxx@gmail.com.Abraços e muito obrigado pela atenção...
-
Bom dia, sua sugestão e boa , como fazer isto (ex =menor($AH10:$AZ10;BC$9) ou tem outro jeito melhor...
Grato pela atenção,
jau288
-
Boa noite e muito obrigado pela atenção...
Deu certo ...
-
-
Em 21/06/2015 at 11:03, roger1318 disse:
Ola,
Segue um modelo:
https://www.sendspace.com/file/9d0j68
https://www.sendspace.com/file/ef9t1j
29 minutos atrás, Pitaco_certo! disse:Não é possível nem ver o arquivo e nem saber do que se trata, acho que o arquivo está com senha e não é possível baixar!
Qualquer coisa posta aí...
Att,
Sorte
Roger1318
https://www.sendspace.com/file/ef9t1j
30 minutos atrás, Pitaco_certo! disse:Não é possível nem ver o arquivo e nem saber do que se trata, acho que o arquivo está com senha e não é possível baixar!
Qualquer coisa posta aí...
Att,
-
Boa tarde a todos,
Gostaria muito da ajuda de todos. Estou mandando em anexo uma planilha para analisarem e ver se e possível oque quero ...
Obrigado a todos pela atenção...
* não conseguir anexar tentem baixar por esse link...
-
Em 21/06/2015 at 11:03, roger1318 disse:
Link . Sorry, the file you requested is not available.
Teria outro link .
grato
-
Oi,a muito tempo venho procurado por isto, quero ver e entender o código em vba ( estudo a pouco tempo vba). Mas nunca consigo no seu caso o link quebrado . Poderia mandar em outro link ou email ( meu email - jau288@gmail.com) . Fico agradecido desde já ...
-
Cronos,
Grande trabalho!
Vou compartilhar consigo o motivo de não ter lhe fornecido feedback, seu código é incompatível para plataforma 64 bits?
Entretanto vou colaborar consigo;
Enviei esse mesmo código a um site especializado em loterias e o máximo que o responsável fez foi me dizer "Obrigado!", incluiu imediatamente em suas planilhas e passou a vender.....!!!
Que bacana!
Se desejar continuamos, o que acontece em loteria é que é difícil convergir os interesses;
Segue, vai ajudar, basta realizar algumas alterações;
"Para atualizar o resultado automáticamente, vou lhe fornecer o código";
Private Declare PtrSafe Function InternetGetConnectedState _
Lib "wininet.dll" (ByRef dwflags As Long, _
ByVal dwReserved As Long) As Long
Private Const INTERNET_CONNECTION_MODEM As Long = &H1
Private Const INTERNET_CONNECTION_LAN As Long = &H2
Private Const INTERNET_CONNECTION_PROXY As Long = &H4
Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20
Function IsInternetConnected() As Boolean
Dim L As Long
Dim R As Long
R = InternetGetConnectedState(L, 0&)
If R = 0 Then
IsInternetConnected = False
Else
If R <= 4 Then
IsInternetConnected = True
Else
IsInternetConnected = False
End If
End If
End Function
Sub AtualizarResultados()
Dim FSO, oApp As Object
Dim objHttp, DefPath, Arquivo As String
Dim Dados() As Byte
Dim Fname As Variant
Dim FileNameFolder As Variant
Dim FileName As Variant
Dim iFileNumber As Long
Dim Ret As Long
Application.ScreenUpdating = False
Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
If IsInternetConnected() = True Then
objHttp.Open "GET", "http://www1.caixa.gov.br/loterias/_arquivos/loterias/D_lotfac.zip", False
objHttp.Send
DefPath = ThisWorkbook.Path & "\"
Arquivo = DefPath & "D_lotfac.zip"
FileName = Arquivo
If objHttp.Status = "200" Then
Dados = objHttp.ResponseBody
iFileNumber = FreeFile
Open Arquivo For Binary Access Write As #iFileNumber
Put #iFileNumber, 1, Dados
Close #iFileNumber
End If
If Right(DefPath, 1) <> "\" Then
DefPath = DefPath & "\"
End If
FileNameFolder = DefPath
Set oApp = CreateObject("Shell.Application")
oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(FileName).items
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Worksheets("Início").Range("C7") = diretorio
Worksheets("Início").Range("C7").Select
Selection.Replace What:="\", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
diretorio = Worksheets("Início").Range("C7")
Sheets("Base").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;file:///" & DefPath & "/D_LOTFAC.HTM", Destination:=Range( _
"Base!$A$1"))
.Name = "D_MEGA"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Sheets("Base").Select
Rows("1:2").Select
Selection.Delete Shift:=xlUp
Application.ScreenUpdating = True
Call OrdenaResultados
Call Auto_Open
MsgBox "Planilha atualizada com sucesso!"
Else
MsgBox "Para atualizar é necessário estar conectado à internet."
End If
End Sub
o link não funciona.. tem um outro .... Gostaria de entender o codigo ... Obrigado....
Planilha Loto Facil (Projeto) (Macros) "excel 2010"
in Dicas de Excel para Loterias
Posted
OBRIGADO!!!