ListView'den yeni excell raporu oluşturma ???

[unalh]

S.a Arkadaşlar,

Ekteki dosyada ListView'de olan verileri excel'e gönder butonuna basınca yeni bir excell açıp oraya raporlamak istiyorum.

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

Hayırlı işler.

 

[Orion1]

Dosyanız ektedir.
Esasa dosyanın buluınduğu klasöre çıkarıyor.

Private Sub CommandButton1_Click()
Dim i As Long, k As Integer
Workbooks.Add
Application.ScreenUpdating = False
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Lstview" & Format(Now, "dd.mm.yyyy hh_mm_ss") & ".xls"
For i = 2 To ListView1.ColumnHeaders.Count
    ActiveWorkbook.Sheets(1).Cells(1, i - 1).Value = ListView1.ColumnHeaders(i).Text
Next
On Error Resume Next
For i = 1 To ListView1.ListItems.Count
    For k = 2 To ListView1.ColumnHeaders.Count
            ActiveWorkbook.Sheets(1).Cells(i + 1, k - 1).Value = ListView1.ListItems(i).SubItems(k - 1)

    Next k
Next i
ActiveWorkbook.Sheets(1).Range("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True

ActiveWorkbook.Close True
MsgBox "Yeni dosyaya veriler kaydedildi" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[unalh]

Evren Hocam çok teşekkür ederim.

Dosya istediğimgibi işimi görüyor.

Bir ayrıntı olarak kayıt yolu belirtme şansımız olurmu ? Bulunduğu dosyaya değilde bizim belirleyeceğimiz yere kayıt yapsın.

 

[MURATYALCIN1978]

Sn.Evren Gizlen hocam
yapmış olduğunuz kodu inceledim ve benimde ihtiyacım olan kodları içermekte ama birtürlü uygulayamadım. Bu konu içerisinde göndermek istemedim yeni konu olarakta açmıştım. Yardımcı olursanız sevinirim.

 

[Orion1]

Evren Hocam çok teşekkür ederim.

Dosya istediğimgibi işimi görüyor.

Bir ayrıntı olarak kayıt yolu belirtme şansımız olurmu ? Bulunduğu dosyaya değilde bizim belirleyeceğimiz yere kayıt yapsın.

Aşağıdaki kırmızı yere siz kendi yolunuzu yazın.
ActiveWorkbook.SaveAs Filename:="C:\Evren\Lstview" & Format(Now, "dd.mm.yyyy hh_mm_ss") & ".xls"

 

[unalh]

Evren hocam,

Ben şöyle düşünmüştüm dosya oluşturulduktan sonra karşımıza nereye kayıt yapmak istiyorsunuz gibi bir ibare ve bizim seçeceğimiz yere kayıt yapsın gibi.

 

[unalh]

S.a

Arkadaşlar,

Bu şekilde kayıt yeri seçme eklenebilirmi ?

 

[halit3]

bunu silin ve yerine

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Lstview" & Format(Now, "dd.mm.yyyy hh_mm_ss") & ".xls"

bu kodu kullanınız.

Dim Baslik As String
Baslik = "Kayıt yapılacak Klasörü Seçin"
Set Obj = CreateObject("shell.application")
Set Klasor = Obj.BrowseForFolder(0, Baslik, 50, &H0)
kaynak = Klasor.items.Item.Path
If Len(kaynak) = 3 Then
kaynak = Mid(kaynak, 1, 2)
Else
kaynak = kaynak
End If
ActiveWorkbook.SaveAs Filename:=kaynak & "\Lstview" & Format(Now, "dd.mm.yyyy hh_mm_ss") & ".xls"

 

[unalh]

Halit (Evren) Hocam Çok teşekkür ederim

Hayırlı işler.

 

[halit3]

Halit (Evren) Hocam Çok teşekkür ederim

Hayırlı işler.

iyi çalışmalar

 

[Orion1]

Halit (Evren) Hocam Çok teşekkür ederim

Hayırlı işler.

Teşekkür etmişsiniz.İyi tamamda benim ismimim niye parantez içine aldınız..7nci mesajdaki istediğinizi yapnmadım ,bundan dolayı benim yapamadığımı düşündünüzde sana ancak bu işi ismin parentez içine alınacak kadar biliyorsun,sanada teşekkür ediyorum ama senin teşekkürün ancak parentez içi kadar olrmu diye düşünüyorsun.
7nci mesajdan istediğini sanki baştan söyleseydin ben yapamayacakmıydım.
Hayret bir şey!İnsanlara yardım ediyoruz.Karşılığında ne görüyoruz?

 

[unalh]

Evren Gizlen;

Ben size teşekkür etmiştim yaptıklarınız için yine teşekkür ediyorum


Evren Hocam çok teşekkür ederim.

Dosya istediğimgibi işimi görüyor.


Bu Forumda sorulara cevap veren tüm arkadaşları takdir ediyorum.


Soruya halit hoca cevap vermiş ben ona verdiği cevap için teşekkür ederken sizede tekrar teşekkür etmek için parantez içersinde yazdım parantez içersinde yazmamın amacı belirtmek idi ama siz yanlış değerlendirdiniz yanlış değerlendirmenizi istemem.
7nci mesajdaki istediğinizi yapnmadım ,bundan dolayı benim yapamadığımı düşündünüzde sana ancak bu işi ismin parentez içine alınacak kadar biliyorsun,sanada teşekkür ediyorum ama senin teşekkürün ancak parentez içi kadar olrmu diye düşünüyorsun.
Bu şekilde düşündürdüysem tekrar özürdilerim.

Hakkınızı helal edin

Hayırlı işler.