ysnozkn
Yeni Üye
- Katılım
- 18 Tem 2018
- Mesajlar
- 27
- En iyi yanıt
- 0
- Puanları
- 3
- Yaş
- 42
- Konum
- İstanbul
- Ad Soyad
- Yasin ÖZKAN
Merhaba arkadaşlar
Bir excelim var , intranet üzerinde bir sayfaya bağlanacak. Sayfada tarih paremetleri. Örneğin : İntranet/D=01/25/2019 gibi. Sayfa1 de bu tarih olayını hallediyorum. u12hücresinde linkim oluşuyor. Bu linke bağlanıp veriyi almak istiyorum ancak linki açamadım. Yardımlarınızı rica ederim.
Sayfa1 Deki excel görüntüm.

Vba Kodu (Web'den al) : Ben bu sayfa1 deki u12 deki linkten veri alması gerektiğini nasıl belirtmeliyim ?
Bir excelim var , intranet üzerinde bir sayfaya bağlanacak. Sayfada tarih paremetleri. Örneğin : İntranet/D=01/25/2019 gibi. Sayfa1 de bu tarih olayını hallediyorum. u12hücresinde linkim oluşuyor. Bu linke bağlanıp veriyi almak istiyorum ancak linki açamadım. Yardımlarınızı rica ederim.
Sayfa1 Deki excel görüntüm.

Vba Kodu (Web'den al) : Ben bu sayfa1 deki u12 deki linkten veri alması gerektiğini nasıl belirtmeliyim ?
PHP:
Sub percek()
Sayfa1.Range("B1:R3000").ClearContents
Sheets("Sayfa1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://intranet", Destination:=Range("$B$1"))
'.CommandType = 0
.Name = "intranet"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = """ctl00_MainContentFull_MainContent_MainGrid"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Sayfa2.Activate
End Sub
Moderatör tarafında düzenlendi: