[Yardım]  Internetten Harddiske Dosya Yükleme

API - Application Programming Interface
Yazılım Programlama Arayüz Uygulaması

Internetten Harddiske Dosya Yükleme

İleti#1)  fuatkaraca » 21 Şub 2011 16:14

Aşağıdaki API ile internetten dosya aktarabiliyorum. Faydalanmak isteyen arkadaşlarıma sunarım.

Benim bu konuda üstadlara danışmak istediğim ufak bir maruzatım var.
Ben Tarkan bey ve Erhan Bey''in aşina olduğu bir şekilde herhafta bir mdb dosyasını güncelleyerek
sitede yayınlıyorum.

Yapmak istediğim 1 mb'dan küçük olan bu dosyayı,
internet ortamında bir yere konumlandırıp yazdığım vba koduna internet adresini vermek istiyorum.
Bu dosyayı herhafta yenilemem gerekecek, fakat internet adresi değişsin istemiyorum.

Bu konuda yardımlarınızı rica ederim.


Kod: Tümünü seç
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
 
Sub DownloadFilefromWeb()
    Dim strSavePath As String
    Dim URL As String, ext As String
    Dim buf, ret As Long
    URL = InputBox("İnternet ortamından kopyalamak istediğiniz dosyanın, Web Adresini Giriniz:")
    buf = Split(URL, ".")
    ext = buf(UBound(buf))
    strSavePath = ThisWorkbook.Path & "\" & "DownloadedFile." & ext
    ret = URLDownloadToFile(0, URL, strSavePath, 0, 0)
    If ret = 0 Then
        MsgBox "Dosya Başarıyla İndirildi."
    Else
        MsgBox "İndirime İşleminde Hata Oluştu!"
    End If
End Sub
Kullanıcı avatarı
fuatkaraca
Siteye Alışmış
 
Adı Soyadı:fuat karaca
Kayıt: 18 Kas 2008 13:45
Konum: istanbul
Meslek: finansman
Yaş: 42
İleti: 281
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/ortaköy

Cevap: INTERNETTEN HARDDISKE DOSYA YUKLEME

İleti#2)  Haldun Alay » 21 Şub 2011 16:19

Doğru mu anladım?
Kod: Tümünü seç
URL = InputBox("İnternet ortamından kopyalamak istediğiniz dosyanın, Web Adresini Giriniz:")
satırını
Kod: Tümünü seç
URL="http://......."
şeklinde değiştirince işinizi görüyor mu?

Yoksa internette nereye yüklersem dosya URL'si sabit kalır mı diye soruyorsunuz?
Kullanıcı avatarı
Haldun Alay
Site Dostu
 
Adı Soyadı:Haldun Alay
Kayıt: 15 Haz 2008 02:14
Konum: Rakım 0
Meslek: Turizm
Yaş: 48
İleti: 1241
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın/Kuşadası

Cevap: Internetten Harddiske Dosya Yükleme

İleti#3)  fuatkaraca » 21 Şub 2011 18:54

Üstat, işin aslı bana bir internet ortamı lazım.
Dosyamı oraya koyayım, sonrada revize edeyim. Linki hep aynı kalsın.

Örneğin,
http://www.excelvba.net/arsiv/IddaaProgramlari2010-2011.mdb
gibi bir adres mesela :D

Örneğin, bedava web alanı sağlayan site tavsiyesi ve nasıl yapılacağı konusunda biraz bilgi gibi.
Kullanıcı avatarı
fuatkaraca
Siteye Alışmış
 
Adı Soyadı:fuat karaca
Kayıt: 18 Kas 2008 13:45
Konum: istanbul
Meslek: finansman
Yaş: 42
İleti: 281
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/ortaköy

Cevap: Internetten Harddiske Dosya Yükleme

İleti#4)  Tarkan VURAL » 16 May 2011 00:43

Fuat, merhaba. Nerelerdesin ? Herhangi bir sorun yok değil mi ?
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Internetten Harddiske Dosya Yükleme

İleti#5)  fuatkaraca » 29 Haz 2011 16:38

Tarkan VURAL yazdı:Fuat, merhaba. Nerelerdesin ? Herhangi bir sorun yok değil mi ?


Tarkan Bey, merhabalar.

Size söyleyebileceğim tek bahanem,
Beni bu güzel havalar mahvetti!

İş hayatımda ve aile+arkadaş sosyal hayatım o denli kalabalık ki, başımı kaşımaya vakit kalmıyor.
Bi bakmışım ki bu kadar zaman geçmiş.

Siz olsun, Erhan bey olsun her zaman kalbimdesiniz. Saygılar.

Bu arada bu topic'te daha tam duyurulmadan Bulut'a baya bi yaklaşmışım.
Veri internet ortamında olsun, excel ile veriye ordan hükmedebiliyim gibi arayışlara girmişim [komik]
Kullanıcı avatarı
fuatkaraca
Siteye Alışmış
 
Adı Soyadı:fuat karaca
Kayıt: 18 Kas 2008 13:45
Konum: istanbul
Meslek: finansman
Yaş: 42
İleti: 281
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/ortaköy

