DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Dim xlApp,xlBook,Sh,NoA,indis
On Error Resume Next
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.open("C:\Documents and Settings\sero52\Desktop\Proje Veri01.xls")
Set Sh=xlBook.sheets("DATA")
Set indis=SmartTags("SIRA NO")
Sh.cells(3, 18) = SmartTags("Tag_2")
Sh.cells(3, 19) = SmartTags("Tag_3")
SmartTags("1.1").Value=Sh.cells(2, 7)
SmartTags("1.2").Value=Sh.cells(3, 7)
SmartTags("1.3").Value=Sh.cells(4, 7)
SmartTags("1.4").Value=Sh.cells(5, 7)
SmartTags("1.5").Value=Sh.cells(6, 7)
xlBook.Save
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
Sub FormAc()
'önce VBA ya formunuzu açabilecek bir makro yazın
userform1.Show
End Sub
Sub ExcelMakrosunuCalistir()
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Run (FormAc)
End Sub
Dim xlApp As Object