ذخیره ی محتویات DataGridView در یک فایل Excel

[mohandes1381]

سلام.
آیا راه حل یا کامپوننتی وجود داره که بشه با استفاده از اون محتویات یک Datagridview رو در یک فایل excel ذخیره کرد؟

[masoudcarpet]

آره وجود داره اول باید این رفرنس ها رو اضافه کنی

Imports System.Data
Imports System.Data.SqlClient
Imports VB = Microsoft.VisualBasic
Imports Microsoft.Win32
Imports System.Globalization.PersianCalendar
Imports System.Collections.Generic

بعد باید یه دکمه درست کنی و این کد رو بنویسی


PrivateSub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
System.Threading.Thread.CurrentThread.CurrentCultu re = New System.Globalization.CultureInfo("en-US")
lang_EN()
SaveFileDialog1.Filter = "*.xls|*.xls"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> ""Then
Dim oExcel AsObject
Dim oWorkBook AsObject
Dim oSheet AsObject
oExcel = CreateObject("Excel.Application")
oWorkBook = oExcel.Workbooks.Add
oExcel.visible = True
Dim c, r AsInteger
Dim ColNum AsInteger = DataGridView1.ColumnCount
Dim RowNum AsInteger = DataGridView1.RowCount
Dim col AsInteger = 65
oSheet = oWorkBook.worksheets(1)
For c = 1 To ColNum
oSheet.Range(CStr(Chr(col) & 1)).Value = DataGridView1.Columns(c - 1).HeaderText
col += 1
Next
For r = 1 To RowNum
For c = 1 To ColNum
oSheet.Cells(r + 1, c) = DataGridView1.Rows(r - 1).Cells(c - 1).Value
Next
Next
oWorkBook.SaveAs(SaveFileDialog1.FileName, True)
oSheet = Nothing
oWorkBook = Nothing
oExcel = Nothing
EndIf
lang_FA()
EndSub

ضمنا نوشتن این دو کد یادت نره:


PublicSub lang_FA()
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("Fa"))
EndSub
PublicSub lang_EN()
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("En"))
EndSub

موقع فرم لود هم بنویس


lang_FA()

ضمنا سعی یادت نره زود نامید نشو کدها درسته باید کد رو تصحیح کنی مثلا اسم دیتا گرید ویو رو با مال خودت ست کن ، آخ یادم رفت بگم یه دونه SaveFileDialog1 هم اضافه کن

[mohandes1381]

دست گلت درد نکنه. روش شما جواب داد.
یک روش هم من استفاده کردم که اون هم جواب می داد. ولی برنامه ای که این فایل رو میخواستم به اون بفرستم این فایل رو قبول نمی کرد.
کد اون هم به صورت زیر بود:



Public Sub exportExcel(ByVal grdView As DataGridView, ByVal filePath As String)

' Open the file and write the headers
Dim fs As New IO.StreamWriter("c:\\test.xls", False)
fs.WriteLine("<?xml version=""1.0""?>")
fs.WriteLine("<?mso-application progid=""Excel.Sheet""?>")
fs.WriteLine("<ss:Workbook xmlns:ss=""urn:schemas-microsoft-com:office:spreadsheet"">")

' Create the styles for the worksheet
fs.WriteLine(" <ss:Styles>")

' Style for the column headers
fs.WriteLine(" <ss:Style ss:ID=""1"">")
fs.WriteLine(" <ss:Font ss:Bold=""1""/>")
fs.WriteLine(" <ss:Alignment ss:Horizontal=""Center"" ss:Vertical=""Center"" " & _
"ss:WrapText=""1""/>")
fs.WriteLine(" <ss:Interior ss:Color=""C#‎0C0C0"" ss:Pattern=""Solid""/>")
fs.WriteLine(" </ss:Style>")

' Style for the column information
fs.WriteLine(" <ss:Style ss:ID=""2"">")
fs.WriteLine(" <ss:Alignment ss:Vertical=""Center"" ss:WrapText=""1""/>")
fs.WriteLine(" </ss:Style>")
fs.WriteLine(" </ss:Styles>")

' Write the worksheet contents
fs.WriteLine("<ss:Worksheet ss:Name=""Measurement Results"">")
fs.WriteLine(" <ss:Table>")
For i As Integer = 0 To grdView.Columns.Count - 1
fs.WriteLine(String.Format(" <ss:Column ss:Width=""{0}""/>", _
grdView.Columns.Item(i).Width))
Next
fs.WriteLine(" <ss:Row>")
For i As Integer = 0 To grdView.Columns.Count - 1
fs.WriteLine(String.Format(" <ss:Cell ss:StyleID=""1"">" & _
"<ss:Data ss:Type=""String"">{0}</ss:Data></ss:Cell>", _
grdView.Columns.Item(i).HeaderText))
Next
fs.WriteLine(" </ss:Row>")

' Check for an empty row at the end due to Adding allowed on the DataGridView
Dim subtractBy As Integer, cellText As String
If grdView.AllowUserToAddRows = True Then subtractBy = 2 Else subtractBy = 1
' Write contents for each cell
For i As Integer = 0 To grdView.RowCount - subtractBy
fs.WriteLine(String.Format(" <ss:Row>"))
Dim idx As Integer = 0
For intCol As Integer = 0 To grdView.Columns.Count - 1
cellText = grdView.Item(intCol, i).Value
' Check for null cell and change it to empty to avoid error
If cellText = vbNullString Then cellText = ""
fs.WriteLine(String.Format(" <ss:Cell >" & "<ss:Data ss:Type=""String"">{0}</ss:Data></ss:Cell>", cellText.ToString))
Next
fs.WriteLine(" </ss:Row>")
Next
' Close the document
fs.WriteLine(" </ss:Table>")
fs.WriteLine("</ss:Worksheet>")
fs.WriteLine("</ss:Workbook>")
fs.Close()

End Sub



باز هم ممنون.

[nowar1352]

