Esportazione in Excel

[referee]

Ciao a tutti!

Vi chiedo una piccola mano per un problema non troppo grave ma che non riesco a risolvere e che quindi, comprenderete, è diventato piuttosto fastidioso.

Ho scoperto da poco l'applicazione TableEditor negli script del Sito
http://asp.html.it/script/vedi/3838/table-editor/

Funziona molto bene.
Però ho un DB MS Access con una colonna contentente alcuni numeri di Telefono che iniziano per 0 (ad es.: 09999999). Quando faccio l'export in excel (te_excel.asp) questo campo viene automaticamente formattato come "numero" facendo così perdere lo 0 iniziale (es.: 9999999). E possibile forzare la formattazione in "testo"?

Grazie in anticipo.

[agenti]

postato da trodat tempo fa:

<%
' Crea l'istanza dell'oggetto Excel
Set ExcelApp = CreateObject("Excel.Application")

' Imposta l'esecuzione in background
ExcelApp.Application.Visible = False

' Genera i fogli
Set ExcelBook = ExcelApp.Workbooks.Add

ExcelBook.Worksheets(1).Cells(1, 1).Font.Name = "Verdana"
ExcelBook.Worksheets(1).Cells(1, 1).Font.Size = 10
ExcelBook.Worksheets(1).Cells(1, 1).Font.Italic = true
ExcelBook.Worksheets(1).Cells(1, 1).Value=""&tuo_campo&""
ExcelBook.Worksheets(1).Cells(1, 1).HorizontalAlignment = 1
ExcelBook.Worksheets(1).Cells(1, 1).Font.Color = RGB(0,0,0)

' Cancella i fogli secondari
ExcelBook.Worksheets(3).Delete
ExcelBook.Worksheets(2).Delete

' Salva su disco
ExcelBook.SaveAs Server.MapPath("FileExcel.xls")

' Chiude tutto
ExcelApp.Application.Quit
Set ExcelApp = Nothing
%>

esporta il valore come stringa...

ExcelBook.Worksheets(1).Cells(1, 1).Value=""&tuo_campo&""

[optime]

puoi sempre anteporre un apice singolo ( ' ) al valore per far sì che Excel lo interpreti sempre come testo e non come numero