verileri text dosyasına aktarmak

CeNK_aLPeR · 12 Şubat 2007

arkadaşlar konumu biraz daha geliştirmem istendi bende farklı bir konu olduğu için yeniden bir başlık açmak durumunda kaldım...

istenilen şey, sayfadaki bilgileri text dosyasına aktarması.

Sub textolustur()
selected_row = 4
If MsgBox("Bütün kayıtlar daha önceden belirlenen düzen içinde C:\cas\araştırma ödevi\text.txt isimli text dosyasına yazdırılacaktır." + _
"İşleme Devam Etmek İstiyor musunuz?", vbYesNo + vbQuestion, "Kayıt Yazdır") = 6 Then

If (Trim(Excel.ActiveSheet.Cells(selected_row, 1)) <> "") Then
Open "C:\cas\araştırma ödevi\text.txt" For Output As #3
Do
If (Trim(Excel.ActiveSheet.Cells(selected_row, 1)) = "") Then
Exit Do
End If
If (Olustur) Then
Else
MsgBox "C:\cas\araştırma ödevi\text.txt dosyası oluşturulamadı.Lüften düzeltilmesi gereken alanı düzelttikten sonra tekrar deneyiniz"
Close #3
Kill ("C:\cas\araştırma ödevi\text.txt")
Exit Sub
End If
selected_row = selected_row + 1
Loop
Close #3
End If
If MsgBox("text.txt dosyası oluşturuldu açmak istermisiniz?", vbOKCancel, "C:\text.txt") = vbOK Then
Open "C:\cas\araştırma ödevi\text.BAT" For Output As #2
Print #2, "notepad C:\cas\araştırma ödevi\text.txt"
Close #2
Shell ("C:\cas\araştırma ödevi\text.bat")
End If
End If
End Sub

kodunu uyguladığımda bana hatalar veriyor.Yrdımcı olabilirmisiniz?

verileri text dosyasına aktarmak

CeNK_aLPeR