ÔÚ±¾»úµ÷ÊÔʱÉú³ÉexcelÎļþûÓÐÎÊÌ⣨http://localhost:4354/go£©£¬µ«ÊÇ·¢²¼µ½ÍøÕ¾ºó£¨×¢£ºÈÔÈ»ÊDZ¾»ú×öΪ·þÎñÆ÷http://192.168.1.8/go , 192.168.1.8Ϊ±¾»úip£©ÔòûÓÐÈκη´Ó¦£¬Çë¸ßÊÖÖ¸µã£¬¼±µÈ£¬ÈçÒª¼Ó·Ö»¹ÓÐ
ÎҵĴúÂëÈçÏ£º
Function MakeExcel(ByRef TitleData As String, ByRef Data As System.Data.Odbc.OdbcDataReader, ByRef XCount As Short, ByRef FileName As String, ByRef FilePath As String) As Object
Dim tFileName As Object
Dim i, j As Integer
Dim ex As New Microsoft.Office.Interop.Excel.Application
Dim exwbook As Microsoft.Office.Interop.Excel.Workbook
Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
tFileName = FileName + Format(Now, "yyyyMMddhhmmss") + ".xls"
ex = New Microsoft.Office.Interop.Excel.Application
ex.Visible = True
xlSheet = Nothing
exwbook = Nothing
exwbook = ex.Workbooks.Add
xlSheet = exwbook.Worksheets(1)
xlSheet.Cells._Default(1, 1) = "idºÅ"
xlSheet.Cells._Default(1, 2) = "Ͷ×ÊÈË"
xlSheet.Cells._Default(1, 3) = "¼ÒÍ¥µØÖ·"
xlSheet.Cells._Default(1, 4) = "µç»°"
xlSheet.Visible = True
ÎÒÓÃasp.net¿ª·¢wapÕ¾µã£¬Íê³ÉºóÈ¥http://validator.w3.org/ÕâÀïÑéÖ¤ÎÒµÄWapÒ³ÃæÊÇ·ñ±ê×¼£¬ÆäËüÎÊÌâ¶¼¸ÄºÃÁË£¬
¾ÍÊ£ÕâÒ»¸ö´íÎóÁË£¬°´×ÖÃæÒâ˼Àí½âÊÇ˵nameÊôÐÔÒÑ´æÔÚ£¬ÀàËÆÕâÑùµÄ´íÎó»¹Óв»ÄÜÓÃborder ,align,sizeµ ......