Makale OPEN

Bu Makale Yararlı Oldu mu?

  • Evet

  • Hayır


Sonuçlar yalnızca oylamadan sonra görülebilir.
OPEN( PathName For Mode [Access] [Lock] As [#] FileNumber [Len = RecLength] )

Bir metin dosyası (TXT)veya CSV dosyası açar.

PathName

Klasör ve hatta sürücü içerebilen dosya adı.

Mode

Erişim tipi:
Input
Output
Append
Binary
Random

Access

İşlem tipini belirten anahtar sözcük:
Read
Write
Read Write

Lock

Kilit türünü belirten anahtar sözcük:
Shared
Lock Read
Lock Write
Lock Read Write

FileNumber

Dosya sayısı (Integer).

RecLength

Rastgele erişim için bir kaydın uzunluğu ve sıralı için arabellek boyutu.




Açıklamalar

Dosya zaten açıksa, bir hata meydana gelecektir.
Bir metin dosyasını kapatmak için CLOSE deyimini kullanabilirsiniz.
Ekran formatlı verileri sıralı olarak bir dosyaya yazmak için PRINT deyimini kullanabilirsiniz .
Ardışık olarak bir dosyaya veri yazmak için WRITE deyimini kullanabilirsiniz.

VBA:
Sub ExcelTurkey()
    say = 5
    Open "C:\Temp\dosya.txt" For Random Shared As #1 Len = say
    Close #1
  
    Open "C:\Temp\dosya.txt" For Binary As #1
    Open "C:\Temp\dosya.txt" For Output As #1
  
    Close #1
  
    Open "C:\Temp\dosya.txt" For Output As #1
        Print #1, "16"
        Print #1, "'500','200'"
        Print #1, True
        Print #1, #1/5/2020#
        Print #1, CVErr(2018)
        Print #1, "A,B,C"
        Write #1, "D,E,F"
        Write #1,  'boş bir satır ekler
    Close #1
  
    Open "C:\Temp\dosya.txt" For Input As #1
        Debug.Print LOF(1)
        Do Until EOF(1)
            Dim satir As String
            Line Input #1, satir
            Debug.Print satir
          
            Dim VarName1, VarName2 As Variant
            Input #1, VarName1, VarName2
            Debug.Print VarName1, VarName2
        Loop
    Close #1
End Sub
 
Son düzenleme:
Admin

Yorumlar

Üst Alt