Sayfa ismi değiştirmek (Lütfen yardım çok önemli)

[xtanerx]

Arkadaşlar,
c:\excel klasörü içinde 700 adet excel dosyam var.Bu dosyaların dosya adı ile sayfa adı aynı.Tüm dosyalardaki sayfa adlarına tek bir isim vermek istiyorum.(Tüm dosyalar tek sayfa içeriyor).Bu sayfaların tamamının adını "Sayfa1" yapmam mümkün mü? Lütfen yardım edin çok gerekli.
Teşekkür ederim.

 

[isakarakus]

merhaba,
Sn. danersin'in de kodlarıı kullanarak bir deneme yaptım,
ancak ben denemedim.
Mantık olarak bu şekilde çalışması lazım.

[vb:1:b9f43e4d44]Sub deneme()
Dim MyFolder As String, MyFile As String
MyFolder = "C:\Excel"
MyFile = Dir(MyFolder & Application.PathSeparator & "*.xls", vbDirectory)
Do While MyFile <> ""

Workbooks.Open Filename:=MyFolder & "\" & MyFile
ActiveWorkbook.Sheets(1).Name = "Sayfa1"
ActiveWorkbook.Save
ActiveWorkbook.Close

MyFile = Dir

End Sub[/vb:1:b9f43e4d44]

 

[kozgunen]

Selam,
Benzer sıkıntıyı ben de yaşadım.
Sayın ısakarakus verdiğiniz kod için çok teşekkür ederim ama maalesef çalıştıramadım
"Do without Loop" gibi bir hata verdi

Ben de biraz sağını solunu eğip şu şekle soktum...

visual basic kodu:
--------------------------------------------------------------------------------
Sub deneme()
Dim MyFolder As String, MyFile As String
MyFolder = "C:\Excel"
MyFile = Dir(MyFolder & Application.PathSeparator & "*.xls", vbDirectory)
Do While MyFile <> ""

Workbooks.Open Filename:=MyFolder & "\" & MyFile
ActiveWorkbook.Sheets(1).Name = "Sayfa1"
ActiveWorkbook.Save
ActiveWorkbook.Close

MyFile = Dir

End Sub

Bu seferde şöyle bir problem ortaya çıktı
Boldladığım "ActiveWorkbook.Save" komutunu kabul etmiyor
yani dosyaları açıyor sayfa isimlerini değiştiriyor sonra kaydetmeden kapatıyor.
Ben de bu satırı çıkartıp manuel olarak kaydetmeyi düşünüyorum.
Dosya sayısının fazla olduğu durumlarda bu biraz pösteki saymak gibi birşey ama elimden fazlası gelmedi.

Fikirlerinizi duymak isterim...
Saygılarımla

 

[kozgunen]

Çok çok çok özür dilerim
kolaylık olsun diye kopyala yapıştır yapınca bazen hatalar olabiliyor
:kafa:

Doğru (?) olarak kastettiğim kod aşağıdadır...


Sub deneme()

Dim MyFolder As String, MyFile As String
MyFolder = "C:\Excel"
MyFile = Dir(MyFolder & Application.PathSeparator & "*.xls", vbDirectory)

Do
Workbooks.Open Filename:=MyFolder & "\" & MyFile
ActiveWorkbook.Sheets(1).Name = "1"
ActiveWorkbook.Save

ActiveWorkbook.Close


MyFile = Dir
Loop While MyFile <> ""



End Sub

 

[danersin]

Bu kodları denedim çok güzel çalışıyor. :?
Başka problem yaşayan varmı acaba bu kodlarla.

[vb:1:6cc79a0974]Sub deneme()
Dim MyFolder As String, MyFile As String
MyFolder = "C:\Excel"
MyFile = Dir(MyFolder & Application.PathSeparator & "*.xls", vbDirectory)
Do
Workbooks.Open Filename:=MyFolder & "\" & MyFile
ActiveWorkbook.Sheets(1).Name = "1"
ActiveWorkbook.Save
ActiveWorkbook.Close
MyFile = Dir
Loop While MyFile <> ""
End Sub[/vb:1:6cc79a0974]

 

[Levent Menteşoğlu]

Bende şimdi bir deneme yaptım hiç sorunsuz çalıştı.