- Katılım
- 20 Haziran 2008
- Mesajlar
- 697
- Excel Vers. ve Dili
- Microsoft Office ev ve iş 2019
- Altın Üyelik Bitiş Tarihi
- 03-07-2024
Arkadaşlar Hem Excel Dosyamın ismini (ki aşağıdaki kod bunun için)ve de o ona hangi sayfadaysam yani aktif sayfayı nasıl kaydederim
örneğin çalışma.xls dosya adı temmuz sayfa adı
kayıt yaparken çalışma dosyasının temmuz sayfası kayıt edilmiştir olacak
amacım aynı dosyada farlı sayfaları c:yeni klasöre dosya adı ile birlikte sayfa adlarınıda kaydetmek
umarım anlatabilmişimdir
Sub txt_oluştur()
Dim DosyaYolu As String
Dim YolAyirici As String
Dim DosyaAdi As String
Dim DosyaSatiri As String
Dim i As Long
Dim j As Integer
If Selection.Rows.Count = 1 And Selection.Columns.Count = 1 Then
MsgBox "Büyük Olasılıkla Hücreleri Seçmediniz..."
Exit Sub
End If
DosyaYolu = "C:\Yeni Klasör\temmuz"
YolAyirici = Application.PathSeparator
DosyaAdi = Split(ThisWorkbook.Name, ".")(0) & "-" & Format(Date, "dd-mm-yyyy") & ".txt"
Open DosyaYolu & YolAyirici & DosyaAdi For Output As #1
For i = 1 To Selection.Rows.Count
DosyaSatiri = ""
For j = 1 To Selection.Columns.Count
If j <> Selection.Columns.Count Then
DosyaSatiri = DosyaSatiri & Selection(i, j) & vbTab
Else
DosyaSatiri = DosyaSatiri & Selection(i, j)
End If
Next j
Print #1, DosyaSatiri
Next i
Close #1
MsgBox "Dosya " & DosyaYolu & " Dizinine " & DosyaAdi & " Adında Oluşturuldu"
End Sub
Kod:
ActiveWorkbook.Save
kayıt yaparken çalışma dosyasının temmuz sayfası kayıt edilmiştir olacak
amacım aynı dosyada farlı sayfaları c:yeni klasöre dosya adı ile birlikte sayfa adlarınıda kaydetmek
umarım anlatabilmişimdir
Sub txt_oluştur()
Dim DosyaYolu As String
Dim YolAyirici As String
Dim DosyaAdi As String
Dim DosyaSatiri As String
Dim i As Long
Dim j As Integer
If Selection.Rows.Count = 1 And Selection.Columns.Count = 1 Then
MsgBox "Büyük Olasılıkla Hücreleri Seçmediniz..."
Exit Sub
End If
DosyaYolu = "C:\Yeni Klasör\temmuz"
YolAyirici = Application.PathSeparator
DosyaAdi = Split(ThisWorkbook.Name, ".")(0) & "-" & Format(Date, "dd-mm-yyyy") & ".txt"
Open DosyaYolu & YolAyirici & DosyaAdi For Output As #1
For i = 1 To Selection.Rows.Count
DosyaSatiri = ""
For j = 1 To Selection.Columns.Count
If j <> Selection.Columns.Count Then
DosyaSatiri = DosyaSatiri & Selection(i, j) & vbTab
Else
DosyaSatiri = DosyaSatiri & Selection(i, j)
End If
Next j
Print #1, DosyaSatiri
Next i
Close #1
MsgBox "Dosya " & DosyaYolu & " Dizinine " & DosyaAdi & " Adında Oluşturuldu"
End Sub