Dosya Kayıt

[excelman]

Merhabalar;

Excel çalışmamda verileri makro ile yeni bir sayfa ya alıyorum.
Benim istediğim verileri aldıktan sonra dosyayı C/Deneme klasörüne hft1.xls şeklinde
kaydetsin.
* Fakat kaydetmeden önce C sürücüsünü kontrol etsin Deneme klasoru yoksa olustursun.
* Deneme klasörü varsa yeni klasor olusturmadan direkt olarak kaydetsin.

Yardımlarınız için şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Eğer aynı isimde bir dosya varsa zaten uyarı otomatikman verilecektir.

[vb:1:1729a7b8e1]Sub kaydet()
On Error Resume Next
ActiveWorkbook.SaveAs Filename:="C:\deneme\hft1.xls"
End Sub
[/vb:1:1729a7b8e1]

 

[Haluk]

[vb:1:05072ca04f]Sub Test()
Dim FSO As Object
Dim MyFolder As String, MyFile As String
MyFolder = "C:\Deneme"
MyFile = "hft1.xls"
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FolderExists(MyFolder) Then
FSO.CreateFolder (MyFolder)
End If
ActiveWorkbook.SaveAs Filename:=MyFolder & Application.PathSeparator & MyFile
Set FSO = Nothing
End Sub
[/vb:1:05072ca04f]

 

[excelman]

İlginiz için gerçekten çok teşekkür ederim.
Kodlar tam istediğim işi yapıyor.

 

[sekand]

selamlar
hocam verdiğiniz kod ile dosyayı farklı kaydediyorum ancak o andaki dosyanın adı değişiyor.Burdaki amacım dosyanın yedeğini almak bu şekilde farklı kaydet yapılyor ancak dosyaya verilen isim hft1.xls aktif oluyor .bern istiyorum ki dosyayı istediğim dizine yedeklesin ve tekrar açmasın ben orjinal dosyamda çalışmaya devam edeyim
saygılar

 

[Haluk]

bern istiyorum ki dosyayı istediğim dizine yedeklesin ve tekrar açmasın ben orjinal dosyamda çalışmaya devam edeyim

O zaman, aşağıdaki kodu kullanın...

[vb:1:370b60445e]Sub Test2()
Dim FSO As Object
Dim MyFolder As String, MyFile As String
MyFolder = "C:\Deneme"
MyFile = "hft1.xls"
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FolderExists(MyFolder) Then
FSO.CreateFolder (MyFolder)
End If
ActiveWorkbook.SaveCopyAs Filename:=MyFolder & Application.PathSeparator & MyFile
Set FSO = Nothing
End Sub
[/vb:1:370b60445e]

 

[sekand]

yardımlarınız için teşekkürler elinize sağlık
saygılar

 

[INSMUH]

[vb:1:c5d92c27f4]Sub Test()
Dim FSO As Object
Dim MyFolder As String, MyFile As String
MyFolder = "C:\Deneme"
MyFile = "hft1.xls"
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FolderExists(MyFolder) Then
FSO.CreateFolder (MyFolder)
End If
ActiveWorkbook.SaveAs Filename:=MyFolder & Application.PathSeparator & MyFile
Set FSO = Nothing
End Sub
[/vb:1:c5d92c27f4]

Yedeğini aldığımız dosyanın adını kayıt yaptığımız tarih olarak değiştirebilir mi? Ã?rneğin; "22Haziran2005 1330" 13:30 kayıt saati.
Böyle birşey mümkün mü?
İyi çalışmalar..

 

[Haluk]

....
Yedeğini aldığımız dosyanın adını kayıt yaptığımız tarih olarak değiştirebilir mi? Ã?rneğin; "22Haziran2005 1330" 13:30 kayıt saati.
Böyle birşey mümkün mü?
....

Aşağıdaki satırı, yukarıda orjinal kodlardaki ile değiştirin ...

    MyFile = Format(Now, "ddmmmmyyyy hhmm")

 

[sscey]

Farklı kaydet ve kopyala macroları çok işime yaradı, çok teşekkürler...