Excel A1 Hücresindeki adrese kayıt etsin...

[umutsancar]

Merhaba,

Arkadaşlar, hücre içine yazdığım adrese nasıl kayıt yapabilirim?
Ã?rneğin; A1 hücresinde e:\Kayıtlarım\Haziran yazıyorsa o adrese kaydetsin. Hatta o klasör yoksa kendi yaratsın, uyarı yada kayıt penceresi de çıkarmasın. Yardımcı olursanız muktedir olurum...


Sevgiler & Saygılar,
Umut SANCAR

 

[Tarkan VURAL]

Selam;

Var olan bir dosyayı açmak yada dosya yoksa yaratmak için;

Private Function FileExists(FullFileName As String) As Boolean
    FileExists = Len(Dir(FullFileName)) > 0
End Function

Private Sub dosyaac()
If Not FileExists("C:\www.excel.web.tr\deneme.xls") Then
  Workbooks.Add
  ActiveWorkbook.SaveAs Filename:= _
  "C:\www.excel.web.tr\deneme.xls"
ActiveWorkbook.Close
Else
    Workbooks.Open "C:\www.excel.web.tr\deneme.xls"
End If
End Sub

 

[Tarkan VURAL]

A1 hücresindeki değeri referans almak için:

Private Sub dosyaac()
Dim hucrem As String
hucrem = Cells(1, 1).Value & ".xls"
If Not FileExists("C:\www.excel.web.tr\" & hucrem) Then
  Workbooks.Add
    ActiveWorkbook.SaveAs Filename:="C:\www.excel.web.tr\" & hucrem
ActiveWorkbook.Close
Else
    Workbooks.Open "C:\www.excel.web.tr\" & hucrem
End If
End Sub