怎么从excel表格里提取源代码？

Posted 2023-05-15

提取方法如下：

    Dim strText$
    Dim httpRequest As Object
    Dim myClip As Object
    '剪贴板对象
    Set myClip = CreateObject("new:1C3B4210-F441-11CE-B9EA-00AA006B1A69")
    Set httpRequest = CreateObject("Msxml2.XMLHTTP.3.0")
    With httpRequest
        .Open "GET", 网址, False
        .send
        strText = .responseText
    End With
    With myClip
        '网页原始数据放入剪贴板中
        .SetText strText    '变量
        .PutInClipboard
        MsgBox "源代码已经复制到剪贴板中"
    End With

参考技术A 例如表的名称是"sheet1"，则在sheet1的标签上点右键，查看代码就行本回答被提问者和网友采纳 参考技术B 你说的是宏代码？ ALT+F11 参考技术C 说具体点

EXCEL中怎么提取一行中某些列的数据出来制作图表

比如下面这个图，每两行就有一个收入，能否把X每天的收入都提取出来制作个折现图，谢谢。
望打下赐教，在线等。

制作图表的关键是先制作数据表，打蓝数据表插入图表就会自动生成图表。一条曲线只可以做一个项目（收入或者支出）

这样设置数据表打蓝插入图表自动生成。欢迎采纳谢谢！

要想把全部支出删除，压住Ctrl键用鼠标选择支出栏30天的数据，右键清除内容OK。

参考技术A

方式1：直接选中当前表格——插入——折线图，然后右键——选择数据——切换行列——删除“支出”，切换回来即可

方式2：选择数据——选择“收入”——建立折线图。

追问

大侠，麻烦一下，再问。 假如我是30天， 那是不是要删除三十下呢， 能不能直接把相同的“”支出一下就删了呢“

追答

觉得麻烦，就改变表的格式
日期按行排列，收入、支出各为1列。然后选中后建立图表。

参考技术B 1、选中表1的要比较的列或者行,在名称框定义名称为“表1”，回车；选中表2的A2:A7,在名称框定义名称为“表2”，回车。 2、选中表2的要比较的列或者行,“格式/条件格式/条件/公式/=COUNTIF(表1,A2)=0/格式/字体/颜色/红色/确定/确定”，表2有而表1没有的姓名显示为红色，结果如表2。 3、选中表1的要比较的列或者行,“格式/条件格式/条件/公式/=COUNTIF(表2,A2)=0/格式/字体/颜色/蓝色/确定/确定”，表1有而表2没有的姓名显示为蓝色，结果如表1。 附件：显示两表不同姓名.xls