'此代码发布后,可随意改哈,欢迎光临我的网址导航网站http://www.97tt.orgPrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias_"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,_ByVallpFileAsString,ByVallpParametersAsString,_ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLongPrivateSubCommand1_Click()UnloadMeEndSubPrivateSubCommand2_Click()OnErrorResumeNextRichTextBox1.Text=""DimTablesAsIHTMLElementCollectionSetTables=WebBrowser1.Document.getElementsByTagName("Table")DimTable1AsHTMLTableDimRowAsHTMLTableRow,CellAsHTMLTableCellForEachTable1InTables'NextFori=1ToTable1.rows.length-2'逐行处理SetRow=Table1.rows(i)j=0ForEachCellInRow.cells'逐列处理RichTextBox1.Text=RichTextBox1.Text+Trim(Row.cells(j).innerText)+","j=j+1Next'一行处理终了后,去除行尾的逗号并加上回车RichTextBox1.Text=Left(RichTextBox1.Text,Len(RichTextBox1.Text)-1)+vbCrLfNextNextEndSub
1