internetten dosya indirmek Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Option Explicit

Private Declare Function InternetGetConnectedState _ 
    Lib "wininet" ( _ 
        ByRef lpdwFlags As Long, _ 
        ByVal dwReserved As Long) _ 
As Long 
    
Private Declare Function InternetAutodial _ 
    Lib "wininet.dll" ( _ 
        ByVal dwFlags As Long, _ 
        ByVal dwReserved As Long) _ 
As Long

Private Declare Function InternetAutodialHangup _ 
    Lib "wininet.dll" ( _ 
        ByVal dwReserved As Long) _ 
As Long

Private Declare Function URLDownloadToFile Lib "urlmon" _ 
    Alias "URLDownloadToFileA" ( _ 
        ByVal pCaller As Long, _ 
        ByVal szURL As String, _ 
        ByVal szFileName As String, _ 
        ByVal dwReserved As Long, _ 
        ByVal lpfnCB As Long) _ 
As Long

Private Const INTERNET_CONNECTION_CONFIGURED = &H40 
Private Const INTERNET_CONNECTION_LAN = &H2 
Private Const INTERNET_CONNECTION_MODEM = &H1 
Private Const INTERNET_CONNECTION_OFFLINE = &H20 
Private Const INTERNET_CONNECTION_PROXY = &H4 
Private Const INTERNET_RAS_INSTALLED = &H10 
Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1 
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2

Private Const S_OK = &H0 
Private Const E_ABORT = &H80004004 
Private Const E_ACCESSDENIED = &H80070005 
Private Const E_OUTOFMEMORY = &H8007000E

Const strDownLoad As String = "http://www.salipazari-meb.gov.tr/programlar/kayit.zip" 
Const strDest As String = "C:kayit.zip"

Sub GetFile() 
Dim DwnLoadOK As Boolean

DwnLoadOK = DownloadFile(strDownLoad, strDest) 
If Not DwnLoadOK Then 
   MsgBox "Error downloading " & strDownLoad & vbCr & IeState 
Else 
   MsgBox "Succesfully downloaded:= " & strDest 
End If

End Sub

Public Function DownloadFile( _ 
   URL As String, _ 
   SaveAsFileName As String) As Boolean

Dim lngRetVal As Long 
    DownloadFile = False 
End Function

Private Function IeState() As String 
Dim Ret As Long 
Dim Msg As String 
    
   InternetGetConnectedState Ret, 0&

If (Ret And INTERNET_CONNECTION_CONFIGURED) = _ 
   INTERNET_CONNECTION_CONFIGURED Then _ 
   Msg = "Local system has a valid connection to the Internet," & _ 
   vbCr & "but it may or may not be currently connected." 
If (Ret And INTERNET_CONNECTION_LAN) = _ 
   INTERNET_CONNECTION_LAN Then _ 
   Msg = Msg & vbCr & "Uses a local area network" & _ 
   "to connect to the Internet." 
If (Ret And INTERNET_CONNECTION_MODEM) = _ 
   INTERNET_CONNECTION_MODEM Then _ 
   Msg = Msg & vbCr & "A modem is used to connect to the Internet." 
If (Ret And INTERNET_CONNECTION_OFFLINE) = _ 
   INTERNET_CONNECTION_OFFLINE Then _ 
   Msg = Msg & vbCr & "Local system is in offline mode." 
If (Ret And INTERNET_CONNECTION_PROXY) = _ 
   INTERNET_CONNECTION_PROXY Then _ 
   Msg = Msg & vbCr & "Uses a proxy server to connect to the Internet." 
If (Ret And INTERNET_RAS_INSTALLED) = INTERNET_RAS_INSTALLED Then _ 
   Msg = Msg & vbCr & "System has RAS installed."

If Msg  "" Then IeState = Msg

End Function

Benzer Sonuçlar
No	Makro Adı
1	internetten dosya indirmek
2	Outlook ile mail gönderme veya toplu mail gönderme
3	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
4	istenilen yazıcıyı aktif yapmak için
5	dosyayı kim açtı
6	dosyayı kim ne zaman hangi tarihte açtı txt
7	Dosyayı kim açtı 2
8	disketten .bat dosyası açma
9	Her Çalışma Sayfasını Tek Bir PDF Olarak Kaydedin: Bu kod, tüm çalışma sayfalarını ayrı bir PDF dosyasına basitçe kaydeder. Sadece kodun klasör adını değiştirmeniz gerekiyor.
10	dosya yolunu göster ayrıntılı olarak listelesin dosyaların kapladıkları alanları, dosya yolunu vs…
11	Bir yazıyı / metni açık olan bütün Excel dosyalarında arayıp bulmak
12	partisyon belirt ne kadar dosya varsa listelesin
13	mp3 dosyası çalma
14	dosya düzen menülerinin iptali ve yeni menü
15	txt dosyasını seç yeni excel sayfasına yazsın
16	word sayfası olarak çıktı almak
17	kullanıcı adı ve parola eklemek
18	excel dosyası belirli bir tarihten sonra açılmasın
19	30 excel dosyası içinde bir kelime aratma
20	makrolar kutusu ve makrolar görünsün

Benzer Sonuçlar

Makro Adı

internetten dosya indirmek

Outlook ile mail gönderme veya toplu mail gönderme

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

istenilen yazıcıyı aktif yapmak için

dosyayı kim açtı

dosyayı kim ne zaman hangi tarihte açtı txt

Dosyayı kim açtı 2

disketten .bat dosyası açma

Her Çalışma Sayfasını Tek Bir PDF Olarak Kaydedin: Bu kod, tüm çalışma sayfalarını ayrı bir PDF dosyasına basitçe kaydeder. Sadece kodun klasör adını değiştirmeniz gerekiyor.

dosya yolunu göster ayrıntılı olarak listelesin dosyaların kapladıkları alanları, dosya yolunu vs…