workbook

[Astik]

Arkadaşlar merhaba,

ben userform kullanarak command button 1'e bir textbox atadım.. bu textboxa yazdığım değerle klasörümün içinde bir yere textboxa yazdığım şeyin ismi ile aynı olan bir excel dosyası yaratmak istiyorum..

yani textbox'a elma yazayım klasörümde elma isimli bir excelworkbook oluşsun..

yardım edebilen olursa çok sevinirim..

 

[hamitcan]

Aşağıdaki kodu dener misiniz ?

Sub ac()
Set NewBook = Workbooks.Add
    With NewBook
        .SaveAs Filename:=textbox1.Text 
        .Close
    End With
End Sub

 

[Astik]

çok teşekkürler.. tam istediğim gibi..

 

[Astik]

aslında tam istediğim gibi değilmiş

kaydedeceğim dosyanın yerini nasıl belirleyeceğim ? bu programla "belgelerim" dosyasının içine kaydediyor kendi kendine..

 

[hamitcan]

Yolu siz belirleyeceksiniz.
Örnek: "C:\deneme\deneme2\dosyaismi.xls"

 

[Astik]

tamam bunu düşünmüştüm.. ama
"C:\deneme\deneme2\textbox1.xls" dediğimde hata veriyor..

ilgine teşekkür

 

[ECYavuz]

Selamlarİ

Sizin C:\ dizininizde deneme directory si ve altında da deneme2 adında başka bir dir var mı?

ve TextBox da kaydetme ismi olarak "TextBox1.xls" ismini mi? girmiştiniz?

 

[hamitcan]

tamam bunu düşünmüştüm.. ama
"C:\deneme\deneme2\textbox1.xls" dediğimde hata veriyor..

ilgine teşekkür

Ben size örnek vermiştim. Kaydedeceğiniz yeri, siz, belirleyeceksiniz.

 

[Astik]

tamam kaydedilecek yerde sorun yok sayın hamitcan
isim verirken sorun çıkıyor..

 

[ECYavuz]

tamam kaydedilecek yerde sorun yok sayın hamitcan
isim verirken sorun çıkıyor..

TextBox da kaydedilecek isimi verirken .xls ekini vermiyor olabilimisiniz.

Yani TextBox1.Value="TextBox" olabilirde bunu siz;

"C:\deneme\deneme2\TextBox1.value" & ".xls" olarak kaydetmeniz gerekebilir.

 

[Astik]

bu sefer de syntax error veriyor..

 

[hamitcan]

Formu çalıştırdığınızda textbox içine yazacağınız yol&dosyaismi, sizin dosyanızı nereye ve hangi isimde kaydedeceğinizi belirleyecektir.

Sub ac()
Set NewBook = Workbooks.Add
    With NewBook
        .SaveAs Filename:=textbox1.Text 'c:\dosyaismi.xls şeklinde olmalı.
        .Close
    End With
End Sub

 

[Astik]

ellerinize sağlık