Ozan bey hata veren bilgisayarda İnternet olmadığı için teamwier ile bağlanma şansımız yok malesef
Merhaba,
Set Excl = New Excel.Application
kodunu iptal edip, yerine
On Error Resume Next
Set Excl = GetObject(, "Excel.Application")
On Error GoTo 0
If Excl Is Nothing Then
Set Excl = CreateObject("Excel.Application")
Excl.Visible = True
End If
kodunu deneyin.
Kodu denedim yine aynı hatayı veriyor
Merhaba, daha önce sizin için hazırlanan uygulamadaki excele aktar butonu çalışıyor mu. O uygulamada da benzeri kod mevcut.
Sorun kodlar da değil sanırım ofis programını kaldırıp tekrar kurmayı deneyeceğiz