ExecuteExcel4Macro kullanarak yazar mısınız

[hopeful]

Merhabalar

C:\data\plan.xls dosyasını açmadan "RawData" sayfasında yer alan verileri ExecuteExcel4Macro ile istek.xls dosyasına çekmek istiyorum. İstek.xls içerisine yazılacak bu makro ile C:\data\plan.xls dosyasının sadece "RawData" sayfasındaki verileri komple almak ve ilave olarak E , F , H kolonlarının eklenip ilgili yerlere özellik, türü ve stok kelimelerinin yazılmasını sağlamak istiyorum. plan.xls ve istek.xls dosyaları ektedir.

Kodu yazabilirmisiniz. Yardımlarınızı rica ederim

Saygılar

 

[Levent Menteşoğlu]

Sorunuzun çözümü için ADO daha uygun. Fakat net cevap için her iki dosyanızada olması gereken şekilde veriler yazıp tekrar ekleyin.

 

[hopeful]

Sorunuzun çözümü için ADO daha uygun. Fakat net cevap için her iki dosyanızada olması gereken şekilde veriler yazıp tekrar ekleyin.

ADO uygulamalarındaki msjlarınızdan bulduğum kodları çok az modifiye edip yazdım. Sanırım sorunum halloldu. yalnız şöyle bir ibare çıkıyor ekranda : "There is a large amount of information on the clipboard. do u want to be able to paste this information into another program later" ..

Kod da şu şekilde:

Sub verial()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\deneme123").Files
Set yeni = CreateObject("Excel.Application")
yeni.Workbooks.Open "C:\deneme123\" & dosya.Name
Set s1 = yeni.Workbooks(dosya.Name).Sheets(14)
s1.Range("a1:j" & s1.[a65536].End(3).Row).Copy
sat = [a65536].End(3).Row
Cells(sat + 0, "a").Select
ActiveSheet.Paste
yeni.Quit
Set yeni = Nothing
Next


teşekkürler yardımlarınız için levent bey

 

[İdris SERDAR]

........
ActiveSheet.Paste
Application.CutCopyMode = False
.......
.......

şeklinde deneyin.

 

[Levent Menteşoğlu]

Yukarıda verdiğiniz kod bir ADO uygulaması değildir. Ancak amacınızı karşıladığına göre sorun yok. Sadece aşağıdaki satırı kodun içine en alt satıra ilave edin.

application.cutcopymode=false

 

[hopeful]

Yukarıda verdiğiniz kod bir ADO uygulaması değildir. Ancak amacınızı karşıladığına göre sorun yok. Sadece aşağıdaki satırı kodun içine en alt satıra ilave edin.

application.cutcopymode=false

aynı hata devam ediyor. ancak önemli bir sorun teşkil etmiyor. teşekkürler yardımlarınız için.
saygılar