请问怎么把这些表合成一个？

duxingxue 2004-03-31 05:37:26

代码如下：
<HTML>
<HEAD>
<TITLE> </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
</HEAD>
<BODY>
<%
for i=1 to 5
set sxml=server.CreateObject("Microsoft.XMLHTTP")
if i=1 then
url="http://www.hnpi.net/hnyyjg/ypjggs/index.asp"
else
url="http://www.hnpi.net/hnyyjg/ypjggs/index.asp?Direction=Next&job="
end if
sxml.Open "get",url,false
sxml.send
response.write GetBytes2BSTR(sxml.responsebody)
next

Function GetBytes2BSTR(p_sHtmlStr)
dim sReturnStr
dim i,n

sReturnStr = ""
n = LenB(p_sHtmlStr)

For i = 1 To n
dim sCharCode
dim sNextCharCode

sCharCode = AscB( MidB(p_sHtmlStr, i, 1) )

If (sCharCode < &H80) Then
sReturnStr = sReturnStr & Chr(sCharCode)
Else
sNextCharCode = AscB( MidB(p_sHtmlStr, i+1, 1) )
sReturnStr = sReturnStr & Chr(CLng(sCharCode) * &H100 + CInt(sNextCharCode))
i = i + 1
End If
Next

GetBytes2BSTR = sReturnStr
End Function

%>

</BODY>
</HTML>
大家在调试时如出现脚本超时，请把超本请求时间加大。

现在要求的功能为：把那些不用的代码在读出来时就替换掉，只留下那些表，并且把读出来的表合成一个，以便一下子复制到EXCEL表中。！

谢谢！

...全文

29 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

cjf1009 2004-03-31

打赏
举报

回复

mark

qunluo 2004-03-31

打赏
举报

回复

晕！！顶！

上篇说到将excel中的一个工作表按照某列拆分成多个sheet工作表，那么如何把excel中的多个工作表sheet合成一个工作表呢？接下来就继续利用VBA工具来解决这个问题。工作表合成前：工作表合成后： **第一步：**在文件中新建一个工作表sheet，用来存放合成后的数据，如图所示：第二步：点击“开发工具—>查看代码”命令，如图所示：第三步在sheet1（sheet2）中输入代码，如图所示：具体代码如下： Private Sub sheets() Application.Scree

我：“老板，这是我整理了好久今年的财务报表”“这是1月分的，这是2月份的，这是3月份的……一共12张表”(自己很辛苦的整理，以为会得到表扬)结果！老板：“你就不能把这些表汇总成一张吗”？额额，不会，怎么办？不要害怕，下面我教大家一种超简单的方法，保你一学就会！方法步骤：(随便举个例子)第一步：打开Excel新建一张汇总表，点击工具栏【数据】第二步：再选择【新建查询】——【从文件】——【从文件夹】...

今天跟大家分享一下excel怎么把两个表格合成一个 1.打开演示文件，要求将这两个表格合并为一个。 2.首先我们点击下图选项 3.点击【汇总拆分】-【合并多表】 4.勾选要合并的表格 5.将【表头行数】设置为2 6.最后点击【确定】即可完成 7.完成效果如下图 ...

把多个Excel表合成一个。手动复制粘贴太累了，就写了这个MATLAB的代码。

如何用SPSS软件把调查问卷中一个维度的多个问题合成一个变量,然后进行相关分析？求大神帮帮忙。我的调查问卷共20个问题，分为四个维度，每个维度有5个问题。现在想把每个维度作为一个整体进行分析，可是无论怎么设置，分析的结果都是单个问题，看了很多资料也没有找到解决办法，求大神指点 ...

28,390

社区成员

357,068

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章