sanırım shell exe den başka birşey açmıyor, ya eskiden byle birşey yaptığımı hatırlıyorum, kendi eklediğim dosyaları çalıştırma şekli falan. normal dosyalar çalışıyordu sanırım... neyse bakalım bi Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

benim dediğim daha basit demek bunun için baya kod yazmak gerekirmiş.. bilgim yoktu byle birşey de vutkubaykod için sağol.. inceleyelim Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

zamanında bende aradıydım bayaa.. Al arsivden buldum sana'formuna bir command button ve acilacak olan dosyanın yazıldığı _bir textBox ekleyerek command buttonun içine şunları yazabilirsin_Private Sub Command1_Click Dim XL As Object Set XL = CreateObject XL. Workbooks. AddXL. Visible = True ' boş bir excel sayfası açılmış oldu'buradan sonra açmak istediğin excel dosyasını ister, kod içinde yazabilir istersen textBox'dan alabilirsin, _burada textboxtan alınıyor.. Dim acilacakDosya As StringacilacakDosya = text1. Text 'text1'in içinde açılacak dosyanın _ ismi yazıyor. burayı bildiğin başka bir yolla da yapabilirsinXL. Workbooks. Open FileName:=acilacakDosya ' belirlediğimiz dosya excelde açılmış oldu'buradan sonra tak boyutlu yada iki boyutlu bir dizi tanımlayarak _verileri excelden okutabiliriz' rneğin burada iki boyutlu bir dizi tanımlayarak verileri alıyorumDim veriler(100, 100)'artık bir dngü ile verileri alabilirizDim satir, sutun As IntegerFor satir = 0 To 100For sutun = 0 To 100veriler = XL. cells ' NOT: burada bu işlemin tersini yaparak excelde hücrelere veri yazdırman da mümkünNextNextEnd SubNOT: burada acılan excel dosyasının birinci sayfası üzerinden işlem grülür. diğer sayfalarda işlem yapacaksan, şu kodu eklemelisin, XL. Sheets(2). Select ' ikinci sayfa aktif olur.'kolay gelsin... Gece 12 den sonra, tüm içkiler şaraptır.

runtime error 5 invalid procedure call or argumentabi bu hatayı verio le ne bu

bu otamatik açılma yani notpad i açmana falan gerek yok normal mouse ile tıklarmış gibi açar Private Declare Function ShellExecute Lib "shell32. dll" Alias "ShellExecuteA" As LongPrivate Sub Command1_Click cd1. Filter = "Tüm Dosyalar | . |" 'bitane coomand dialog eklecd1. ShowOpentxtFilename = cd1. FileName 'command dialog eklemezsen c11. filename yerine "c:\kemal. xml"gibi dosya yolunu yaz If txtFilename. Text = "" Then MsgBox "Please Enter or select a filename", vbInformation, "KEMALPERK" Else TCommand = ShellExecute(Me. hwnd, vbNullString, txtFilename, vbNullString, "", 1) If Dir = "" Then ' See if the file is here MsgBox "Dosya" & " " & txtFilename & " " & "Bulunamıyor.", vbInformation, "KEMAL PERK" ' Will Display when now file found End If End If End Sub 01

Arkadaşlar ben visul basic teki bir projeme exel dosyası açtırmam gerek ama nası olcak hiç bir fikrim yok bilen varsa kolay yoldan anlatabilirmi acaba!!!!!!!!

shell "c:\deneme. xls"bunu yazarsan açılır Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

ertan YUH ARTIK a. q. hacim sen programin icine importmu ediceksin yoksa once excelli acip sonra diger dosyayımı actiricaksin

oke sorunu buldum :)bende excel yüklü olmadığı için excelde deneyemedim, bunu txt üzerinde yaptımşimdi butona veya formun loadolayına şunu yaz, tabii c de deneme. txt olsun, bu şekilde çalışıyorShell "notepad. exe " & "c:\deneme. txt",1şimdi bunu excel içinde yapabiliriz sanırımShell "c:\program...\excel. exe" & "c:\deneme. xls",1bir dene bakalım :) Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...