scada programında vba kodu ıle exele veri atma

[sero52]

Ben siemensin bir paket programını kullanıyorum ve buprogramda vba kodları yazarak exele veri atıyorum fakat bunu yapmak için program çalışmadan daha önce exelin açık olması gerikiyor yoksa exele veri yazamıyorum. Exeli yazdığım kodun basında program başlamadan önce otomatik olarak açmak istiyorum vba kodları ile bu mümkün mü.

Yardımcı olanlar için şimdiden teşekkürler.

 

[Recep İpek]

Aşağıdaki kodları kendinize göre uyarlayabilirsiniz.

Sub SendData()
On Error Resume Next
Set xlApp = CreateObject("Excel.Application")
'xlApp.Visible = False
Set xlBook = xlApp.Workbooks.open("C:\TestFolder\TestDatabase.xls")
Set Sh=xlBook.sheets("Data")
NoA = Sh.cells(65536,1).end(3).row + 1
Sh.cells(NoA, 1) = document.veriler.No.value
Sh.cells(NoA, 2) = document.veriler.ad.value
Sh.cells(NoA, 3) = document.veriler.soyad.value
Sh.cells(NoA, 4) = document.veriler.meslek.value
Sh.cells(NoA, 5) = document.veriler.dogum_tarih.value
xlBook.Save
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
End Sub

 

[alpi]

Excel dosyasını açmak için

Workbooks.Open ("c:\Dosyaadı.xls")

c:\Dosyaadı.xls yerine kendi dosyanızın yolunu ve adını yazınız.

 

[sero52]

NoA = Sh.cells(65536,1).end(3).row + 1

Arkadaşlar çok teşekkur edıyorum gonderdığınız kodlar cok ısıme yaradı fakat yukarıdakı kodu tam olarak anlayamadım. Bıraz acıklayabılırsenız sevınırım.

Teşekkürler.

 

[Recep İpek]

A kolonundaki kayıt sayısını bulmak için yazılmıştır.

Diğer bir ifadeyle

NoA = Sh.Range("A1:A65536").End(xlUp).Row+1

 

[fultek_salih]

Wincc Kullanıyorsunuz galiba. iki yıl önce benzer bir uygulama yaptım. Wincc'nin yazabikmesi için excel açık ve hiçbir hücre edit modda olmamalı. Başka türlü yazamaz.