Kodları xxx.dll Ãçinden okuma
:hey: Allahın Bereketi ve Rahmeti Üzerinize olsun
İşletmelere yönelik çalışmalarımızda yapmış olduğumuz excel çalışmaları genelde dosya boyutları oldukça büyük oluyor buna verilerin eklenmesiylede bu çalışma esnasında oldukça sıkıntı yaratıyor bunu için aklıma bir şeyler geldi ama nasıl yapacağımı bilmiyorum ....
Vba kodlarını excel haricinde örneğin xxx.dll diye bir dosyanın içine yazsak bu kodları o dll içinden okusa nasıl olur
vba da hangi kod için hangi dll yolunu yazsak gibi birşey olabilirmi
mesala aşağıdaki kodlar için
Aşağıdaki kodları xxxx.dll içine yazsak
Const strTxtFile As String = "C:\Sirket.txt"
Const MyCheckVal As Long = 123456
'
Sub Autpen()
Dim InputData As Variant
Dim FileNum As Long
Dim x As Integer
FileNum = FreeFile
If Dir(strTxtFile) <> Empty Then
Open strTxtFile For Input As FileNum
x = x + 1
Do While Not EOF(FileNum)
Line Input #FileNum, InputData
If Left(InputData, 6) <> MyCheckVal Then GoTo NoGo:
If x = 1 Then Exit Sub
Loop
Close FileNum
ThisWorkbook.IsAddin = False
Else
NoGo:
ThisWorkbook.IsAddin = True
MsgBox "Kayitli kullanici degilsiniz....", vbCritical, "Kullanicinin dikkatine !"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
'
:hey: Allahın Bereketi ve Rahmeti Üzerinize olsun
İşletmelere yönelik çalışmalarımızda yapmış olduğumuz excel çalışmaları genelde dosya boyutları oldukça büyük oluyor buna verilerin eklenmesiylede bu çalışma esnasında oldukça sıkıntı yaratıyor bunu için aklıma bir şeyler geldi ama nasıl yapacağımı bilmiyorum ....
Vba kodlarını excel haricinde örneğin xxx.dll diye bir dosyanın içine yazsak bu kodları o dll içinden okusa nasıl olur
vba da hangi kod için hangi dll yolunu yazsak gibi birşey olabilirmi
mesala aşağıdaki kodlar için
Aşağıdaki kodları xxxx.dll içine yazsak
Const strTxtFile As String = "C:\Sirket.txt"
Const MyCheckVal As Long = 123456
'
Sub Autpen()
Dim InputData As Variant
Dim FileNum As Long
Dim x As Integer
FileNum = FreeFile
If Dir(strTxtFile) <> Empty Then
Open strTxtFile For Input As FileNum
x = x + 1
Do While Not EOF(FileNum)
Line Input #FileNum, InputData
If Left(InputData, 6) <> MyCheckVal Then GoTo NoGo:
If x = 1 Then Exit Sub
Loop
Close FileNum
ThisWorkbook.IsAddin = False
Else
NoGo:
ThisWorkbook.IsAddin = True
MsgBox "Kayitli kullanici degilsiniz....", vbCritical, "Kullanicinin dikkatine !"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
'