- Katılım
- 17 Haziran 2017
- Mesajlar
- 29
- Excel Vers. ve Dili
- 2010 Türkce
arkadaşlar excelime wepten veri cekiyorum ama tablolar gelirken aralarında boşluksuz geliyor bazı tablolarımda 15 satır varken bazılarında 30 satır olduğu icin her tabloma 30 satır ayırmak istiyorum makro olarak ama beceremedim
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
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