Değerli arkadaşlar,
Aşağıdaki makro kodlarını forumdan derleyerek düzenledim.Burada benim sormak istediğim bu kodlara
,1-"web seçenekleri " penceresinden ."zengin metin içeriği" ve "tarih tanımlamayı devre dışı bırak" uygulamasını kodlara nasıl yerleştirmeliyim?
2-eski tarihlere ilişkin arşiv verilerini bir düğme aracılığı ile otomatik olarak değiştirebilecek bir düzenleme yapmak mümkün olurmu?Eğer mümkünse bu durum,her yeni dışveri ,bir önceki dışverinin altına yerleştirilmelidir.
Bir fikri olan sevgili ve değerli arkadaşlardan rica ediyorum.
İyi çalışmalar dilerim.
Not:acelesi yoktur,müsait bir zamanda cevap verebilirsiniz.
Sub disverial()
With ActiveSheet.QueryTables.Add(Connection:="URL;http://eski.liderform.com.tr/LiderFormWebEski12042007/f.do?to=dkSyf&docName=LBU06&pTarih=05/06/2007", _
Destination:=Range("A1"))
.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
End Sub
Aşağıdaki makro kodlarını forumdan derleyerek düzenledim.Burada benim sormak istediğim bu kodlara
,1-"web seçenekleri " penceresinden ."zengin metin içeriği" ve "tarih tanımlamayı devre dışı bırak" uygulamasını kodlara nasıl yerleştirmeliyim?
2-eski tarihlere ilişkin arşiv verilerini bir düğme aracılığı ile otomatik olarak değiştirebilecek bir düzenleme yapmak mümkün olurmu?Eğer mümkünse bu durum,her yeni dışveri ,bir önceki dışverinin altına yerleştirilmelidir.
Bir fikri olan sevgili ve değerli arkadaşlardan rica ediyorum.
İyi çalışmalar dilerim.
Not:acelesi yoktur,müsait bir zamanda cevap verebilirsiniz.
Sub disverial()
With ActiveSheet.QueryTables.Add(Connection:="URL;http://eski.liderform.com.tr/LiderFormWebEski12042007/f.do?to=dkSyf&docName=LBU06&pTarih=05/06/2007", _
Destination:=Range("A1"))
.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
End Sub