ysnozkn
Yeni Üye
- Katılım
- 18 Tem 2018
- Mesajlar
- 27
- En iyi yanıt
- 0
- Puanları
- 3
- Yaş
- 41
- 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.
![2019-01-25 17_01_45-mRemoteNG - confCons.xml - Yasin Test.png 2019-01-25 17_01_45-mRemoteNG - confCons.xml - Yasin Test.png](https://excelturkey.com/data/attachments/1/1076-7f6ae5b197616623253948cca62f2053.jpg)
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.
![2019-01-25 17_01_45-mRemoteNG - confCons.xml - Yasin Test.png 2019-01-25 17_01_45-mRemoteNG - confCons.xml - Yasin Test.png](https://excelturkey.com/data/attachments/1/1076-7f6ae5b197616623253948cca62f2053.jpg)
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: