Ione_fox

摘要： PPT的事件无法在slde模块直接录入，需要通过创建类并实例化来完成 一、在class模块 1 Option Explicit 2 Public WithEvents pptApp As Application 3 4 Private Sub Class_Initialize() 5 MsgBox 阅读全文

摘要： 1 Sub readArrByte() 2 Dim strPath As String, ArByte() As Byte 3 Dim intFileLen As Integer 4 '配置路径、字节数组 5 strPath = ActivePresentation.Path ' 6 strPath 阅读全文

摘要： 阅读全文

摘要： 医疗机构税收大全及理论探讨（2018年） 来源：工蜂老五 作者：工蜂老五 人气：11854 时间：2018-10-24 摘要：一、增值税、所得税两大历史遗留争议待解 （一）医疗相关药品、用血、伙食业务是否免征增值税 有人说，营改增后不是全免了吗？不是的。 财税〔2016〕36号规定，医疗服务是指医疗 阅读全文

摘要： 1 Sub Xpath定位() 'MSXML2.DOMDocument.6.0 2 Const str_Html As String = _ 3 "<div id = ""outside"">" & _ 4 "<div id =""box"">" & _ 5 "<div id = ""head"" 阅读全文

摘要： 1 Sub Css定位() 2 3 Const url As String = "https://www.taifex.com.tw/cht/3/futDailyMarketReport" '期货每日交易行情查询 4 Dim WinHttp As Object 5 Dim Dom As New MS 阅读全文

摘要： 1 '本例为前期绑定熟悉方法属性 引用这2个项目'Microsoft Internet Controls','Microsoft HTML Object Library' 2 'getElementsByClassName 后期绑定不支持 3 4 Sub DOM_定位() 5 Const url A 阅读全文

摘要： 1 Sub IEYahoo() '台湾网址较慢 2 Dim T 3 T = Timer 4 Cells.ClearContents 5 Application.StatusBar = "网络等待... ..." 6 Const url As String = "https://tw.stock.ya 阅读全文

摘要： 1 '添加条目 RowSource 2 Private Sub UserForm_Initialize() 3 Range("a1:a10").Name = "DataSource" 4 Me.lbx.RowSource = "DataSource" 'Rowsourse = string 5 End Sub 1 '添加条目 Additem 2 Private Sub U... 阅读全文

摘要： 1 Sub Main() 2 Application.ScreenUpdating = False 3 On Error GoTo Line 4 Dim Ar(), NO As Integer 5 Ar = Application.WorksheetFunction.Transpose((Range("a1").CurrentRegion.Va... 阅读全文