11-excel vba 学习总结 - 网络、xml、wmi以及api扩充

《11-excel vba 学习总结 - 网络、xml、wmi以及api扩充》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、ExcelVBA学习总结-网络、XML、WMI以及API扩充前面我已经总结了VBA最常见的一些应用；相对来说，下面这几种应用都比较少见一点，这里就是做一个索引，当需要的时候可以直接查询需要的资源。经过前面的了解，大家肯定也猜到了，这些应用基本上都是通过调用COM实现的。所以只要系统底层COM能完成的功能，基本在VBA中都可以去完成。此外，除了调用COM对象完成相应的功能，扩充VBA的能力最纯粹的手段就是直接调用API了。这个已经超出了VBA的范围，这里就是简单提及一下。对于COM对象创建的时候是“前期绑

2、定”还是“后期绑定”的区别也就不再重复了。每个对象，我就是简单总结一下常见的用法。一、网络应用直接使用Workbook对象获取网络内容　　在装有FrontpageServerExtension的服务器上，可以直接以Workbook的形式保存和打开Excel。除了分享这些Excel文档，直接使用Workbook也可以直接打开和使用网页上的内容。打开以后，基本上就当Sheet一样处理了。Dim oBk As Workbook'打开远程ExcelSet oBk = Workbooks.Open("http:/

3、/www.MySite.com/book1.xlsx")'另存为oBk.SaveAs "http://www.MySite.com/Book2.xlsx"Dim oRng As Range'打开网页Set oBk = Workbooks.Open("http://www.x-rates.com/d/USD/table.html")'查找内容Set oRng = oBk.Worksheets(1).Cells.Find("British Pound")'显示内容MsgBox oRng.Offset(0, 

4、1).Value 使用WebQuery获取网络数据　　从Excel97加入了WebQuery的支持后，几乎在每个新的版本中，这个方面的内容都得到了强化。我们可以使用这个特性获取网络上一张表的数据。主要使用的是Application.QueryTables。例子如下：Sub GetRatesWithWebQuery()  Dim oBk As Workbook  Dim oQT As QueryTable  '数字的格式设置  Dim sDecimal As String  Dim sThousand A

5、s String  Dim bUseSystem As Boolean  Set oBk = Workbooks.Add  With oBk.Worksheets(1)    Set oQT = .QueryTables.Add( _                Connection:="URL;http://www.x-rates.com/d/USD/table.html", _                Destination:=.Range("A1"))  End With  '设置Quer

6、yTable的相关属性  With oQT    .Name = "USD"    '选中特定的表    .WebSelectionType = xlSpecifiedTables    '导入Page上第14个表    .WebTables = "14"    '忽略Page上的格式    .WebFormatting = xlWebFormattingNone    '不会尝试去识别日期    .WebDisableDateRecognition = True    '每次打开文件的时候不会刷新数据

7、    .RefreshOnFileOpen = False    '等待查询结束    .BackgroundQuery = True    '伴随Workbook一起保存数据    .SaveData = True    '根据表中数据调整列宽度    .AdjustColumnWidth = True  End With  With Application    '保存当前文档的分隔符格式    sDecimal = .DecimalSeparator    sThousand = .Thousa

8、ndsSeparator    bUseSystem = .UseSystemSeparators    '设置分隔符    .DecimalSeparator = "."    .ThousandsSeparator = ","    .UseSystemSeparators = True    '忽略任何错误    On Error Resume Next    '执行查询，等待结束    oQT.Refresh BackgroundQ