摘要：Sub getworkSheetsFromAnotherWorkbook()Dim wb As WorkbookSet wb = Workbooks.Open("C:\temp\excel_MBC2_old\BASE_POS-NewCI0005088.xlsx", ReadOnly:=True)Fo 阅读全文

摘要：get Sub getSensitivityLabel() Dim myLabelInfo Set myLabelInfo = Application.ActiveWorkbook.SensitivityLabel.GetLabel() Debug.Print (myLabelInfo.LabelI 阅读全文

摘要：输入换行 =”A"&CHAR(10)&“B" 输出样式 A B 获取列号 =COLUMN() A列返回1 B列返回2 =INDIRECT("A1") 返回A1单元格的值 阅读全文

摘要：Microsoft Scripting 运行时库参考 http://www.cftea.com/references/vbs5/html/vsgrpruntimefeatures.htm 阅读全文

摘要：Sub sample() Dim code code = "function greeting(x){return 'hello ,'+x}" Set js = CreateObject("ScriptControl") js.Language = "JScript" js.AddCode code 阅读全文

摘要：数据类型，官方文档： https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/data-type-summary 查看变量类型 Sub sample() Dim str As String 阅读全文

摘要：数字字符串互转 Sub sample() Dim a As String a = 10 Debug.Print a Dim b As Integer b = CInt(a) b = a + 1 Debug.Print b End Sub ASCII 和 字符互转 Sub sample() Dim s 阅读全文