tablo cekme sorunu

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

tablo cekme sorunu

İleti#1)  maykmaykmayk » 12 Tem 2018 22:47

arkadaşlar excelime wepten veri cekiyorum ama tablolar gelirken alt alta boşluksuz geliyor bazı tablolarımda 15 satır varken bazılarında 30 satır var o yüzden tabloların excele yanyana gelmesini istiyorum yardımlarınızı bekliyorum
Sub Macro1()
Dim straddress As String
straddress = Sheets("BazaDATE").Range("z2").Value
Sheets("Clasament campionate").Select
Sheets("Clasament campionate").Range("A1:AQ30000").Clear
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & straddress _
, 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 = xlAllTables
.WebSelectionType = xlSpecifiedTables
.WebTables = "8,13"
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With


Sheets("ANALİZ").Select
End Sub
macrom bu kardeşlerim
http://www.soccerstats.com/table.asp?league=italy&tid=f
adresde bu
Kullanıcı avatarı
maykmaykmayk
 
Kayıt: 12 Tem 2018 22:39
Meslek: serbest
Yaş: 42
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kdz-ereğli

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google [Bot] ve 3 misafir

Bumerang - Yazarkafe