摘要：
原始数据表： 汇总格式： 阅读全文
摘要：
原始数据： 转置效果： 阅读全文
摘要：
Public Sub AddPictures() Dim ppApp As PowerPoint.Application Set ppApp = New PowerPoint.Application Dim Pre As PowerPoint.Presentation Dim NewSld As PowerPoint.Slide Dim tShp As P... 阅读全文
摘要：
Sub AddSldIn() Dim Pre As Presentation Dim NewSld As Slide Set Pre = Application.ActivePresentation Set NewSld = Pre.Slides.Add(Pre.Slides.Count + 1, ppLayoutBlank) Set Pre = No... 阅读全文
摘要：
一、数组方案 二、SQL方案 阅读全文
摘要：
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As... 阅读全文
摘要：
Sub GetContent(ByVal URL As String, ByVal SheetName As String) Dim strText As String Dim i As Long Dim OneSpan Dim IsContent As Boolean With CreateObject("MSXML2.XMLHTTP") ... 阅读全文
摘要：
Sub GetTitleAndUrl() Dim strText As String Dim i As Long Dim OneA Dim IsContent As Boolean Dim PageIndex As Long Dim URL As String For PageIndex = 1 To 10 URL = "h... 阅读全文
摘要：
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As... 阅读全文
摘要：
Sub GetImageUrl(ByVal URL As String) Dim strText As String Dim i As Long Dim OneImg With CreateObject("MSXML2.XMLHTTP") .Open "GET", URL, False .Send strT... 阅读全文