Visual Basic Kodunu Dışarıdan alabilirmiyiz?

[nihattt]

Excel'de şunu yapabilirmiyiz acaba aradım ama bulamadım. Aşağıdaki örnekte anlatmaya çalıştığım gibi sayfa aktif kodunu bilgisayarda c:\kodlar\1.txt adlı dosyadan çağırabilirmiyiz. tabi başka bir yolu varsa o da olur. dışardan çalışabilen makro dosyaları filan var mı onu merak ettim.

Private Sub Worksheet_Activate()
C:\kodlar\1.txt
End Sub

 

[zafer]

Merhaba

[SIZE=3][FONT=Times New Roman][FONT=Verdana][SIZE=2]Private Sub Worksheet_Activate()[/SIZE][/FONT]
[/FONT][/SIZE]
[FONT=Times New Roman][SIZE=3]fname = “[/SIZE][/FONT][COLOR=black][FONT=Verdana]C:\kodlar\1.txt[/FONT][/COLOR]
 
[FONT=Times New Roman][SIZE=3]sat = Cells(65536, 1).End(xlUp).Row[/SIZE][/FONT]
 
[SIZE=3][FONT=Times New Roman]Open fname For Input As #1[/FONT][/SIZE]
 
[SIZE=3][FONT=Times New Roman]Do While Not EOF(1)[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]   Line Input #1, veri[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]   veriler = Split(veri, vbTab)[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]   a = UBound(veriler)[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]   sat = sat + 1[/FONT][/SIZE]
 
[SIZE=3][FONT=Times New Roman] For x = 0 To a[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]       Cells(sat, x + 1) = veriler(x)[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]   Next x[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Loop[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Close #1[/FONT][/SIZE]
[FONT=Times New Roman][SIZE=3]End Sub[/SIZE][/FONT]

Txt dosyasındaki verileriniz TAB tuşu ile birbirinden ayrılmış şekilde ise
veriler = Split(veri, vbTab)

 

[nihattt]

hocam tab tuşu ile ayrılmışsa ne demek oluyor tam anlayamadım. yukarıda sizin yazdığınız kodda olduğu gibi text dosyasında alt alta satırlar şeklinde. bu farkeder mi? deneyeceğim ama umarım çalışiır. çok tşk ederim.

 

[zafer]

Merhaba


Satırdaki Metinleri birbirinden ayırmak için ne kullandığınızı sormuştum.

Çeşitli olabilir.

BackSpace boşlukmu
Tab CapsLock'un üstündeki tuşmu
,

onun için burada onu kullanmalıyız.Ayırım , ise
veriler = Split(veri, ",") kullanmalıyız.

 

[hamitcan]

Sayın Haluk'un bir çalışmasını buldum. Bu da alternatif olsun.
http://www.excel.web.tr/showthread.php?t=2293&highlight=text+dosyas%FDndan+makro