Web sayfasından veri aldırırken hata ile karşılaşma

[bezl]

Merhaba,
Ben ekteki dosya ile Başbakanlık resmi gazeteden veri alıyorum. Ama resmi gazetenin çıkmadığı bir gün istendiğinde hata ile karşılaşınca ne yapabilirim. Mesela bugün gazete çıkmamıştır diye bir uyarı yazdırıp yine menüye döndürebilirmiyim.
Þimdiden teşekkürler...

 

[bezl]

Button 2 ye tıklayıp Al deyince (yani 01.08.2005 için) hata geliyor mesala

 

[ALPEN]

Private Sub CommandButton1_Click()
On Error GoTo hata
gun = Format(TextBox4, "00")
ay = Format(TextBox2, "00")
yil = Format(TextBox3, "0000")
URL1 = "URL;http://rega.basbakanlik.gov.tr/Eskiler/" & yil & "/" & ay & "/" & yil & ay & gun & ".htm"

With ActiveSheet.QueryTables.Add(Connection:= _
URL1, Destination:=Range( _
"A2"))
.Name = yil & ay & gun
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False

End With
Range("A4").Select
Selection.Font.ColorIndex = 0
Exit Sub
hata:
MsgBox ("Bu tarihle ilgili gazete çıkmamıştır.")
End Sub

 

[bezl]

Çok teşekkürler ALPEN,
peki burada değişkenlerle belirlediğim sayfayı direkt browser aç diyebilir miyim?
Þimdiden çok teşekkürler, çok güzel oluyor.

 

[bezl]

Yani belirlediğimiz url1'i browser da aç diyebilir miyiz?

 

[ALPEN]

Yani belirlediğimiz url1'i browser da aç diyebilir miyiz?

[vb:1:7ea5376243]Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub CommandButton1_Click()
gun = Format(TextBox4, "00")
ay = Format(TextBox2, "00")
yil = Format(TextBox3, "0000")
URL2 = "http://rega.basbakanlik.gov.tr/Eskiler/" & yil & "/" & ay & "/" & yil & ay & gun & ".htm"
ShellExecute 0, vbNullString, URL2, vbNullString, vbNullString, vbNormalFocus
End Sub[/vb:1:7ea5376243]

 

[bezl]

Evet oldu, çok teşekkür ederim son olarak bunu diğer commandbuttonlar içinde yapmak istiyorum bu "private declare function" ile başlayan paragrafı hepsinin başına getirdim olmadı dosya ekte buna da yardımcı olursanız sevinirim.
Kolay gelsin...

 

[ALPEN]

...

 

[bezl]

Elinize sağlık,
Benim gönderdiğim ile sizin gönderdiğiniz arasında bir fark bulamadım ama sizinki çalışıyor teşekkürler.
Þimdi açılışta application'u visible=false yaptım direkt userform açılıyor.
ama bu userformdan çıkınca belgeyi de kapat diyebilir miyiz.

 

[ALPEN]

Benim gönderdiğim ile sizin gönderdiğiniz arasında bir fark bulamadım ama sizinki çalışıyor teşekkürler.

Sizin url ler ile benimkiler arasındaki farkı bulmaya çalışın.

Þimdi açılışta application'u visible=false yaptım direkt userform açılıyor.
ama bu userformdan çıkınca belgeyi de kapat diyebilir miyiz.

application.quit
olarak forumda arama yapınız.

Not : "Bütün terimler için ara" yı işaretleyiniz.

 

[bezl]

teşekkürler