Makro kodunu Excel 2016 ya uyarlama

[dortmevsim]

Arkadaşlar aşağıdaki macro Excel 2010 64 bitte çok iyi çalışıyor fakat excel 2016 64 bitte çalıştıramadım bu kod nasıl çalışacak şekilde uyarlanabilir yardım edebilir misiniz.

Dim strTemp As String

BilgileriAl

AppActivate "Host Integration Server Client"
Application.Wait (Now() + TimeValue("00:00:01"))
cmd1990_Click
Application.Wait (Now() + TimeValue("00:00:01"))
If Cells(16, 3).Value <> "" Then
SendKeys ("^V~~")
Else
SendKeys ("+{TAB}H^V~~")
End If
Application.Wait (Now() + TimeValue("00:00:02"))
SendKeys ("{F12}")

 

[Korhan Ayhan]

Hata mı veriyor, yoksa hiç mi çalışmıyor?

Hata veriyorsa, hangi satırda hata veriyor?

 

[dortmevsim]

Hiç çalışmıyor daha önceki win 7 ve excel 2010 şimdi ise win 10 excel 2016

 

[lokiman]

mrh dortmevsim,
Bu konu hakkında sizlere en kısa sürede dönüş yapacaktım ama...
Bu kodun çalışıyor fakat bu satırda ki AppActivate "Host Integration Server Client"
windows10 da "Host Integration Server Client" ile aktif olan 3270 uygulamasını bulamıyor.
buradaki konuyu inceleye bilirsin
https://social.msdn.microsoft.com/F...5-invalid-procedural-call?forum=appsforoffice

Herhangi bir ilerleme kaydedrsen banada bilgi verirsen sevinirim. İşlerin yoğunluğundan işyerinde deneme yapamadım.

 

[askm]

Kodunuzu tam olarak paylaşırsanız benim bilgisayarımda 3270 kurulu. Yapmak istediğiniz konu hakkında yardımcı olmaya çalışayım.