[VS.NET] 將html中的table表格匯入 xlsx 指定sheet

Private Sub Button_AutoGet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_AutoGet.Click



 



 



            DimtestURAs String = "file://d:/test.html"



WebBrowser1.Navigate(testUR)' 浏览网址



 



            While Not WebBrowser1.ReadyState = WebBrowserReadyState.Complete



 System.Windows.Forms.Application.DoEvents()



System.Threading.Thread.Sleep(1000)



            End While



 



            Dimout_tempAs String



out_temp = WebBrowser1.Document.GetElementsByTagName("TABLE")(0).InnerHtml



out_temp =Replace(out_temp, "<TBODY>", "<TABLE>")



out_temp =Replace(out_temp, "</TBODY>", "</TABLE>")



 



            DimxlAppAsApplication



            DimxlBookAsWorkbook



            DimxlSheetAsWorksheet



            DimxlRangeAsRange



 



            On Error Resume Next



            '#一部电脑仅执行一个Excel Application,就算中突开启Excel也不会影响程序执行



            '#在工作管理员中只会看见一个EXCEL.exe在执行，不会浪费电脑资源



            '#引用正在执行的Excel Application



xlApp =GetObject(, "Excel.Application")



            '#若发生错误表示电脑没有Excel正在执行，需重新建立一个新的应用程序



            IfErr.Number() <>0 Then



 Err.Clear()



                '#执行一个新的Excel Application



xlApp =CreateObject("Excel.Application")



                IfErr.Number() <>0 Then



                    MsgBox("电脑没有安装Excel" )



                    End



                End If



            End If



 



xlBook = xlApp.Workbooks.Open("d:\testiso.xlsx")



xlApp.DisplayAlerts =False '停用警告讯息



xlApp.Visible =True '设置EXCEL对象可见



xlBook.Activate()'设定活页簿为焦点



xlBook.Parent.Windows(1).Visible = True '显示第一个子视窗



xlSheet = xlBook.Worksheets(1) '引用第一个工作表



xlSheet.Activate()'设定工作表为焦点



System.Threading.Thread.Sleep(5000)



 



    '======================抄来的还但是不能用=============================



            '#用Array写资料至EXCEL



            'Dim myRows As Long, myCols As Long



            'myRows = UBound(DataArray, 1) + 1



            'myCols = UBound(DataArray, 2)



            'xlSheet.Range(xlApp.Cells(2, 1), xlApp.Cells(myCols, myRows)).Select() '选择储存格范围



            'xlSheet.Range(xlApp.Cells(2, 1), xlApp.Cells(myCols, myRows)).Value = xlApp.Transpose(DataArray) '阵列一次写入Excel 



            'xlApp.Run("Sample.xlt" & "!Caculater") '呼叫Excel的宏



    '======================抄来的还但是不能用=============================



 



xlBook.SaveAs("d:\testiso-1.xlsx") '另存新档



xlBook.Close()'关闭当前活页簿EXCEL 



System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)'xlApp.Quit()



 GC.Collect()



        End Sub

    <TABLE>



    <TRclass=TRHalign=middle>



    <TD>需求编号



    <TD>申请<BR>部门



    <TDnoWrap>申请人



    <TD>申请日期



    <TD>预计完成日



    <TD>需求型态



    <TD>需求类别



    <TD>需求主旨(摘要) 



    <TD>状态(负责人) </TD>



    <TD>实际<BR>工时</TD>



    <TRclass=TRBalign=middle>



    <TD><Ahref="IRS001Detail.asp?irid=6MX1234561">6MX1234561</A></TD>



    <TD>MJ</TD>



    <TD>陈先生</TD>



    <TD>2012/9/21</TD>



    <TD>2012/9/21</TD>



    <TDalign=left>网路,软硬体</TD>



    <TDalign=left>软体维护</TD>



    <TDalign=left>软体维护</TD>



    <TD><SPANstyle="COLOR: blue; CURSOR: hand" language=javascript onclick="window.open('../inc/BK_VIEW.asp?sType=Q&BRE_NO=IRS001&AUDIT_NO=IRSC04&KEY_NO_A=6MX1234561&KEY_NO_B=6MX1234561&TITLE_NAME=%B8%EA%B0T%BB%DD%A8D%B3%E6%BCf%AE%D6%B0O%BF%FD&KEY_NO_A_NAME=%B8%EA%B0T%BB%DD%A8D%B3%E6%B8%B9','BK_VIEW','scrollbars=yes,resizable=yes,top=0,width=790,height=550,left=0')"><U>验收中(陈先生)</SPAN></U></TD>



    <TD>0.5</TD>



    <TRclass=TRAalign=middle>



    <TD><Ahref="IRS001Detail.asp?irid=6M1234562">6MX1234562</A></TD>



    <TD>MJ</TD>



    <TD>陈易做图</TD>



    <TD>2012/9/21</TD>



    <TD>2012/9/25</TD>



    <TDalign=left>网路,软硬体</TD>



    <TDalign=left>软体维护</TD>



    <TDalign=left>5F会议室NB无法投影， 请... </TD>



    <TD><SPANstyle="COLOR: blue; CURSOR: hand" language=javascript onclick="window.open('../inc/BK_VIEW.asp?sType=Q&BRE_NO=IRS001&AUDIT_NO=IRSC04&KEY_NO_A=6MX1234562&KEY_NO_B=6MX1234562&TITLE_NAME=%B8%EA%B0T%BB%DD%A8D%B3%E6%BCf%AE%D6%B0O%BF%FD&KEY_NO_A_NAME=%B8%EA%B0T%BB%DD%A8D%B3%E6%B8%B9','BK_VIEW','scrollbars=yes,resizable=yes,top=0,width=790,height=550,left=0')"><U> MS作业审查(王易做图)</SPAN></U></ TD>



    <TD>0.3</TD>



    </TABLE>

补充：.NET技术 ,  VB.NET

上一个：vs程序部署到服务器问题检索COM 类工厂中CLSID
下一个：全自动VPN拨号软件