URL'yi Dinamik Tanımlama

[fthtls]

Arkadaşlar merhaba,

Kullandığım makroda bir web arayüzünden bilgi çekiyorum.
Ürünkodu 15000 olan malzeme için yazdığım makro aşağıdaki gibi.

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://192.168.200.23/productcode=15000"

Benim istediğim bu makroyu tek ürün kodu için değil, tüm ürünler için kullanmak. Yani dinamik bir url tanımlamak. Amacım çalıştığım worksheet'in (Sayfa1) A1 hücresinde ne varsa URL'de productcode karşılığına o gelsin. Örneğin A1 hücresinde 20000 varsa kodun yaptığı işlem:

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://192.168.200.23/productcode=20000" olsun.

Yardımlarınız için teşekkürler.

 

[Merhum İdris SERDAR]

.

Const AdresUrl As String = "URL;http://192.168.200.23/productcode="


.....


With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;" & AdresUrl & [A1], Destination:=Cells(2, 1))

.....

şeklinde deneyin.




.

 

[fthtls]

Cevabınız için çok teşekkürler.

 

[fthtls]

Peki aşağıdaki adresi aynı yöntemle nasıl dinamik hale getirebilirim. Bu biraz daha karmaşık. Basit yöntemi bu örneğe uyarlayamadım maalesef.

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://192.168.200.23/productcode=15000&date=13012012_form&345_InputOn"

Koyu kısımları sırasıyla Sayfa1 adlı çalışma sayfasının sırasıyla A1, A2 ve A3 hücrelerinden almasını istiyorum.

 

[Merhum İdris SERDAR]

Peki aşağıdaki adresi aynı yöntemle nasıl dinamik hale getirebilirim. Bu biraz daha karmaşık. Basit yöntemi bu örneğe uyarlayamadım maalesef.

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://192.168.200.23/productcode=15000&date=13012012_form&345_InputOn"

Koyu kısımları sırasıyla Sayfa1 adlı çalışma sayfasının sırasıyla A1, A2 ve A3 hücrelerinden almasını istiyorum.

.

Const AdresUrl As String =  "URL;http://192.168.200.23/productcode="

 Sheets("Sayfa1").Select
 Range("A2:Y100").Select
    Selection.Clear
    'Selection.QueryTable.Delete
    Range("A5").Select

With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;" & AdresUrl & [A1]&"&date="&[A2]&"_form&"&[A3]&"InputOn", Destination:=Cells(3, 1))

.....

deneyin.

.

 

[fthtls]

Çok teşekkürler. İyi çalışmalar.