Cevap: Internetten Harddiske Dosya Yükleme

İleti#6)  Erhan Yavuz » 29 Haz 2011 18:43

İstediğini yap, gez eylen, hakkındır kardeşim ama bizi de unutma.. [komik] [mersi]
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 02:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 59
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Internetten Harddiske Dosya Yükleme

İleti#7)  nihaka » 23 Haz 2014 02:40

süpersin ya tam aradığım şeydi bu
Teşekkürler
Kullanıcı avatarı
nihaka
Yeni Başlamış
 
Adı Soyadı:atakan akarsu
Kayıt: 01 Arl 2013 23:00
Konum: İstanbul/Kadıköy
Meslek: Memur
Yaş: 36
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Kadıköy

Cevap: Internetten Harddiske Dosya Yükleme

İleti#8)  Ozan İLGÜN » 23 Haz 2014 10:21

Fuat Bey yanlış anlamadıysam vba üzerinden ftpye belirli bir klasöre dosya yüklemek istiyorsunuz. Konu merakımı cezbettiğinden google amcaya bir sorayım dedim. Araştırmalarımdan iki sonuç çıktı.
1 - MSINET.OCX dosyasını referanslara ekleyerek aşağıda bulunan fonksiyonu kullanmak(Ocx dosyasını bulamadım.)
Kod: Tümünü seç
Function UploadFile(ByVal HostName As String, _
    ByVal UserName As String, _
    ByVal Password As String, _
    ByVal LocalFileName As String, _
    ByVal RemoteFileName As String) As Boolean

    Dim FTP As Inet

    Set FTP = New Inet
    With FTP
        .Protocol = icFTP
        .RemoteHost = HostName
        .UserName = UserName
        .Password = Password
        .Execute .URL, "Put " + LocalFileName + " " + RemoteFileName
        Do While .StillExecuting
            DoEvents
        Loop
        UploadFile = (.ResponseCode = 0)
    End With
    Set FTP = Nothing
End Function

2- Sistem klasöründe bulunan ftp.exe dosyasına parametreler gönderme yoluyla
Kod: Tümünü seç
Option Explicit

Sub FTPFile()
On Error GoTo Err_FTPFile

    Dim sHost As String
    Dim sUser As String
    Dim sPass As String
    Dim sSrc As String
    Dim sDest As String
    Dim sFTPCmds As String
    Dim iFNum As Integer

    'Build up the necessary parameters
    sHost = Sheet1.Cells(1, "B").Value
    sUser = Sheet1.Cells(2, "B").Value
    sPass = Sheet1.Cells(3, "B").Value
    sSrc = Sheet1.Cells(4, "B").Value
    sDest = Sheet1.Cells(5, "B").Value

    'Write the FTP commands to a text file
    iFNum = FreeFile
    sFTPCmds = Environ("TEMP") & "\" & "FTPCmd.tmp"
    Open sFTPCmds For Output As #iFNum
        Print #iFNum, "op " & sHost
        Print #iFNum, "user " & sUser & " " & sPass
        Print #iFNum, "cd " & sDest
        Print #iFNum, "put " & sSrc
        Print #iFNum, "bye"
    Close #iFNum

    'Upload the file
    Shell Environ("WINDIR") & "\System32\ftp.exe -n -s:" & sFTPCmds

Exit_FTPFile:
    On Error Resume Next
    Close #iFNum
    'Delete the temp FTP command file
    Kill sFTPCmds
    Exit Sub

Err_FTPFile:
    MsgBox Err.Number & " - " & Err.Description, vbOKOnly, "Error"
    Resume Exit_FTPFile

End Sub
ozanilgun@mynet.com

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2588
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Internetten Harddiske Dosya Yükleme

İleti#9)  Tarkan VURAL » 23 Haz 2014 12:55

OCX ve DLL dosyalarını ocxdump ve dlldup sitelerinden güvenle edinebilirsiniz. Yıllardır bu kanalları kullanıyorum. ;)
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: Internetten Harddiske Dosya Yükleme

İleti#10)  nihaka » 25 Arl 2014 16:08

fuatkaraca yazdı:Üstat, işin aslı bana bir internet ortamı lazım.
Dosyamı oraya koyayım, sonrada revize edeyim. Linki hep aynı kalsın.

Örneğin,
http://www.excelvba.net/arsiv/IddaaProgramlari2010-2011.mdb
gibi bir adres mesela :D

Örneğin, bedava web alanı sağlayan site tavsiyesi ve nasıl yapılacağı konusunda biraz bilgi gibi.





http://www.labnol.org/internet/direct-l ... ive/28356/

çok faydalı burdan yazanlar
Kullanıcı avatarı
nihaka
Yeni Başlamış
 
Adı Soyadı:atakan akarsu
Kayıt: 01 Arl 2013 23:00
Konum: İstanbul/Kadıköy
Meslek: Memur
Yaş: 36
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Kadıköy


Forum Excel ve API

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe