Excell Tablosundan harici bir programa veri aktarma

[qarizma000]

Arkadaşlar merhaba sorum şu örnek veriyorum A1 Hücresinde bir verim mevcut ve ben bu veriyi farklı bir programa işlemek istiyorum örnek veriyorum Excell'den A1 Hücresini Spotify' da arama yerine aktarmak istiyorum bunu nasıl yapabilirim ?

 

[BaY_KaPTaN]

Tamam Excelle birçok şey yapılabiliyor da bu şekilde birşeyde yapılamaz bence.
Webden değil direk pc'deki proğrama olacağını sanmıyorum.

Yani çok uçuk veri yoksa eğer manuel yapmak daha mantıklı.

Çok veri varsa da Klavye Mouse taklit ve tekrar proğramı ile excelde alt alta girilen verileri güzel tekrar makrolamayla ancak yapılabilir diye düşünüyorum.

 

[Cengiz Demir]

Yapılabilir ama çok uğraştırır. Excel de tuş vuruşu ve fare tıklaması gönderebileceğiniz komutlar var.
Hücreyi seç. Kopyala (CTRL+C gönder), Fare ile spotify simgesini seç.
Koordinat belirterek yapılacağı için spotify simgesinin yeri hep sabit olmalı.
Spotify de ilgili alanı seç. (Duruma göre fare yada, tab yön tuşları vb.) Alan seçildiğinde CTRL+V gönder.

Gibi. Ben işyerinde çalıştığım mühendise (Chrome da) teklif formu doldurması için ayarlamıştım.
Ama çok uğraştırıcı oluyor. Koordinat bazlı çalıştığı için. Formda kapalı, olan yada açık olmaması gereken bir alan olursa. Chrome simgesi başka yerde olursa vb haliyle makro düzgün çalışmıyor.

Sizinde söylediğiniz gibi harici bir windows recorder ile yapmak daha rahat olur gibi.
Tam emin değilim ama Fare tıklamaları için buna benzer kodlar bulmuştum sanırım.
Tuşlar içinde sendkeys i kullanmıştım diye hatırlıyorum.

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP As Long = &H10

Private Sub SingleClick()
  SetCursorPos 100, 100 'x and y position
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Private Sub DoubleClick()
  'Double click as a quick series of two clicks
  SetCursorPos 100, 100 'x and y position
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Private Sub RightClick()
  'Right click
  SetCursorPos 200, 200 'x and y position
  mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
End Sub

Tamam Excelle birçok şey yapılabiliyor da bu şekilde birşeyde yapılamaz bence.
Webden değil direk pc'deki proğrama olacağını sanmıyorum.

Yani çok uçuk veri yoksa eğer manuel yapmak daha mantıklı.

Çok veri varsa da Klavye Mouse taklit ve tekrar proğramı ile excelde alt alta girilen verileri güzel tekrar makrolamayla ancak yapılabilir diye düşünüyorum.

 

[BaY_KaPTaN]

Yapılabilir ama çok uğraştırır. Excel de tuş vuruşu ve fare tıklaması gönderebileceğiniz komutlar var.
Hücreyi seç. Kopyala (CTRL+C gönder), Fare ile spotify simgesini seç.
Koordinat belirterek yapılacağı için spotify simgesinin yeri hep sabit olmalı.
Spotify de ilgili alanı seç. (Duruma göre fare yada, tab yön tuşları vb.) Alan seçildiğinde CTRL+V gönder.

Gibi. Ben işyerinde çalıştığım mühendise (Chrome da) teklif formu doldurması için ayarlamıştım.
Ama çok uğraştırıcı oluyor. Koordinat bazlı çalıştığı için. Formda kapalı, olan yada açık olmaması gereken bir alan olursa. Chrome simgesi başka yerde olursa vb haliyle makro düzgün çalışmıyor.

Sizinde söylediğiniz gibi harici bir windows recorder ile yapmak daha rahat olur gibi.
Tam emin değilim ama Fare tıklamaları için buna benzer kodlar bulmuştum sanırım.
Tuşlar içinde sendkeys i kullanmıştım diye hatırlıyorum.

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP As Long = &H10

Private Sub SingleClick()
  SetCursorPos 100, 100 'x and y position
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Private Sub DoubleClick()
  'Double click as a quick series of two clicks
  SetCursorPos 100, 100 'x and y position
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Private Sub RightClick()
  'Right click
  SetCursorPos 200, 200 'x and y position
  mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
End Sub

Kodları denemedim ama koordinatı girmek vs işi çok uzatıyor. Ben dediğim gibi çoklu işlemlerde recoder ile önce yavaş ve dikkatli oluşturuyorum, hızlandırarak takip ederek yaptırıyorum.
Diğer türlü Excelde koordinat bilgisi, tutturması vs zahmetli geliyor bana