Merhabalar. Öncelikle benim konum excel den ziyade Visual basic programi üzerinde. Forumdaki arkadaslar arasindan belki bazilarinin visual basic ile program hazirladiklarini düsünerek buraya konumu aciyorum. Visual basic de asagidaki gibi bir kodum var. ve referanslardan Microsoft Excel 9.0 Object Library ekliyorum. ve programin setup ini inno setup yardimiyla hazirliyorum. Ancak excel yüklü olmayan pc de program Run-time error '429' ActiveX component can't create object hatasi veriyor. Internette bircok arastirma yaptim sorunuma bir cözüm bulamadim. programin calismasi su sekilde excel dosyasi icerisindeki verileri form1 e veya text1.text e aktarmasi. asagidaki yöntemle mümkünmü yoksa baska bir yöntem mi izlemek gerekiyor. Bilgisi olan arkadaslardan yardimlarini bekliyorum. Simdiden tesekkürler.
Private Sub Command1_Click()
Dim excelbaglanti As Object
Dim excelkitap As Excel.Workbook
Dim excelsayfa As Excel.Worksheet
Dim aaa As String
Set excelbaglanti = CreateObject("Excel.Application")
excelbaglanti.Visible = False
kitapyolu = App.Path & "\test.xls"
Set excelkitap = excelbaglanti.Workbooks.Open(kitapyolu)
Set excelsayfa = excelkitap.Worksheets(1)
aaa = excelsayfa.Cells(1, 1)
Form1.Text1.Text = aaa
Application.Quit
excelbaglanti.Quit
Set Worksheet = Nothing
Set Workbook = Nothing
Set excelbaglanti = Nothing
End Sub
Private Sub Command1_Click()
Dim excelbaglanti As Object
Dim excelkitap As Excel.Workbook
Dim excelsayfa As Excel.Worksheet
Dim aaa As String
Set excelbaglanti = CreateObject("Excel.Application")
excelbaglanti.Visible = False
kitapyolu = App.Path & "\test.xls"
Set excelkitap = excelbaglanti.Workbooks.Open(kitapyolu)
Set excelsayfa = excelkitap.Worksheets(1)
aaa = excelsayfa.Cells(1, 1)
Form1.Text1.Text = aaa
Application.Quit
excelbaglanti.Quit
Set Worksheet = Nothing
Set Workbook = Nothing
Set excelbaglanti = Nothing
End Sub
