[Yardım]  VBA ile başka bir uygulamadan veri çekmek.

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

VBA ile başka bir uygulamadan veri çekmek.

İleti#1)  server.ozbas » 07 Nis 2021 06:24

Merhaba arkadaşlar,
Modbus iletişimi ile haberleştiğim power analizörden modbus poll programı ile veri almaktayım ve bu aldığım veriyi excel yardımı ile çekmek istiyorum ama yazdığım kod object yaratma kısmında hata veriyor. Başka kodlar ile objectler yarattım sorun activeX de değil. Elimde bulunan kodu ve modbus poll programını ekliyorum. Yardımcı olursanız sevinirim.
MODBUS POLL ---> https://drive.google.com/drive/folders/1ne5n8h_IZHSYbRQjr4o8uulZA4w6brGu?usp=sharing

Kod: Tümünü seç
Public doc1 As Object
Public doc2 As Object
Public app As Object
Dim res As Integer
Dim n As Integer


Private Sub StartModbusPoll_Click()
   Set app = CreateObject("Mbpoll.Application")
   Set doc1 = CreateObject("Mbpoll.Document")
   Set doc2 = CreateObject("Mbpoll.Document")

   ' Read 10 Holding Registers every 1000ms
   res = doc1.ReadHoldingRegisters(1, 0, 10, 1000)
   ' Read 10 Coil Status every 1000ms
   res = doc2.ReadCoils(1, 0, 10, 1000)
   â€˜ doc1.ShowWindow()


   app.Connection = 1 ' Modbus TCP/IP
   app.IPAddress = "127.0.0.1" ' local host
   app.ServerPort = 502
   app.ConnectTimeout = 1000
   res = app.OpenConnection()
End Sub


Private Sub Read_Click()
   Cells(5, 7) = doc1.ReadResult() 'Show results for the requests
   Cells(6, 7) = doc2.ReadResult()
     
   For n = 0 To 9
      Cells(5 + n, 2) = doc1.SRegisters(n)
   Next n


   For n = 0 To 9
      Cells(18 + n, 2) = doc2.Coils(n)
   Next n
End Sub


Dim app As Object
Sub start()
Set app = CreateObject("mbpoll.Application")
app.Application.Visible = True

End Sub
Kullanıcı avatarı
server.ozbas
 
Kayıt: 06 Nis 2021 14:37
Meslek: Elektronik Mühendisi
Yaş: 29
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: VBA ile başka bir uygulamadan veri çekmek.

İleti#2)  Ozan İLGÜN » 07 Nis 2021 08:02

Mobdus Pull programından veriyi herhangi bir şekilde dışarı çıkartma imkanı var mı? Xml, json,txt,csv gibi.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 35
İleti: 3045
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: VBA ile başka bir uygulamadan veri çekmek.

İleti#3)  server.ozbas » 07 Nis 2021 08:59

text ve excel çıktısı verebiliyor ama her seferinde farklı bir excel veya text dosyası açıyor buradan bilgi çekmem durumunda program her kapandığında yeniden kodda değişiklik yapmam gerekeceğinden bu tür bir yola başvurdum.
Kullanıcı avatarı
server.ozbas
 
Kayıt: 06 Nis 2021 14:37
Meslek: Elektronik Mühendisi
Yaş: 29
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: VBA ile başka bir uygulamadan veri çekmek.

İleti#4)  server.ozbas » 07 Nis 2021 09:10

Modbus poll linkini değiştirdim excel örneği mevcut
https://drive.google.com/drive/folders/ ... sp=sharing
Kullanıcı avatarı
server.ozbas
 
Kayıt: 06 Nis 2021 14:37
Meslek: Elektronik Mühendisi
Yaş: 29
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe