Aradığınız içerik sitemizde mevcut durumdadır
buradan sitemize dönebilirsiniz !
Forum Başlıklarına gitmek için tıklayınız
VB içinden Excel programinin yönetilmesi, açilmasi, kapatilmasi
VB içinden Excel programinin yönetilmesi, açilmasi, kapatilmasi
’1- Projet - Preferences içerisinden : "Microsoft Excel 11.0 Object Library" seçilir Ok. tusuna basilir.
’2- Formun baslangic kismina yazilacak kod:
Public ap As Excel.Application
’3- Formun load kismina yazilacak kod:
On Local Error Resume Next
Dim i, a, f2ed,path
path = "c:\"
Set ap = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set ap = CreateObject("Excel.Application"): Err.Number = 0
End If
StatusBar1.Panels(1).Text = "4.1. Excel dosya açılıyor."
ap.Visible = True ’Excel programini göster.
f2ed = 1
For i = 1 To ap.Workbooks.Count
If ap.Workbooks(i).Name = dosyaadı Then
ap.Workbooks(i).Activate
a = True: f2ed = i
Exit For
Else
End If
Next
If Not a Then
Err.Number = 0
ap.Workbooks.Open (path & "defaulttablo.xls"):
If Err.Number <> 0 Then
Err.Number = 0
ap.Workbooks.Open (path & "defaulttablo.xls"):’
If Err.Number <> 0 Then MsgBox ("Kurulum sertifikasyonu zarar görmüş. Programı tekrar kurun. Bu işlem dosyalara zarar vermez."): Exit Sub
’ap.Workbooks.Add
ap.ActiveWorkbook.SaveAs (path & "defaulttablo.xls")
Else
End If
End If
ap.Visible = False ’Excel programi gizle
Hosting Sponsorumuz - Noktahost internet hizmetleri