2022年Excel宏入门教程 .pdf

《2022年Excel宏入门教程 .pdf》由会员分享，可在线阅读，更多相关《2022年Excel宏入门教程 .pdf（8页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Excel 宏入门教程本例是教你如何从网页获取表格数据到Excel 表格：举一个简单的例子，我以BugFree 为例，利用宏把需要的Bug列表相关数据导入到Excel 。我们在实际操作过程中，可以随意设置自己需要访问地址，如百度等。1. 打开 Microsoft Office Excel 2. 点击视图 宏录制宏3. 修改宏名为：从BugFree 导出 Excel 4. 保存在当前工作簿，点击【确定】5. 点击数据 自网站6. 输入 BugFree 访问地址点击【转到】名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理

2、 - - - - - - - 第 1 页，共 8 页 - - - - - - - - - 7. 输入用户名和密码进入8. 可选择 自定义显示 列，导出需要的列，可对列的顺序按照需要的格式进行排序9. 单击要选择的表旁边的黄色的小箭头，然后点击【导入】名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 8 页 - - - - - - - - - 10. 选择数据放置的位置，并设置属性为 “打开文件时刷新数据”，可设置刷新频率， 点击【确定】名师资料总结 - - -精品资料欢迎下

3、载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 8 页 - - - - - - - - - 11. 数据获取过来之后，选中所有，修改表格字体为需要的格式12. 点击视图 停止录制13. 点击视图 查看宏14. 点击【编辑】 ，可查看宏录制的代码，以及进行编辑15. 点击文件 关闭并返回Microsoft Excel 16. 返回 Excel ，保存格式为“Excel 启用宏的工作簿”名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理

4、- - - - - - - 第 4 页，共 8 页 - - - - - - - - - 17. 打开保存格式为“Excel 启用宏的工作簿”Excel 18 启用宏19. 关闭 Excel ，再打开名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 8 页 - - - - - - - - - 20. 可以在 Sheet2 中执行一下看效果名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - -

5、- - - - 第 6 页，共 8 页 - - - - - - - - - 注：已设置后台自动更新，如果页面数据更新了，更自动更新到表格，每次打开表格也会刷新数据，这在前面的设置里面附：贴出代码部分供参考Sub 从 BugFree 导出 Excel() 从 BugFree 导出 Excel Macro With ActiveSheet.QueryTables.Add(Connection:= _ URL;http:/ Destination:=Range($A$1) .Name = BugList .FieldNames = True .RowNumbers = False .FillAdja

6、centFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebT

7、ables = 4 .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With Cells.Select With Selection.Font .Name = 微软雅黑 .Size = 11 .Strikethrough =

8、 False .Superscript = False .Subscript = False 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 8 页 - - - - - - - - - .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFon

9、tNone End With With Selection.Font .Name = 微软雅黑 .Size = 9 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With Range(A1).Select ActiveCell.FormulaR1C1 = Bug ID Range(A2).Select End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 8 页 - - - - - - - - -