HTML源代码VBA如何直接使用对应输出到EXCEL的sheet中？

Treenewbee 2013-10-12 02:49:04

<html>

    <div  class="co co1b1 coa2"  >

        <div class="h2 cf">

  <span>OWNERSHIP INFORMATION</span>

</div>

        

    <div   class="br br1 brl"  >

        

        

    <table class=" mnytbl" summary="">

        <caption class="hide"></caption>

        

        

            <tbody>

                

                    <tr  class=" first">

                        <td class="first" headers="">

                    

<span >

Shares Outstanding

        

</span>

                </td>

            <td class="last" headers="">

                    

<span >

1.55 Bil

        

</span>

                </td>

            

                    </tr>

                

                    <tr  >

                        <td class="first" headers="">

                    

<span >

Institutional Ownership (%)

        

</span>

                </td>

            <td class="last" headers="">

                    

<span >

71.86

        

</span>

                </td>

            

                    </tr>

                

                    <tr  >

                        <td class="first" headers="">

                    

<span >

Top 10 Institutions (%)

        

</span>

                </td>

            <td class="last" headers="">

                    

<span >

21.44

        

</span>

                </td>

            

                    </tr>

                

                    <tr  >

                        <td class="first" headers="">

                    

<span >

Mutual Fund Ownership (%)

        

</span>

                </td>

            <td class="last" headers="">

                    

<span >

31.04

        

</span>

                </td>

            

                    </tr>

                

                    <tr  >

                        <td class="first" headers="">

                    

<span >

5%/Insider Ownership (%)

        

</span>

                </td>

            <td class="last" headers="">

                    

<span >

0.04

        

</span>

                </td>

            

                    </tr>

                

                    <tr  class=" last">

                        <td class="first" headers="">

                    

<span >

Float (%)

        

</span>

                </td>

            <td class="last" headers="">

                    

<span >

98

        

</span>

                </td>

            

                    </tr>

                

            </html>

...全文

131 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

Treenewbee 2013-10-14

打赏
举报

回复

自己搞定了。

以前用Excel2003做了些宏，在网上还有不少粉丝，因一些功能在Excel2010中无法使用，故重新整理，欢迎指正；本Excel中的宏在Excel2010中测试表现出色; 运行宏前，要保证EXCEL没有禁用宏。 Michael Ho QQ: 9900060 ----------------------- 本Excel有以下功能：插入图片1 1.点击执行后，会出现文件夹选择窗，请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件)； 2.宏会自动复制Sheet2到新工作簿，并插入你所选文件夹中的全部JPG图片到B列，对应的图片名自动填到C列； 3.图片的大小会自动适应Sheet2的B3单元格，因此可以在点击执行前调整Sheet2的B3单元格的大小来控制插入图片的大小。 -------- 插入图片2 1.点击执行后，会出现文件夹选择窗，请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件)； 2.宏会自动复制Sheet3到新工作簿，并插入你所选文件夹中的全部JPG图片制作图册，对应的图片名自动填到图片下方； -------- 插入图片3 如果用户自己的Excel文件中有一列是型号，该宏可以插入指定文件夹里以型号命名的JPG图片到另一列； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+I (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏InsertPic3）； 4.然后会出现文件夹选择窗，请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件)； 5.在弹出的对话框中指定型号在第几列，图片要插入到第几列，以及从哪一行开始； 6.图片的大小会自动适应你设定的第一行要插入图片的单元格，因此提前调整那个单元格的大小可以控制插入图片的大小。 ------------- 删除活动工作表中所有图片 Ctrl+d 删除活动工作表里所有的JPG图片，（不一定是本工作簿中的工作表）； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+d (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏DelPic）； ------------- 导出活动工作表中被选中的一张JPG图片 Ctrl+e 导出活动工作表中被选中的一张JPG图片，（不一定是本工作簿中的工作表）； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.请选中一张要导出的图片； 4.在你的文件中按Ctrl+e (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏OutputOnePic）； 5.在弹出的对话框中指定图片要保存的名字； 1.不管图片在Excel中是否被缩放过，导出的图片是按图片的原始尺寸进行保存。 2.在桌面上会自动新建一个"OutputPic"的文件夹，导出的图片将会存在那个文夹里； 3.如果文件夹中已有相同名字的文件，则后面导出的文件会自动加上(v1), (v2), (v3)... ------------- 导出活动工作表中所有JPG图片 Ctrl+f 导出活动工作表中所有JPG图片，并且图片名自动使用指定列中的图片名； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+f (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏OutputAllPic）； 4.在弹出的对话框中指定图片所在列，图片名所在的列； 1.不管图片在Excel中是否被缩放过，导出的图片是按图片的原始尺寸进行保存； 2.在桌面上会自动新建一个"OutputPic"的文件夹，所有导出的图片将会存在那个文夹里； 3.如果文件夹中已有相同名字的文件，则后面导出的文件会自动加上(v1), (v2), (v3)... ---------------- 对指定文件夹中的JPG图片进行重命名 Ctrl+r 利用活动工作表中的所有图片的旧名与新名的对照，对指定文件夹中JPG图片进行重命名； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+r (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏RenamePic）； 4.在弹出的对话框中指定图片旧名所在列和图片新名所在的列； 1.可以结合插入图片的宏，将所有图片的旧名输入到Excel中，再在另一列中填上新图片名，然后使用该宏。 2.如果顺利运行，会在原来那个文件夹下面新建一个叫“New”的子文件夹，所有重命好名的图片会自动放入子文件夹里； 3.如果文件夹中已有相同名字的文件，则后面的文件会覆盖原来的文件。

【代码】VBA：按照Excel工作表中的名称列自动汇总多个工作薄中对应sheet中所需要的数据。

本课程试图让不会编程的你也能借助ChatGPT生成Excel VBA代码，轻松实现数据处理自动化，让你从小白秒变高手。懂编程的你也能收获良多，十倍提升工作效率。课程用ChatGPT自动生成VBA代码，实现了数据处理自动化的绝大部分内容，包括数据整理、数据预处理、数据统计分析、数据可视化和Excel工作表设置等。所属系列课程：Python+VBA办公自动化系列课程-CSDN程序员研修院。20+课程，不断增加和更新。讲师：童大谦图书《代替VBA！用Python轻松实现Excel编程》和《对比VBA学Python 高xiao实现数据处理自动化》作者。致力于Office和WPS Office办公自动化，提供VBA和Python全系列视频课程。熟悉Power BI, Python, R, SPSS, MATLAB等数据分析软件。有多年VB和.NET软件开发经验。

这是Excel提供的一个非常关键的功能，因为想象一下，如果你的Excel文件包含非常巨大的数据，比如说超过10000x500个单元格的数据，你必须根据一些条件从整个工作簿中获取一些数据。你可以将Excel工作簿作为一个完整的数据库来阅读，也就是说，Excel文件可以作为数据库。1，在你的Excel文件中存储数据，并将其保存在系统中的某个位置，例如 "DB Data.xlsx"3，打开一个新的excel文件，你将从 "DB Data.xlsx "中获取数据。10，可以将此VBA函数指定一个按键，方便执行。..

办法1：ALT+F11 办法2：右击sheet name -> view code 办法3：excel菜单栏Develop -> Visual Basic

16,554

社区成员

110,527

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章