Open

Söz dizimi​

Open yolAdı [For mod] [Access erişim] [kilit] As [#]dosyaNo [Len = kayıtUzunluğu]

• yolAdı: Açılacak dosyanın yolu ve adı; zorunludur. Tam yol vermeniz önerilir.
• For mod: Dosyanın açılış biçimi (Append, Binary, Input, Output, Random); isteğe bağlıdır, belirtilmezse Random kabul edilir.
• Access erişim: İzin verilen işlem; Read, Write ya da Read Write; isteğe bağlıdır.
• kilit: Başka işlemlerin dosyaya erişimini sınırlar; Shared, Lock Read, Lock Write ya da Lock Read Write; isteğe bağlıdır.
• dosyaNo: 1 ile 511 arasında kanal numarası; zorunludur. Boş numarayı FreeFile işleviyle almak en güvenli yoldur.
• Len = kayıtUzunluğu: Random dosyalarda kayıt uzunluğu (en çok 32767 bayt), sıralı dosyalarda arabellek boyutu; isteğe bağlıdır.

Dosya modları​

• Input: Dosyayı yalnız okumak için açar. Dosya yoksa 53 numaralı hata (Dosya bulunamadı) oluşur.
• Output: Dosyayı yazmak için açar. Dosya yoksa oluşturulur; varsa içeriği silinir.
• Append: Dosyayı yazmak için açar ve yazılanları mevcut içeriğin sonuna ekler. Dosya yoksa oluşturulur.
• Binary: Dosyayı bayt düzeyinde okuma ve yazma için açar; Get ve Put ile kullanılır.
• Random: Sabit uzunluklu kayıtlara erişim için açar; Len ile kayıt uzunluğu verilir.

Kanal numarası ve kapatma​

kanal = FreeFile
Open yol For Input As #kanal
' ... işlemler ...
Close #kanal

1. Sayfa verisini metin dosyasına yazma​

Option Explicit

Sub RaporuMetneYaz()
    Dim ws As Worksheet
    Dim kanal As Integer
    Dim yol As String
    Dim i As Long, son As Long

    Set ws = ActiveSheet
    ' Dosya, çalışma kitabıyla aynı klasöre yazılır
    yol = ThisWorkbook.Path & "\satis_raporu.txt"
    son = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    kanal = FreeFile                 ' Boş kanal numarasını al
    Open yol For Output As #kanal    ' Dosya varsa üzerine yazılır
    For i = 2 To son
        Print #kanal, ws.Cells(i, 1).Value & ";" & ws.Cells(i, 2).Value & ";" & ws.Cells(i, 3).Value
    Next i
    Close #kanal                     ' Dosyayı kapat
End Sub

2. Metin dosyasını sayfaya okuma​

Option Explicit

Sub MetniSayfayaOku()
    Dim ws As Worksheet
    Dim kanal As Integer
    Dim yol As String, satir As String
    Dim parcalar() As String
    Dim r As Long

    Set ws = ActiveSheet
    yol = ThisWorkbook.Path & "\satis_raporu.txt"

    ' Dosya yoksa Input modu hata verir; önce denetleyin
    If Dir(yol) = "" Then
        MsgBox "Dosya bulunamadı.", vbExclamation
        Exit Sub
    End If

    kanal = FreeFile
    Open yol For Input As #kanal
    r = 2
    Do While Not EOF(kanal)          ' Dosya sonuna kadar oku
        Line Input #kanal, satir
        parcalar = Split(satir, ";")
        If UBound(parcalar) >= 2 Then
            ws.Cells(r, 1).Value = parcalar(0)
            ws.Cells(r, 2).Value = parcalar(1)
            ws.Cells(r, 3).Value = CDbl(parcalar(2))
            r = r + 1
        End If
    Loop
    Close #kanal
End Sub

3. Açılış modlarını tabloya yazma​

Option Explicit

Sub ModTablosunuYaz()
    Dim ws As Worksheet
    Dim okuma As Variant, yazma As Variant, yoksa As Variant
    Dim i As Long

    Set ws = ActiveSheet

    ' Sırayla: Input, Output, Append, Binary, Random
    okuma = Array("Evet", "Hayır", "Hayır", "Evet", "Evet")
    yazma = Array("Hayır", "Evet", "Evet", "Evet", "Evet")
    yoksa = Array("Hata verir", "Oluşturur", "Oluşturur", "Oluşturur", "Oluşturur")

    For i = 0 To 4
        ws.Cells(i + 2, 2).Value = okuma(i)
        ws.Cells(i + 2, 3).Value = yazma(i)
        ws.Cells(i + 2, 4).Value = yoksa(i)
        ' Hiçbir dosya açık olmadığından boş kanal numarası döner
        ws.Cells(i + 2, 5).Value = FreeFile
    Next i
End Sub

Kullanırken dikkat edin​

• Her Open için bir Close: Açtığınız dosyayı Close #kanal ile kapatmayı unutmayın. Kapatılmamış dosya başka programlarca kullanılamaz ve sonraki çalıştırmada 55 numaralı hata verir. Hata olasılığı olan kodlarda On Error bloğunun çıkışında da dosyayı kapatın.
• Kanal numarasını FreeFile ile alın: Kanal numarasını elle 1 yazarsanız, aynı numarayı kullanan başka bir makro ya da yordamla çakışabilirsiniz. FreeFile kullanmak bu sorunu ortadan kaldırır.
• Sık görülen hatalar:
  • 53 (Dosya bulunamadı): Input modunda yol ya da ad yanlışsa oluşur. Önce Dir ile denetleyin.
  • 55 (Dosya zaten açık): Aynı dosya kapatılmadan yeniden açılmaya çalışılırsa oluşur.
  • 75 ve 76 (Yol/Dosya erişim hatası, Yol bulunamadı): Klasör yoksa ya da yazma izniniz yoksa oluşur; Open klasör oluşturmaz.
  • ThisWorkbook.Path boş: Çalışma kitabı henüz kaydedilmemişse yol boş döner ve dosya beklenmeyen bir konuma yazılmaya çalışılır.
• Output modu içeriği siler: Output modu mevcut dosyayı sıfırlar. Önceki kayıtları korumak istiyorsanız Append modunu seçin.
• Karakter kodlaması: Open deyimiyle yazılan metin, sistemin ANSI kod sayfasını kullanır; UTF-8 gerektiren dosyalarda Türkçe karakterler (ş, ğ, İ) bozuk görünebilir. UTF-8 çıktısı gerekiyorsa ADODB.Stream gibi farklı bir yöntem kullanmanız gerekir.
• Workbooks.Open ile karıştırmayın: Excel çalışma kitabı açmak için Workbooks.Open yöntemini kullanın; Open deyimi bir xlsx dosyasını kitap olarak açmaz, onu ham bayt dosyası gibi işler. Çalışma kitabı açıldığında kod çalıştırmak için ise Workbook_Open olayı kullanılır.
• İlgili konular:
  • Close: Açık dosya kanalını kapatır.
  • FreeFile: Kullanılabilir boş kanal numarasını verir.
  • Print # ve Write #: Sıralı dosyaya veri yazar.
  • Line Input # ve Input #: Sıralı dosyadan veri okur.
  • EOF ve LOF: Dosya sonunu ve dosya uzunluğunu verir.
  • Get ve Put: Binary ve Random dosyalarda okuma ve yazma yapar.
  • Dir: Dosyanın var olup olmadığını denetler.
  • Workbooks.Open: Excel çalışma kitabı açar.
  • Workbook_Open: Çalışma kitabı açıldığında çalışan olaydır.