Καλησπέρα σε όλους,

Χρησιμοποιώντας το παρακάτω, κάνω export σε excel τα περιεχόμενα ενός Dataset. Όλα καλά στο export,πλήν όμως του 4ου πεδίου του DataSet το οποίο περιέχει Barcode ΕΑΝ 13 (Αριθμοί) και το excel τα βλέπει σας αριθμούς και τους αλλάζει τα φώτα. Πως μπορώ να το κάνω να τα βλέπει σαν text ?

Ευχαριστώ,

Public Shared Sub ExportToMsExcel(ByVal ds As System.Data.DataSet, ByVal response As System.Web.HttpResponse)

 response.Clear()
 response.Charset = ""
 response.ContentType = "application/vnd.ms-excel"

 Dim stringWrite As New System.IO.StringWriter
 Dim htmlWrite As New System.Web.UI.HtmlTextWriter(stringWrite)
 Dim dg As New System.Web.UI.WebControls.DataGrid

 dg.DataSource = ds.Tables(0)
 dg.DataBind()
 dg.RenderControl(htmlWrite)

 response.Write(stringWrite.ToString)
 response.End()

End Sub

 

---

(thanad)
Dimos K. Thanasoulas
Athens

Sorry για τον κώδικα αλλά το copy paste δεν έπαιξε...

---

(thanad)
Dimos K. Thanasoulas
Athens

Δοκίμασε να βάλεις ενα ' (μονό εισαγωγικό) πριν το αριθμητικό.

Άρης

---

Aris

Άρη σε ευχαριστώ για την απάντηση.

Το δοκίμασα και παίζει, αλλά εμφανίζει το ' στο αντίστοιχο κελί του excel πρίν το barcode.
Υπάρχει άλλος τρόπος ;

Ευχαριστώ και πάλι...

---

(thanad)
Dimos K. Thanasoulas
Athens

Η τεχνική με το μονό εισαγωγικό παίζει όταν κάνεις dataentry στο Excel.

Εάν κατάλαβα καλά τον κώδικα, περνάς στο excel ένα block κειμένου. Και αυτό, το φτιάχνει στήλες (μάλλον βγαίνει tab separated text) και το κάνει XL-όφυλλο.

1. Μπορείς να το βγάλεις σαν txt, να το σώσεις και να το δημοσιεύσεις;
2. Εάν το βγάλεις σε txt, δεν μπορείς να το εισάγεις στο excel ρυθμίζοντας τον τύπο της στήλης;

Άρης

---

Aris

Τα δεδομένα που κάνω export προέρχονται απο ένα dataGrid (Infragistic). To datagrid αυτό εχει paging, οπότε άν χρησιμοποιήσω το datagrid export to excel της Infragistic, μου εμφανίζει μόνο τη τρέχουσα σελίδα και όχι όλα τα δεδομένα. Οπότε περνώ το dataset που γεμίζει το grid στην shared sub που έχω παραπάνω και μου κάνει export όλα τα δεδομένα. Δυστηχώς δεν μπορώ να το κάνω export σε txt.
Ευχαριστώ και πάλι.

---

(thanad)
Dimos K. Thanasoulas
Athens

Δοκίμασες να χρησιμοποιήσεις strongly typed dataset;

Άρης

---

Aris

Δημό καλημέρα

μπορείς να αλλάξεις τον format της κολώνας
χρησιμοποίωντας αυτό
sheet.get_Range("Α1","Α5000").NumberFormat="@";

---

Antonios Chatzipavlis

Αντώνη καλησπέρα,

Δεν χρησιμοποιώ, καθόλου το εργαλείο της μαμάς για Office Application, οπότε δεν δημιουργώ αρχείο excel (θυμάσε το πρόβλημα που σου είχα πεί πως δεν μου το αναγνώριζε το studio) οπότε χρησιμοποιώ μόνο τη μέθοδο που έχω στην αρχή του μυνήματος.
Βέβαια τώρα αντιμετωπίζω και άλλο πρόβλημα με το excel.
Πρέπει να είναι ιεραρχικό (Header - Detail).

Πάντως σε ευχαριστώ για την απάντηση.
Δεν μου είπες όμως (απευθύνομαι και στον Γιώργο Καπνιά), πως τα καταφέρατε και οι παρουσιάσεις σας θα γίνουν την ίδια ώρα ;;;;;;;

Δυο κομμάτια δεν μπορούμε να γίνουμε.
Εργαλεία SQL Server 2005 και Web Development την ίδια ώρα...
Τουλάχιστον απαράδεκτο.!!!!!!!
Εκτός άν έρθεις απο το γραφείο και σε αγκαζάρω να επανελάβεις την παρουσίαση εκεί. (παίζει και αυτό...)

---

(thanad)
Dimos K. Thanasoulas
Athens

thanad wrote:

Δεν μου είπες όμως (απευθύνομαι και στον Γιώργο Καπνιά), πως τα καταφέρατε και οι παρουσιάσεις σας θα γίνουν την ίδια ώρα ;;;;;;; Δυο κομμάτια δεν μπορούμε να γίνουμε. Εργαλεία SQL Server 2005 και Web Development την ίδια ώρα... Τουλάχιστον απαράδεκτο.!!!!!!! Εκτός άν έρθεις απο το γραφείο και σε αγκαζάρω να επανελάβεις την παρουσίαση εκεί. (παίζει και αυτό...)

Μμμμ, δεν ξέρω, πάντως ούτε ο Αντώνης το κανόνισε αυτό, ούτε εγώ από την μεριά μου. Πιθανώς άφησαν πιο "πικάντικα" θέματα για το τέλος από ότι συνήθως, για να μπορέσει να υπάρξει ομοιομορφία του ενδιαφέροντος σε όλη τη διάρκεια της εκδήλωσης.

 

George J.

 

---

George J. Capnias: Χειροπρακτικός Υπολογιστών, Ύψιστος Γκουράρχης της Κουμπουτερολογίας w: capnias.org, t: @gcapnias, l: gr.linkedin.com/in/gcapnias

τι να σου πω δεν το κανονίζουμε εμεις.
πάντως εγω θα είμαι όλη την ημέρα στο "ask the experts" οπότε θα μπορέσουμε να τα πούμε

---

Antonios Chatzipavlis