الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Export Data From List View To Excel

بدأه chocolete في 8 سبتمبر 2008 · 1 رد · 934 مشاهدة · في Microsoft Visual C#.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

مرحبا

ممكن مساعده بتحويل هذا الكود ل vb.net

private void Export2Excel() 
{ try 
{ 
//lvPDF is nothing but the listview control name 
string[] st = new string[lvPDF.Columns.Count]; 
DirectoryInfo di = new DirectoryInfo(@"c:\PDFExtraction\"); 
if (di.Exists == false) di.Create(); 
StreamWriter sw = new StreamWriter(@"c:\PDFExtraction\" + txtBookName.Text.Trim() + ".xls", false); 
sw.AutoFlush = true; for (int col = 0; col < lvPDF.Columns.Count; col++) { sw.Write("\t" + lvPDF.Columns[col].Text.ToString()); } int rowIndex = 1; int row = 0; string st1 = ""; 
for (row = 0; row < lvPDF.Items.Count; row++) 
{ if (rowIndex <= lvPDF.Items.Count) rowIndex++; st1 = "\n"; for (int col = 0; col < lvPDF.Columns.Count; col++) 
{ st1 = st1 + "\t" + "'" + lvPDF.Items[row].SubItems[col].Text.ToString();
 } 
sw.WriteLine(st1); } sw.Close(); FileInfo fil = new FileInfo(@"c:\PDFExtraction\" + txtBookName.Text.Trim() + ".xls");
 if (fil.Exists == true) 
MessageBox.Show("Process Completed", "Export to Excel", MessageBoxButtons.OK, MessageBoxIcon.Information); } 
catch (Exception ex) { } 
}

تم تعديل هذه المشاركة بواسطة chocolete في 8 سبتمبر 2008 في 11:06

#2
اقتباس
Private Sub Export2Excel()

    Try

        'lvPDF is nothing but the listview control name

        Dim st As String() = New String(lvPDF.Columns.Count - 1) {}

        Dim di As New DirectoryInfo("c:\PDFExtraction\")

        If di.Exists = False Then

            di.Create()

        End If

        Dim sw As New StreamWriter("c:\PDFExtraction\" + txtBookName.Text.Trim() + ".xls", False)

        sw.AutoFlush = True

        For col As Integer = 0 To lvPDF.Columns.Count - 1

            sw.Write("" & Chr(9) & "" + lvPDF.Columns(col).Text.ToString())

        Next

        Dim rowIndex As Integer = 1

        Dim row As Integer = 0

        Dim st1 As String = ""

        For row = 0 To lvPDF.Items.Count - 1

            If rowIndex <= lvPDF.Items.Count Then

                rowIndex += 1

            End If

            st1 = "" & Chr(10) & ""

            For col As Integer = 0 To lvPDF.Columns.Count - 1

                st1 = st1 + "" & Chr(9) & "" + "'" + lvPDF.Items(row).SubItems(col).Text.ToString()

            Next

            sw.WriteLine(st1)

        Next

        sw.Close()

        Dim fil As New FileInfo("c:\PDFExtraction\" + txtBookName.Text.Trim() + ".xls")

        If fil.Exists = True Then

            MessageBox.Show("Process Completed", "Export to Excel", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End If

    Catch ex As Exception

    End Try

End Sub

من هنا

تم تعديل هذه المشاركة بواسطة vbm في 8 سبتمبر 2008 في 11:45

أصفق أو لا أصفق فخلفي كتلة شحم تصفق وبعض المساحيق كانت تصفق وجاري يصفق وأسأل .. هل أعجبته الرواية؟ يبحلق ثم يلكز جنبي ويمضي يصفق أصفق أو لا أصفق أمامي كل الرؤوس تصفق وخلفي كل الصفوف تصفق أتى مارد شدني من يدي وتساءل لم لا تصفق تصايح كل الحضور اطردوه تحسست عقلي اطردوه أفقت لنفسي طريداً طريد فصفقت حتى انقطاع الوريد حتى انقطاع الوريد أصفق من أجل ذاك الذي لايصفق

مواضيع مشابهة