mohandes1381 (http://barnamenevis.org/member.php?50554-mohandes1381)
http://barnamenevis.org/images/statusicon/user-offline.pngدوست عزيز اين كه اين ارور رو ميزنه علتش چيه ؟
http://barnamenevis.org/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAysAAAFACAIAAAA zmXS7AAAgAElEQVR4nO2de3AcyX3fd+UktlN2nLhMp5JU4hJSc SVVjpOLU+W4oooTJ6k8Kj47dh7lpA6xzkpSuXLsKI7ysGVFtsS zbMmOJZ/to2X5TrqTjrrjPXgUSfB5JI4AAeIAggQBgm+AIAgQwOK1eO+Ck z8GmBtMP6Z73rv7+da3tmZ7en79657B9oc9w92So1WpVNJX8Or 4X02OFfdK62uC6NvSl3jboR0M64V8W1XHZK80ZqCawWkxGs/Q8yUOlHiiTeIY7s1YL+3bF61C6IH+Ov7KgQPFXf5X2xY9qQa5U IOPEEItrhBwEd+qyCZZAjMhpFwIrFRSUpfJtiy+rkRKYIEcHO1 50RcmQmCB1m3PS756ad8+E0LSkJMYRKxjEkdFYNLgekFgCCFUf JU8Bd8rJnXNPC3OytI4JrtC65cEGdYXWwnt8t63O68iBknLvRI ZNkl2+d/qd4lDFDqSYn9tB80/INK9Jq2LhbnLT0h++ytIy/17xRIVhGniONo1M0OpBrmYg48QQq0pPpHDVcB5q3gZWaiA49lM Ar8QQqghxIdyuAoydanW0hpOBRnPZhUEhhBCDSE+lBFCCCGEsh YEhhBCCCGUtSAwhBBCCKGsBYEhhBBCCGUtCAwhhBBCKGtBYAgh hBBCWUv5X9ST+q/rmv8Dr/rSTpvgCeSp+dLUppTm62cRQgghlI3cLzTPr/nYbSdHilm3mIvEr87PKxOEEEKoleX9woyvSPHTOv5qJhO35nd+ VD9xI26HNSFJJtqaljSIIyyzGf7KkLQ8EE1aX/WTROq0gwqtr3mLEEIIoWwkITBpicgQhnO3ZsoXf0xQeog2eDAT MW2rUIESKXFKY6raldKVPs9Ub4ZCYAghhFARZEFgqo2QBrRTvv jWiglC18BsQ6lKTAhMujymGUbVcppl2qyBIYQQQo2nhicwPWnF XAML3Q5tyGRtzDBUIoLAEEIIoSJI+SR+BgQW8y6klIqSvQtpvm 1CYJq1MX0mCQoCQwghhIogyRQs3h0Ttx0DUFDdHQs8iR/YcAQyUwTXpWd1F1J191AaX9yrjyOGMmzXPH9bmd+yRAghhFBKY g7OVDAPQgghhBwILAOlvaaFEEIIoYYTUIAQQgghlLUgMIQQQgi hrAWBIYQQQghlLQgMIYQQQihrQWAIIYQQQlkLAkMIIYQQylqlt L8oIZGv/bT9EtFov24UUxl8mWqhZHVSAoOTyxAFvv438A3AWf5aQNrXc9p qgi/1bdzMEUJNI+XvQmYv1Wei9JeLIkdT17eqnkCcIox5ZNnyivhzT Ll0X/XLV1nOx9lcz+kpWv7R4qehRmdHhFDTSPJBpPlpHf9ek9DSpQXx Z4j8lcXy0PjSOrZrYI7ABNEWbKRB/BuhwUPLA9ESOV8lQaH1NW+1B0pKrAbZn6FqQ3pp+fPU5K8aAdX 1qWlamnxov0yuZ3816SAEjhLrSNu1Pe+h+Uvz1ORjlUwcpRocI YRMFPwg0ryNdudINZOJe00mHlW5tBWbJN9/9Zeo3oaGCpRIF36kMVXtqk5E4ufLUKHjrz7Q4q2+Xc1kb1hfrC M9UP829BrWxDFsLrTEkMakZGaSXpz8NdvmnwOJCwJDCOUuOwJL oAHL2SsvAnPs12b8oVQlJgRWki2PachMWl8VX512UKH1NW+1B1 q8tWrXFqRsCUw1Pn7QKQKBhW6I24YnPVr+cbZN8rG6bqO1ghBC aUj8WFe+bW4C05OWebD4BGYSVkVmJqESUQsSmD6lxiUwk/RsD8yMwCILAkMI5a6CEljodoIEJu2jLRloapoQWChRBSpDYM7u +oc+B019aYkqWjQCk8ZP6nr2HxuZwPTtJpK/NE9VHc12soLAEEK5SzppSdaESopbXbrQsrsD/reBXdISTbkYXNOuOsn3eyTdtumv5BBVfHGvPo4YyrBd8/xtZT7IYqrSQtvryhFmd/314G0Hdmn6Jb04pU34k9HHd5K7ngP9kvY0UEG1rRmKmPmLeWry 0cRPSvouI4RQZuIDqCHFxOGKGRQhhFCDigmsYZT2mlajiAUMhB BCTSDmMIQQQgihrAWBIYQQQghlrZSedeWVV14b9RUhhFAGSv4T t1RynPmnMcaNaCAMIYSyUToft3nPIhjjiEYIIZSJWAPDGL9v1s AQQigbFWsNbOcrBgzKSzLlPnslPRfudCrQQWl/0+t+ZoOsOvXJdsFq5NPolHlkk/OefP4IIYQyUeHWwFQzhwo4xI2kWiyCVb3LPuc4JJHNiTC5cqzo J7ORNK+cQf6sgSGEUDZKcQ3M/0/2wCyo+de8IYFpyqXxxbUEsbL56kK0Q/xNBzak4+OYEZgqE804qJo2n9E1gyCWh3ZHfx7FwsBJ1OSj6Z0q/9ADDZ1IcJPzbtKE9HTI4yCEEMpEaa2BiR/xoTOKfnIyLNfPWIY5JGjVOIhvTeprEo4wDlZ9NzxTqnZFcjI8C 9J2pUNhxTqRr0Nbx8c7k86a5G/4t8AaGEIIZaO01sA0M19A0aZMzVSkiW/VYrT8Q9OzmpvjEJgqTz8ApUFg0nY1G7bnXTWGLUVg4lBHGzfJ+ UIIIZSJslgDs5p7bA80nMj9801Kc61temkTmD6l9AhMfzgEZht cOmIR8je8lmAwhBDKRhmtgenpIcKUaT4VheYQOosnNQEH+C90b hZ5UUqQ0cZBSmDm8VXjVhACC92ORmCa8dGPtkmhJr70StAfpSn x15c0hxBCKBOl+H8hSz6J04m4y7bcvys0vmpbEycp+4MHcgjtl HQoVPGtxk01SZvHNx9/aY+kKRmeRzGs/jyG5mne3wjn3TyONPnQ8xKooG83tD5rYAghlI2K9X1gTW+rKbz VXPDBUeFRk3UzlQ8EhBBCggr3fWDNZ9WCBBYHKvccMkiv8N1M/CMBIYSQRKyBYYx9RgghlIlYA8MYv2/WwBBCKBul8nHrfojzyiuvDff60Z//iIMQQih9lfJOACFULAFhCCGUgSAwhNAeQWAIIZSBIDCEUFBAGE IIpa10Caz0Sbv4pU+WPPtLEskkWpxAPvlKlUnaGebVbvxWinPu AipmVp4gsIA056uw1xhCqOAqEIH5K6u2M0sm2aYTlCqltFPNq9 34rRTwJEoV4Z8rKWXiyhbCcvw7zV2NmDNCKHcVhcD0/8R0ZP/QFBfMAuWOjORUR4mNBqxv19+iyb+JA/XFcmmXnSRISDM+muQTbFczbiZ5hsZ31Oc9wXwCp8l8IUR/0RrG0dSPnE+gRx/9+Y/4S/y7HGF8Qv9YVB3Pvl+hbzXnXVVue8oChapkpK1bxUEIFVmNQWDS mUB6uPRTSX+sVVaqdsXmTIKr0jZPILRcU02VQNrtmqRhO7D682 5+/djmEzpuJgnbHqupb5uP5u+otAthAcgwuW5VTRiSinmehkGsPje k8WP+4Uc4XIV9cdJACBVKRfmL1ROYuO3/h6BmRgzEiQBJ+hLb2cXk2MwILFAuHc+k2hWbkEaITDa2109S+Y SOm3nCeRGY5u9ItQwmjV8oAnMMzq8mMas/fJN8NNeJ1V9Wgp8/CKHcVZQ/2ggEFi0OBBbt8GTbzZ3Akson8rRXHALTl3tPg0UmMG9XnEs0Zr +KQGC2uyAwhJpeBfqjtSISw48tq2NDoxnGjxBclWfaBGY+Jgm2 q1kDUM2Oicy4hvGt6qdEYCZhUyXXmAQmTSPapaIJaB5EPNyWqP QXGASGEIqgYv3Rlmye5C2pV/VVhapWNJlYxTeJHNovf7a2/bVqWjotmceP32X9OEjr2/bLNr55/fjjoDkFoUE09a2SkeYT2HYhzIv22sHnPR86eMBvVbm7SyxUWRp H025okMBR+uQ17YpBpPH1+fgrhwY3HAdNfYxxMe0UjcAQagiZQ 1JzyP/NFK8dfP781Xlbn7taiXAUxhg3pSEwhCxku7bUTPLfi3zt4PNWO HXuasV17h95GGNcEENgCCFTeRB26OCB3D+8MMa4oQ2BIYRMFY3 A6tt/Zr76I7l/2GGMcaEMgSGELORCmDmBjU22b2/9Mccp/8S/+vHcP+8wxrg4hsAQQhayJbDJ8bLj/DnHaXOc8r/96Zdy/8jDGOOCGAJDCNnpoz//EUMCuzv2zNJ02XH+pOP8RWel/M//2b/O5WOuXC6Xy+Voe3FKTnDYvVDmMTnpuAiGwBBCdjInsIc3y47zH eXyB8rlb3Wc73Jq5ad/9pDJgWWf4n/M6Wdof2F5ryI0ETNOzBbTaCglQ2AYp05gpdIeq/am03SpJAstlpdkSiWnFKTvprfLvF/m4xYIG3/QUhr2wEXoXXLpXXtx1BDXrQmB3b79scWxsuN8W7m8r1z6h87jf c5c+R/88E+dv+L7ToorlZ233sau05ih9XvjtJg9DzU6Q0BguCktXlqai y2jNTDpvJDBZKGakMSZTLWRVIupStNN/y7z3GzHLU5bGcjLRbNRKBX/ujUhsMmrZWftOxynXC7/zb/wgX/iPC45m9/tLJV+7he/8X41MwKTLinpt6V79TFVH5RiQLEwNJRttobdD+2aJoKYm2E0Va Gqm6H56yOb1IyQdll2rjGOb+lfgdT5EJh0QSIsgnytRf+vf8OZ TFMujS+uLYmVzVebDA8J1BEHRJqno5inpduacZCW68lPM26qXW J8f33VaBiOtiPjLdVimPTijLB4Jp6mQLk0c8Px15Trx1+6rclH DP7aK8+fu1LxLH6yjF7/dGW47Kz9KWe7XC7/5X/0xJNOpew43+OMl37gBz78fk3vWCGI6lNMM92qImg2VIX6D1axZ gQ4CI1jdax5ZU2j+qEwGaho+Zs3Z1gYrUWMk3LZJ021xlgD08w iqmqqEqtyzVvzHBKUqi1xovVvSFNVbatKNDVV8KSKoBkiVfzAX tX1ECopgYUujEkhTBpNCN60123oGtiDS+X65Lc6D8rOdPmn/vH3vPr573Yelp2pP/546lucifLHn+3YqRmDwFQfc+W9Oh9phlZ9mPpramZ0aajQo8S2 zLM1r6xqVF9f3339WbNKKUL3VfmbxME4JZtcY41HYIFy/T/f489kmvhWLUbLX5OhBqFUyJIGgan2xo+giRmZHlRrYIHtknqNV rWtaK5pr1v9GtjI8O/O9Zedpe907pWd8XL3a98+d+mbnPGyc6fsOH/FuVP+vr/+M1afXyaztaamZkNVaJiG6lhNKD0HmOegajG0sqpRUVYjb5hqN oXmw4hxGlb9gQTc8ASW7IFWU3v8mSyCIDCxWhoEZhIhDoEle2D 2161+DWz6YvnxvW937nzAuVV27pSdB2VnsuzcLjt3ys79b3Yef Jtzp/wrv/mOyUeYflv/VjMxh07qoWnoj9XU1LdonoOqxdDKVt007L55qtkUWvUR42Rtfq U1JIGpZuLQA23LNfFNaCAlGgtd1VBRmqpOZAJTxTTcDo2vOlbT L73yJbBmum41BDZ85Qtz3WVn+jud62VntOzMlMvl7/yrf/6DznjZGS07w2Wn/r3OUPn7v/8joR9hJgChggDp4WIcfzXzQrGOv1CfgyYNk+b0LepjaqYETQXD 7puMv/5cWB1uWFM6DprkMY5p8dLSXGz5fBuF5i6POo7uloq4y7bcvys0 vmpbEydBSXsktqvJWXpg4CiTcZO2Kx6iD6KPb9I7w6EWL7aS8M 0Uqks0tL66UYv+RigXR0ZTX7WtiaOShsAmz5TrV77FGSk718rO tbIzVi6Xv+t7vu2/OZWyc63sDJWdm3+iPvLNyxfLz37+TO4flw1hcAHjpjTfyIoaXo bQgBKUhsDuHi0vXfjA6sUPrPZ+YLX3A86V8qeeaTvy+39vs6/slqz1lJculJ2h8jf/6f+e+ydgQxgCw7gpDYGhhpRqQQhlIw2B3Xrn7/d99Zv6v1buf3nHl79WHvhqeafka+X+l8sjr5Z/5Wd/8C998JncPwExxjgvQ2AIIWvpn8R/7dTYp3773P4vdO7/HZ+/sOf12c+fOd0/k/snIMYY52UIDCFkLcPfhcQYY6wyBIYQshYEhjHGMQ2BIYSsBYFh jHFMQ2AIIWtBYBhjHNMQGELIWocOHsAYN61feT7/HFqjv04m34kf64sDNN/MGXpgtBbFdtOIrwkV+PLP2MHjRlCEDSqVZiIpkMxL+/a9tG+ff6Nl5Y6A+ThIax46eGBu+vrc9PW5R6Ox7AVJJFr28TWN Ztli9v3KuIOq86gv93bFbz3j/G3zUZ2RyJmn98dYzL+L9FLS9joLAktkYg58P3hmyWRGFXs76C+ 3+yWcjJXUeYnTrkmFRiSwNPL0xzSPLycw848tTbVIM9Ds9HXXp h9/+vgpTTZWwQs4J5l0qpgEJq2Q7zhHzl9zFlQlthAWGjDZcbBqwi qTyDEz6K+ilXQJTLNGYrt2Ip3pNQtj0siaRjXl+q6Jhf6N0PjS VlTjofopJ81P5Uh/PCdQX9qEdK8qc7FTmpPu7B09/4Y/Zmgc8/F0fAzREPglYqJ/4SpAUao1LWmJvkUVnsYlsEdqALKfy43AyzC+dM1A+m9WzcKPtG uqT95oweMvGyTVL+lg+g8Xt0PHWZWMdAxVeGGCWfpBCCQvdk1V Xz8UEfK3GnxNTP1oaFqRNtEQfxf6v5SM+xuayfT1Q68872S/BmZIOWIdcb5XzcGGTYfmo89NRR6BvaH9lZUo4UmRiY6WxF2Bnz sUq5ngl6MmUdVb6flS0ViC56WBCEzMUAVSesAyJ7DQagkQWOjk YRwqMQIzn8lCZzjDmUYTx2RisB3tNPplMnRSuDFv1+o86gnGfF IMnbk19aU5iDO3Vf5WhdEILD7hFfbvwnwwU+2vQYuHDh54ad++ HO5C6tcwVEGkBGbVdGgy4nJL5Ph+AtMv24S1It9W1THZK41pSH t764SgkmNwvjTMmtR5aQhp7pDqF7oMb62aBJeGSozAVJ/LNja9/xgtB9t/c2uaUG2r/m0dmk+cXifVL1W2mv6K24FOhZbHtOE4x+9vUsQsniB9TFsiscX NRw34dyFeV9n31yD5Q688nw+BWVVw9s70aRCYSQSztSs5gWmSD K1QfALTF0YmsATXwBpIoSxluJSV6oGJrYFZ2mUv/2t0hx4ebbYW65jM0NFm1mQ7bh5fk61JH5PqSIRsG4vATK6K0Ha tuhwTLKKdi8T/Lsy7lmp/DQ7M50n80CUT1SHJEpgJIeVCYCX10/cm27L4uhLDu5Dmq3dpEJhmDcx2TbH4Eh/2CuzVl0uDiHXM78ym+ByYpT3qiotf0qxUn+yhM5xmDtD/o1+1K7S+bTeT6pe0pr+wCARmMraabZP+pnq+bAc/GoFJW7EingL+XeiHPcf+KuLk8yR+6C05zTwtzsrSOCa7Quur8g +tL7YS2uW9b3deRQySlpcUT+irdpWEx+1Vu8QhCh1Jsb+2g+Yf EOlek9bFwoaTn5BsH8N31Pc0Q+9mmjRx6JXndz5xTGaaRGdc7z 9CJgNhgU9GaadU5ZqPdX1lD1akrRjWt+pgIv3S5Kk60ar4+qYT OaEmpyA0Geku8aSodsXJ32qv/jwaNqeq2Sh/F4YDnll/DfLP4i4kMlEBoaF4GVmogOPZTNpZA2t8l8vlcrmcexqBlFKK6X 9NxWbTf3oJFOdUlsvlFPtuznZWFJg4ChfcBehvRt/IikJVEGJQraU1nAoyns2qUAIr+5TNZ1mEhhLMLfFQ0gEUC8UK+ phiHcPMQ6qFLlTIQgW6o08+QpLxT4p1hN0ul0sl6eHFYURcBEN gCCFr6QmsUaaZghOYGFwsLAqBxetgUk0kfuFFDhifJnErGAJDC FlLQ2CauUdcvAmUiEGkdaR7NYeIi0mqw0ODzAnQo8nEH1bMQZW VdBg1kQNpm1QzOS8Zd1BzOkyaUHVNk4lJzqoDI1+oqtHArWkID CFkLVsCk87Z0UoCk1yEIKqspJHFqdQkVJys9L0Lnek1zRmemmw 66O+OyemIPIaa1q16YTJK0gE3GQrcmobAEELWSoPAxF3lvRKPi okCJvARgcA0R/l3iThlHlDVRDYElkgHTXoX+cyKmZh03JDAVPXFCxUCw3pDYAgh a2VGYKHBpXNeaEOqrEKzTZDA9B/NTUBg+g6a9M6w74ZdCz37kQlMP+AQGFYZAkMIWcv2SXzz6dN8G pbuKgiBWXXEHIxC42RGYPE7qDqD5gGtxtDk7FtxpEm2mjxBMTz nJ7Dm+A4ChFAGivBtFOJbf2XpduhR0l2GDUVrVzOD+uurUtXkH zqAqlGVJhCoqecJzWnKpYPSUyNtWhpEPFBaQR9Q1evQC0Y64Po Th1vWe9bA4uAX6IZQ66hpvpE1JYvTc+4pNXcHc08A4whWEpj0m znFn68RK4NiCDW9IDC9iwYozdpB/TIbxgW3nMDE3xYUtzV1EELNLQgMY4xjeofAAr/EHFjTkv7Yc0AQGEKtIwgMY4xjWklgGkFgCLW4IDCMMY7p4P+Fd KXBKas7lQihphQEhjHGMS0nMEfxcL1qO3AIQqi5BYFhjHFM842 sCCFrQWAYYxzTEBhCyFoQGMYYxzQEhhCy1qGDB7Y21rY21u7cu IwxxtjKEBhCKKI8ApN5VfTmutQrxq6K3liTetnYS6LXV6VejOW VhXieF71Wlbpi7DnRq8tSzxp7RvTKktSPbDwtuir3lLEfil5el HrS2A9ELy1IPWHs+6IX56Uej+XKWDzfE70wJ/VdY98RPT8r9W1j3xJdmZH6po1viJ57JDVrYAih2ILAIDAIDAKD wCAwhFDWgsAgMAgMAoPAIDCEUNaCwCAwCAwCg8AgMLRHL+3bl3 cKqPkFgUFgEBgEBoElQ2Ceon0c+w+3ChW5RbHdNOJrQr20b5/LOt5GQZRGMm4fPSce31GPZ4JnECUoCAwCg8AgMAisKGtg/pkyzqxpe2xmM3QBCUxsN71M/JEjt6I5EAJrLEFgEBgEBoFBYGmtgZX2KvQTWUpgmoUxaWRNo5p yVT6qIP6N0PiqVjxKyAW/VNgnZTLp8pVmWUsaXEVg+uCBbZPMxb1AWAEFgUFgEBgEBoGlsg ZmSDliHf+rV251l9AEgMzX26Tx/YAYGl9VkiOBqVoMXRJT5RyZwDRx9GtmmhIIrCGUPYGVy+VyuRw gMLfQnMB260NgEBgEBoEVlcCcsDUhaX1HQWChR+lLAsmIa2mR4/sJTLP8FtpKZtLf8VStLWkWusxvoarWulQJeAtg+sRMmi7I4CO/TAisLKjRCcw9XPXWisB2jlW8hcAgMAispQnMr5hrYFaRDW8CSn eZRFMRmCZJkwpZyvD+o3kdq2MTITCrhcNCDT5yZb4GpmCvZiCw OGtgWuSCwCAwCKyFCUx/V06zSpQsgZkQUgsSmCNbQDLBsuzvQooEFuE/LhRt8JETg8C8t+Vy2aWrvYtk75fs3a4Ky2lBAvPvDSCXVxgI4o GXv9ADr72F7xOYVxLYCFSWlAsE5pUHNvYeMr++Mr+3cOctBAaB QWDNQGCBu2+ht+Q0K1UBxFHFMdkVWl+4eRjStP+tbZeVc1F+Cn 0WLcJj+I4C71T3H/VxHO2amaGKOfgtrpgEtlsohS0dgbmrX+62n8C8Df9Cl7chXQPb 3V7yNrxtD7/8KKa5C+kvlxTKVrwCJd5bf3mAt/xrYBAYBAaBNQ+B5f153gAqMgfk8v8xs1GRh72VFX8NzL0LmSyB +SUugDU6gXlvuQsJgUFgEFhrCRTIRQx7MVVMAhOfAwtAWIMSmA hhEBgEBoFBYAihVlSjEFhg6atxCczPYdyFhMAgsKYisPnKJMYY GzopApM+iR8o9BOYv0TzJH7Z5i6k+ZP4/ofrQwlM/yS+/6H70Cfx95bwHBgEBoE1D4HNVyZZA0MIWYjvxLf6NgopgRl/SwXfRgGBQWBNS2DVpbnS8UurWOVv9Kw1hzv6mse5XxUtfnVBYC bWLIBBYBAYBAaBHTp4YGVprtQzUsMqdw3Xm8O9o83j3K+KFr+6 ILCY38hqYwgMAoPAmpfAqvOlntEaVjrvSTopXxrdbhrnf1W09t UFgUFgEBgEBoHFJ7DVlQXWwFrDudNGy4OL6/mVx9LXBjIEBoFBYBAYBBafwNZWF0vdI9tY5a6RenO4e3i7eZz3 VRHH8yuPP/fWhvia+xVibggMAoPAIDAILD6Bra9XITCdc5/tIDAIrGhWEdihgwcwxhgHrCKwzY2V0rvD21jl3J96TsrvDm03j/O+KuJYSWB5XyHxn8Q/dPCA4zjlcplXXnlttdfH6beSu+Yrk9vbW1b15x7d0BHY5nqpc6 iOlR5uEp8fqjWN878qYlhFYLlfIebWExhCqAX1OO8EMtB8ZdJx nIfz9cF79Uujmxeurp8bXD8zsH6qf9X9mqSjPetHLq6+2bVy++ Gm4zj37o/rCaxW24DAtM57toPAILCi2WQNLFRtT3Wn+lmZuNqe6i5yzonnV vyADZdAnBwSTD6lcXjsOG3t3W3tqQQvzhqY4ziD9+rjM49vPnx 8bbx+ZWx78E594Nb2pRvbPaO1rpF651D99MDWid6q4ziXr98JI 7DN0skrdaz0ULN4sImc+1URz597a2PndWjPa6PYcA3M/0Evbmc8HaqSiXB4MZVIhjFHyTx42pK2VYSTmBeBJXhmVYd/0N+EgsPc8pQoLQO5BHZpdPPmw8ejE/Urd7dd9uodrXcN17uG6p1D9bOD9dP9WyffW3Ec50zfzXACOzZQ wyofuVxvDh/vbx7nflW0+NVluAZWWALL/vAMBIGFtlWEk9gEBKbSB43DRiCwQq2BXbi27q5+9d/a/ZLw4drZwfqpgW3Xpwe2Tr9XdRzncOewnsC2t7dKx/prWOWj/VvN4RP9taZx7ldFi19dSa2Befbv8pdI64RWllYIbIcmEGhRenh oGoaZa1rXjFsgvuF4OtoJWDpimoCB3ALboa1rzp0qH8Pm9CfRp EcmWWV5mgyv89C+m+egP9dihQ8+1e3dhfRePe8cu6kF/wUAACAASURBVLfcK/HvLbJcAjs7uDF4pz5wZ/vSjW33KxKffHr/qYHtk/31E/21k/31k/11l8AOnrqmJ7DHj2ulE31VrPLR3ibxyb6VpnHuV0WLX13mz4GJ yKKftEJLVG/FXZr6MZsLnXoDu0JTjZZkKNmosECVjPQQfcDQA8XDo4W16qw0B 9umNdFyOU1xOi49UFXf8KTsqdDe7cjuQop0pacuDYEVag3szMB 6/616/82dBbAnn97v+kR/7Xh/3V0mcAns5Y6hcALLu1MIoUaS+f+FFD92A/8aDlQL/KNZ8+ksfliLx+o/6E1KNIeHhpX2VJpqtCTFdQWxpmY8pQrtmipzVRpi61ZhbTsrTT 5Oj4pzmjSVxTE36buYntWfXrQ/KGkHDS/OIsglsI6+td7RuvsTeR5+uT42sANhJ/tWHMd58agBgb1w9CrGGBvafA3M/Wex+Ors/RdzYFegXNzWvw1si8HNS0ziq4JIe2rbinl82/GUyrBrmmNDz69VWPPOetuamNGaFqvlcpr0CXsdl77VdCfy38Ke Fa+nUiewQq2BHb+06t18dH1+qOaHsGP9tRN9VceAwOYrk6Xcvy 4WY9xYNv8+MJPbH/HvQtrdNInXnGEvVHchrVpJ/PaWqjmrrkmPNTw8pbuQmpjRelSc0xQhYfPuRD4p0YKoOmh4LzV 3uQT2jZ61ruH6j354v+uu4XrncP3MUM0rOdq/dbS36jjOC0ev6gns0MEDpeeP3scYY0PrCSzwr1Xz1SNn99/umnWUQORAZX9JYK/jWxjQ/Cs/ECQ0c03OqjUw21bEfknjS2NqxlOamCOMkioZ8UBpfFXmqnOnCi jdMDzdqnxCe1SQ06RqyOSt2B3b/MV8VBWsSsQRkHbWU6HWwA5fXOscqneN1H/0w/u7RurvDm93DtdPXqu/fbn2ox/e//bl2uG+rSM9q44BgT1/9H7p/NV5jDE2tNUaWIOqsP8KT1Ct0EdUfDXQdegS2Ovvrp0drHcO1d8 d2t75wvPh2slr9eND9SNX6m8O1N64tHW4x2gN7PzVeQgMY2xhk zWwBn1te6rbey1CPmn3tAiZ8Mqr4WvucgnsUOfqyf762cH6+au 1s1fqZ6/UzwzVjg/Vj12pvX259uZ7tdd7Nw93GRPY+MNpjDE2dCusgSGEUEAugb16r nq8b/PEQO30wNbpga1TA5snLteO9dfe7q+91bf5eu/mGz3rb3UtOwZP4o8/nOY5MIyxhSEwhFALyiWwWxMbx7uXOnqXT/RWXXf0Lh/pWT3Ss/p2z8rh7upbF5ZvTKw5jvPGuZHw58Cmpm6aezpBT99Kyo+i+7ap H1l7xsh3UvGM0rMS383Zs3fnZu/l4TG/K6Ln0vC4xvMmrkTwfUMvGBgCQwi1oOYrk+9emzKs/MaFyfnKpJ7AVpanITAIDAKDwCAwhBDSab4yub29ZVUfAoPAIDA IDAJDCKFYcu9CPpyvD96rXxrdvHB1/dzg+rnB9TMD66f6V0/1r3b0rR25uPpm18rth5uO40xNTUBgEBgEBoFBYAghFEsugQ3eq 4/PPL758PG18fqVse0rY9uDd+oDt7YHbm1furHdOVQ/PbB1orfqOE73ldvhBJb792tjjBvLEBhCqNW051eJRms9I7Xuke 3uke13h7c7h+qdQ/WTV+r+XyUy+k789y6exBhjQ0NgCKEWlP9XidyfhuwaqXeN1N0f Juocrp8cqh+5XDf/VaL3Lp6EwDDGFobAEEItKJfAOvrWekfrl0a3e0Zr3cPb3cPb7w 5tnx+qnR+qnRysH++vn+ivnexbcSAwjHHiTpzA8v1Zkgb6UZSm UehvM6fUStoHouZW4nch34PAMMZWNiSwtqe6/TNZ4G2gZpofmyEtFnO6TTCr3DsojnYEAjPsRSJnNtW2YmaY+9l sZUFgGOOcDYFloGJmFU0mvNXoBJZ48JQOR3EEgWGMc7Y5gUlfn V0a878VN1TE5t+lWlwJjRMIIlYzTEDTF/O+m2QoxjTP2aotzVtNH1XjEMhWk3/MJFXjFu3MalqRxtf0S5+5+ZirEvCXR+gyslLgSfz5lccB8yQ+x jhdxycwTR1HNq+YvPXPQFZxpEHiJGCYUrIZhoZSTcDRemRSojk RqpLIA2JYzepAfYltfMOwMcfBNiVkJfFJ/M+9tREwT+JjjFO0FYGpNtqEtQT/gao1ALFmYNs8jj5IUglo2jLPUAxlm7OYub6h0PzFfMRzahXTsB f6bZN2zeNLOxWB8EJHJjKBifWtuoxsFSAwyRoY/xcSY5yqYxKYZvYN1FfJajJTRdBsJ5uA+Wyq2WUy0ZqEMkS90Px DT1lkAjPshXn+qnZD46sqxzz72ROYvMPIXuJzYOIaGM+BYYxTt C2BBUo0k4Q5RdlOXZHn6fgJREhD2m7knCO/NR9S26NMCMzqlMXMKlrlIhBYtC6DZdHEc2AY45wdk8Cc3VUE/VpCm+ymiViuCaWJ4+2Sth4tgWgpmWQYyE1sIjRnk4ZUKZmjj+o oRxhtMX/bAUn8zKqy0jcq9kvTYqBEk5VmnAPjIFY2vETF7qNQ8RwYxjhn8 5342UsEmrwyQYUSF0aW4jkwjHHOhsCyFxMtkooLI0vxHBjGOGd DYAihFhS/zI0xztkQGEKoBcUvc2OMczYEhhBqQUFgGOOcDYEhhFpQqfwuZG 1rHWOMDQ2BIYRaUIk/B1bbWi9tba5ijLGhITCEUAsq8buQW5urpSee6YrsjfVqwHGiNa 7FccC4WQ2BIYRaUC6B3ZrYON691NG7fKK36rmjd7mjd/lIz+rh7upbF5ZvTKw5jnPswnU9gW2sV0vjD6ej+YlnutZXlwJ+ 4pmuyAEb1NJxwLhZDYEhhFpQ85XJPzh627Dyq50P5iuTegJbX1 2KRWBrKwsBtyaBieOAcbMaAkMItaDmK5OVpepzb9741MtDv/zCtY+/MCT6E18e3v/y8HNv3ZlbXg8lsLWVhVgEtrJcWVmudHV2uBsryxUpgV0aefjGh cmvnXv08tlHL3SMvfHOjcHRsdzJKUEC87qPcdO7aQisrb1b89b kEFUdk2qR4yOEctF8ZbK6NLeyNLdSnV9dWVhbXVxfr25urGxur tdqG7XaZq22ub299fhxzXUoga0sV2IRWHVxtro429XZ4W5UF2c DBDY2OXX44oMvnZm6cHv15tTm2Ez97tTauf77X3y978DX37059 iB3fkqEwLzuY9z0tiIwF0c0UJIjc6RBYBG64z9EPDyX8dGnhFB rar4yub29ZVVfT2DVxdlYBLa88Gh54VFXZ4e7sbzwyE9g9x5MH Tx3/+sXZ+u7CS2u1hdWa47jLK1svHKs/2OffWP49njuCBWfwLzuY9z0NiewpFaVUlJDEFguKkgaCBVK7pP 4D+frg/fql0Y3L1xdPze4fmZg/VT/akff2vFLq0d71o9cXH2za+X2w03Hce7dH9cT2PLCo1gEtlSZWq pMdXV2uBtLlSk/gR3vHf/Ckfte9lOVtR/6rxf/9n86NTtfdUu+dOjdX/p/bzX6Spg3Dhi3gg0JTLPo5V8SU62QiYtnqrcBggnU8Wci3atpUR MwNG2TfMQ60l4bDpTYqdChMxlqq/FHqInlEtjgvfr4zOObDx9fG69fGdsevFMfuLV96cZ2z2ita6Te OVQ/PbB1orfqOM7l63f0BLZUmYpFYAuzkwuzk12dHe7GwuykR2A3xh 5+4fWRu1MLXvZbte39Xxne/+KVjc3abtnGf/z4V14/1ReIXNqVtFz1NkcC87qPcdM7DoGJfBChmlWJJr5mDUzfhGbVSr VLk0/oIWIr+mNFcorWTdsShJpbLoFdGt28+fDx6ET9yt1tl716R+tdw/WuoXrnUP3sYP10/9bJ91YcxznTd1NPYAuzk7EIbH5mYn5moquzw92Yn5nwCOxY163 PvdTnz/7hzNrgrdkHs8vu263NTcdZP/FO3899+mAAs6TbRSYwr/sYN71tCUy1xmNLYJoDDYOH7jUMGIfATDorHqJBSelalD5Dk5GM UIJQc8slsAvX1t3Vr/5b9d7Reu9ovWe4dnawfmpg2/Xpga3T71UdxzncOawnsPmZiZK44FQqBQuli1JPPNNVmR6vTI93 dXa4G5XpcY/AXni7/7mv7yGwN8/f+xtPnfix/3H6UaXqOE69Vq9vVEdHbvz0//ojcwKTvkoz1HchWq/144BxKzjaGpgKQSIvlUWro6lvHjB7AvNKNM2ZxJQeAoEhZCKXw M4ObgzeqQ/c2b50Y9v9baKekdqpge2T7rfh99dP9tddAjt46pqewCrT40HcE QFItc70xDNdc1Njc1NjXZ0d7sbc1JhHYAdPDP3+awP+7PtGp3/w33X+8NPHJ2bnHcfZ3q6vry49GLv7M7/0YkwCC81Zs1RmEsFwHDBuBUd7Et9kIo98oC0lRCCwfNfArJoLH Bi5m7Ylqg4i1BxyCezMwHr/rXr/zfqTT+9318BODWyf6K+d6K89+fR+d8MlsJc7hvQENjc1ZkQeUv h44pmu2amx2amxrs4Od2PWR2CHz4385st929uPvewHb8986N+f/qf/+ej0wpLjOLV6vbo0Nzp6vf1/fsmKwMSN0l6JOYtdEOtLe62JKY4Dxq3gmN9GIb1lJl2Y0R+oIg BVHTGmIc2IAcXcpEFC8xFHQMN80uYiD4v0rfSk2I6/tIMINYH8vwv55NP7Xbu/CHlsoOaVeL8L+eLREAKbNSEwFcQ88UzX9MTN6YmbXZ0d7sb0xE 2PwC5cvv3pA+9s1ba97EfGK3/3J078i48crW6uOY6zXK2uLT/qOH3hP/xvuzUwKYGp1rekXYiz4qUZB4xbwRl/I2sBJ/UCphRHTdYdhFKSS2DHL626dx79EOZtHxuoHeuvneirOgYENj1x 05TAxLdPPNP1YGz4wdhwV2eHu/FgbNgjsDsTD3/7pc4TF2542Xdfm/mzf+vV7/2Rr05Ulh3Hqcw+Wlt68F8+8cJvvXjSlsAi5xyNwAzHAeNWcDYE pln1yV3FzCqymqw7CKUkl8C+0bPWNVx3/eSH9/t9bKB2bKB2tH/raG/VcZwXjl7VE9iDsWEJZ0jvvon088QzXWO3B8duD3Z1drgbY7cH/d8H1nX51iee61haXXez/+rx0b/2Y1/9vh//yuunrzv1JWd9+pU3Tv7UL/zh1RvBXyhStagpCRyifyv2UV+iz8obB4xbwU3zq0QIIWQul8AO X1zrHKp3jezYw6+3L9dcH+7bOtKz6hgQ2NjtQd23OajuxHnkcf tG3+0bfV2dHe7G7Rt9gV8lOnr+6q//wfEH09OOs7W9WV3ZnF9ZmatWpjeXHxw+evZf/uzvHX/3iqaJXKzvtWYcMG4FQ2AIoRaUS2Cvv7t2drDeOVR/d2i7c7jeOVx/8sP7T16rHx+qH7lSf3Og9salrcM9Rmtgt2/0SWhDtdgjksfocPfocHdXZ4e7MTrcLf4y94kLVz/22dc+8duHevuvrFcnF+fG3uns/tizLz/zyZc7ioRfhr3WjAPGrWAIDCHUgnIJ7FDn6sn++tnB+vmrtbNX6 mev1M8M1Y4P1Y9dqb19ufbme7XXezcPdxkR2Ohwd6xvZL129fy 1q+e7OjvcjWtXz4sENv5w+vL1u8+/8s7Tv/jln/y55//NR7/4C5959dXjvU3wi5CBccC4FQyBIYRaUC6BvXquerxv88RA7fTA1 umBrVMDmycu1471197ur73Vt/l67+YbPetvdS07Bk/iX7t6PhaBDQ6cHhw43dXZ4W4MDpyWElhz2xsHjFvBEBhCqAXlE titiY3j3UsdvcsnequuO3qXj/SsHulZfbtn5XB39a0Lyzcm1hzHeePciJ7ABgdOxyKw9/qOv9d3vKuzw914r+94axKY132Mm94QGEKoBTVfmXz32pRh5Tcu TM5XJvUE9l7f8VgE1nPx7YBbk8DEccC4WQ2BIYRaUPOVycpS9d Vz488dvvGZV0Y/9fLQL7947RMvXP34C0Mff2Hol1+85vpXXx557q07c8vroQTWc/Ht0hPPdEX2hQuvBxwnWuNaHAeMm9UaAtvaWBW9uS71irGrojfW pF429pLo9VWpF2N5ZSGe50WvVaWuGHtO9Oqy1LPGnhG9siT1Ix tPi67KPWXsh6KXF6WeNPYD0UsLUk8Y+77oxXmpx2O5MhbP90Qv zEl919h3RM/PSn3b2LdEV2akvmnjG6LnHu2xhsAuXHi9dO7cQYwxNrSGwDDGG AesIrBz5w6Wzpx5CWOMDX1IQWBbG2usgbEGxhoYa2CsgcksIbA zZ14q5Y6HGOPGMgQGgUFgEBgEFpPADh08UJqduYUxxoaGwCAwC AwCg8DiE9jszC0IDGNsYQgMAoPAIDAIDALDGGdtCAwCg8AgMAg MAsMYZ20IDAKDwCAwCAwCwxhn7VwIrK29W0Ngbe3dbe3dxSewt vbupAisrb0bAoPAIDAIDGPcQjYkMJeKXKdKYG3t3bmvgbW1d8v fRiIwb9xCCczHYa1FYMuLUxAYBBafwOYe3YTAMMYNYxMCa2vvz mwNrMkIzF9HCmEttQZWXZzye2WXvSCwZAlsYe6en6sCbxuXwPx cBYFhjBvekQls75LYyub6iq9k5633undvde+KmuQWpHcXUnzrv Xr21VnyNlzken/9afetn6h8e40IzLea9T5d+fsShmjzLoT5DxHXwPbu3SEtsaRBC Yw1sOwJrDnWwCozt1gDwxg3lW3vQnr45UexwEKXx14BGpOugfk WvYJrYH7S8thLfETMRS4Xv7yNXd5a8rHXkp+3/JglIlfAO3X2opX/VYpcGgLz1sAC7LX7+j54ea/+kqYhsMAa2PLi1PLi1PLiQwgs8TUwPz/5d+0tKSiB7cWv2z7q2oEnP4H5OWzu0Y3KzE2PnLxt9yg/VEFgGOOsbfskvsteAUAJrHIFVr+SJTDxLqQVgakwK3QNLFg/WwKTLow1IoFp7kL6VsLMIQwCsyCw0JLGIjD/vcjKzE09gXnI5d/w3u5uQ2AY4wwdmcACz4GJvFV8ArN6DkzAqXzWwJrsLmSAwLw1M AgsGwITFsYgMAgMY5yV4xOYircaiMAM18Bs70KqnsRP5C7k7sb cWnWurb3bw6+29u7GJTCeA8trDawR70JCYBjjxrbhk/hte58D0z+JLxKY+CS+CYGpnsQ3JDDVk/jijciUnsRXfRuFLYFJn8RvbgJjDYy7kKFP4kNgGOPGNt+Jb+Gw 75vwu4SQTxkTmP/eopq3GuZJfNW3UUifxHc3dg2BYYyLaggsPQJznHGMHWc8YwKL4 UITGN+JjzFuKkNgMQlMZQgMe4bAIDCMMQ4aAoPAcNqGwFqFwO7 f7ccYY0NDYBBYIFWTzA3rRB6EBho9w+5AYE1PYPfv9pdGrnZij LGhIbBsCMz/UHbRmCMNAovQHf8h4uG5jI8+Jas4kxMj01M352buLlTGFufHIb DmI7CRq52lvosdGGNsaAgsAwJLalUpA85IKtvECawIIxMnTn/fuevDvQ/uj8zN3IXAmpLA+i52lByEEDIWBJY2gWkWvfxLYqoVMnHxTPU2Q DCBOv5MpHs1LWoChqZtko9YR9prw4ESOxU6dCZDbX6U9Fy/+vUXT5966/pw7/TDGwuVMQis+QjMcRwIDCFkIQgsFwIT+SBCNasSTXyRhAybkFKO BoD0+YQeoholDW+Jb9MYW9Ug+Mu/8Plff/XrL/b3nZucGIHAIDCEEILAsiOwwIJKYO3EnMA0BxoGD91rGDAOgRlS lEhgqmMDGepjmo9kUgT2mV/75Etffr6358yD+yPzc/cgMAgMIdTqgsAyXgNTIYg5gSVSR1PfPGD2BOaHp9DRM8/QsFHDEmkaz+7/xFdefL7n4mkIDAJDCCHHgcAyfxLfZCJPnAkSJLB818CsmgscGL mbEcZWbAsCg8AQQmiPPAK7c+MyTtCae16BkkAdkUv0B6oIQFVH jGlIM2JAMTcNIWnyEUdAw3zS5iIPi/St9KTYjn8gt1/6P7/w3Bc+2/GNQ1f6L9wc6c/9+sRJGQJDCEUUa2AZrIEl4sQDNmVKxexOiTUw1sAQQiggCKzgB KZZ9cndxcyqgN2BwCAwhBAKCgIrOIHhJjAEBoEhhFBQEFh6BIa QJwgMAkMIoT2CwFIisIBnpieuDva9cejg7z33+c/+xrO/8Zn9rn/916T+tLE/Jfozcf2rEj8b378i+tfi+pMp+P+Kfna/1J8wN9/ICoEhhNAeQWDZENj87NTtG9fOnz35xqGDr3z1y197+UXXX31J6 heM/UeiX/5KTH/J2H8Y0y/J/UVj/4Hor3w5pg9I/KLUz5ubXyWCwBBCaI8gsGwIbHlh5tHU+O0b164O9g28d7G/r3vHl6TuMvYF0e/1Sv1uHPf1SN1p4/OiL8l9ztjviO6V+2wc91yU+oyxT/PL3BAYQgjtEQSWDYGtLleWFx5VZiZnpu8/mhr3PP1Q6jFj35N4Uuq7xr4jeuqB1LdtfEv0Q7lvGvuG6MkJqU eNfV30g/sxPTI5MTI9dXNu5u5CZQwCg8AQQggCy4jA1qrza9XK6vLc6vLc ytKs5+qi1DPGfiR6eUHqaWNPiV6al/qhjSdFL8r9wNgTohcqUt839rjo+Tmpx4x9b6Ey5rKXi18QGASG EGp1mRNYeVcaAtutIH/bygS2vrKwvjIveq0qdcXYc6JdzhM8a+wZ0StLUj+y8bToqtxTx n4oenlR6kljPxC9tCD1hLHvi4bAIDCEUEsrVQJjDQwCg8AgsBY isI21RYwxNrQhgblo5W147FX2ySOwwFs/nO2WVDfXq+W98thrb+GytwGBQWAQGARWWALbWFtkDQwhZKE4BO bbDrkL6SuvehDmbXjU5d/wAAsCg8AgMAis+ATmcBcSIWSlYhKYAXVBYBAYBAaBQWAIoYaVC YGVZUqJwCJBGAQGgUFgEBgEhhBqKJkTmPdtFGkTmJ/DuAsJgUFgEBgEhhBqQsUhMPFJfP8T94ZP4ofehYTAIDAIDAKDw BBCzSa+kRUCg8AgMAgMAkMIZS0IDAKDwCAwCAwCQwhlLQgMAoP AIDAIDAJDCGUtCAwCg8AgMAgMAkMIZS0IDAKDwCAwCAwCQwhlL QgMAoPAIDAIDAJDCGUtCAwCg8AgMAgMAkMIZS0IDAKDwCAwCAw CQwhlLQgMAoPAIDAIDAJDCGUtCAwCg8AgMAgMAkMIZS0IDAKDw CAwCAwCQwhlrcYlsLb2bggMAoPAILACEdjG2iLGGBvahMDa2rv 925vrO68RCKytvduzhsB8dKVkLwgMAoPAILDiENjG2iJrYAghC 0UjsMhrYH7w8rZtCYw1MAgMAoPAikZgDnchEUJWirkG5lvQ8gB LviESmAdhLnK59ghs9+0ObAXeQmAQGAQGgUFgCKEGluFzYC6E+ cFr773IHdKKRmAeeO2ufinXwPzsBYFBYBAYBAaBIYQaVTEJbO9 zXSuq11AC81sksL17ITAIDAKDwCAwhFCDK6k1MP+KVwQC0zwHJ m5DYBAYBAaBQWAIocaW+bdRuBCmvwsZQK4AfqmexNffhQwlsLb 2bg+8vO311aW29m4IDAKDwCAwCAwhVETFITDxSXwTApN+G0XgS XyvxOQuJAQGgUFgEBgEhhBqMDXuN7LynfgQGAQGgUFgCKFGFQQ GgUFgEBgEBoEhhLIWBAaBQWAQGAQGgSGEshYEBoFBYBAYBAaBI YSyFgQGgUFgEBgEBoEhhLIWBAaBQWAQGAQGgSGEshYEBoFBYBA YBAaBIYSyFgQGgUFgEBgEBoEhhLIWBAaBQWAQGAQGgSGEshYEB oFBYBAYBJYMgW2sLWKMsaEhMJXb2rsjE1hbe3dMAmtr745MYG3 t3RoCa2vvTpDA2tq7ITAIDAI7dPDAxtoia2AIIQtZ/S6k7ycdC0pgCf4upIrAFHS1h70CdXbfhhBYW3t3ggQmcBgEBoF BYNyFRAgVRoYE5v4sd/HXwPwEltIamJ7ApHVyITDWwCAwCAwCQwgVVyYE5uFXgMB8S2Ir m+srexfJdko89trdfh+8vMoucnkbu9vLG2vLvjq6tx54eW/9a2C+wh20CpQEwEtV38Mp/Vspge3WmV9fmfe/DRCYa5fA/G9diyV+6trdtWcNzB/HI7BAib/QIzBfyc7blaWdV3fDMwQGgUFgEBhCyFqRCcx/L9KlK5G3NATW1t7t3/ZD2O7bZY+0PN4KbO+WvL/61SbchWzz3Yt0ocoPXgEIE3cFS9RrYP69mjUwj8PcbZM1MI/JAiUegbngJb0L2fb+etjO6lcAvGQle1a/3JJd2JrxcxhrYBAYBAaBIYQiKlUCk6FYcAGszbcMtnclTEJgew/JiMD81qxvZUBgfqdNYG17lsr81AWBQWAQGASGEIqtHAlM+hyYn sACT4BlvAYmPuMlbmezBha4C5k4gflXwiAwCAwCg8AQQskr8pP 4hgQW2G6yu5B5EVjaa2AQGAQGgUFgCKF0FefbKHxv5U/iawgspSfxvYfx9U/ia/7Doz+m9El8786j+V1I3yG6J/G9h/FVvOUdmOWT+CKB8SQ+BAaByQns0MEDGGNs7qS+kbXtqT3gpShM 8tso2p56fw2M78SXfid+21Pdq3wnPgQGgaVPYIcOHijV648xxt jQSRJYu4zAgoWJElg7BBZGYO0QGAQGgWVBYPX6YwgMY2zhBAms CN/ICoHxu5AQGAQGge35iMcYF9YQGAQGgUFgEFgT3oX8/Bf/cHr6lpUfRfdtUz+y9oyR76TiGaVnJb6bs2fvzs3ey8NjfldEz6 XhcY3nTVyJ4PuGXjAwBAaBQWAQGAQWn8BWlqchMAgMAoPAIDAI DAKDwCCwPAistFfxKSoQRBpT1RAEBoFBYBAYBAaBQWAQWKsQWL LrWCYBITAIDAKDwCAwCAwCg8AgMAkeia/+BTOxZugamP9Y1ZIbdfLaIAAAAgFJREFUBAaBQWBFJjAthEFgE BgEBoFBYCEE5uKX5C6kH5Wk2yKlqQBOynOsgUFgEFgTEJgCwiA wCAwCg8AgMB2BuZ+fewhMg1D6bZNnvKSsBoFBYBBYgxKYn8Mwx hib22WvrAkssKIGgUFgEFhDE9gez4ueiObF6H4Q9EJEKxYwpJ6 09mK4wxZdVMs2MbwUtLBWZL7OlIz9ExXGTemsCUx/IAQGgUFgEBgEBoFBYLgVLP82Cs3tQumT+CKBidHER+95Eh8Cg8 AgMAgMAoPAcGuab2SFwCAwCAwCg8AgMIyzNgQGgUFgEBgEBoFB YBhnbQgMAoPAIDAIDAKDwDDO2hAYBAaBQWAQGAQGgWGctSEwCA wCg8AgMAgMAsM4a0NgEBgEBoFBYBAYBIZx1obAIDAIDAKDwCAw CAzjrA2BQWAQGAQGgUFgEBjGWbvkXPxQcbzZ8XfufPknITAIDA KDwCAwCAzj5nbJ6flQQVw7+0PzLzwx3v1bEBgEBoFBYBAYBIZx c7v08LPfVxA/+P0P3en8zaWFexAYBAaBQWAQGASGcXO7NDV109zTCdoSsyAwCA wCg8AgMAgM46Zx6Xd/Zz/GGGOMMc7SpXfOvIUxxhhjjLN06fq1LowxxhhjnKVL05PXMMYYY 4xxli7Nz97AGGOMMcZZujT3aBRjjDHGGGfp/w/EvHPK5kjvpwAAAABJRU5ErkJggg==

[nowar1352]

http://barnamenevis.org/images/statusicon/user-offline.pngدوست عزيز اين كه اين ارور رو ميزنه علتش چيه ؟
74669

[omid-vbAuto]

آره وجود داره اول باید این رفرنس ها رو اضافه کنی

Imports System.Data
Imports System.Data.SqlClient
Imports VB = Microsoft.VisualBasic
Imports Microsoft.Win32
Imports System.Globalization.PersianCalendar
Imports System.Collections.Generic

بعد باید یه دکمه درست کنی و این کد رو بنویسی


PrivateSub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
System.Threading.Thread.CurrentThread.CurrentCultu re = New System.Globalization.CultureInfo("en-US")
lang_EN()
SaveFileDialog1.Filter = "*.xls|*.xls"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> ""Then
Dim oExcel AsObject
Dim oWorkBook AsObject
Dim oSheet AsObject
oExcel = CreateObject("Excel.Application")
oWorkBook = oExcel.Workbooks.Add
oExcel.visible = True
Dim c, r AsInteger
Dim ColNum AsInteger = DataGridView1.ColumnCount
Dim RowNum AsInteger = DataGridView1.RowCount
Dim col AsInteger = 65
oSheet = oWorkBook.worksheets(1)
For c = 1 To ColNum
oSheet.Range(CStr(Chr(col) & 1)).Value = DataGridView1.Columns(c - 1).HeaderText
col += 1
Next
For r = 1 To RowNum
For c = 1 To ColNum
oSheet.Cells(r + 1, c) = DataGridView1.Rows(r - 1).Cells(c - 1).Value
Next
Next
oWorkBook.SaveAs(SaveFileDialog1.FileName, True)
oSheet = Nothing
oWorkBook = Nothing
oExcel = Nothing
EndIf
lang_FA()
EndSub

ضمنا نوشتن این دو کد یادت نره:


PublicSub lang_FA()
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("Fa"))
EndSub
PublicSub lang_EN()
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("En"))
EndSub

موقع فرم لود هم بنویس


lang_FA()

ضمنا سعی یادت نره زود نامید نشو کدها درسته باید کد رو تصحیح کنی مثلا اسم دیتا گرید ویو رو با مال خودت ست کن ، آخ یادم رفت بگم یه دونه SaveFileDialog1 هم اضافه کن




M

آیا می تونیم کاری کنیم که از این کدها بدون نصب بودن افیس استفاده کنیم؟

[Samsam2010]

M

آیا می تونیم کاری کنیم که از این کدها بدون نصب بودن افیس استفاده کنیم؟

دوست من در این روشی که عزیزان تهیه کردن خروجی فایل XLS هستش یعنی فایل های ساپورت شده Microsoft Office Excel هستش ! ولی در کل یه فایل متنیه! با نوت پد هم باز میشه!

من یه DLL دارم خوراکش XLS و CSV و ایناست محتویات GRID رو میریزه توی فایل !!! از توی فایل بر میداره میریزه توی GRid خلاصه کارش بیسته ! اما کرک شده است ! خواستین پیام خصوصی بدین براتون بفرستم اسم Dll هم GemBox.Spreadsheet.dll ورژن 29.3.35.1000 هستن یا به عبارتی ورژن 2.9