rspy

摘要： Sub Excel_to_Word() Set excel对象 = CreateObject("Excel.Application") '创建Excel应用对象 Set 表格 = excel对象.workbooks.Open("c:\信息.xlsx") '打开Excel表格 i = 2 Do Whi 阅读全文

摘要： Sub word_to_excel() Dim arr() Set Excel对象 = CreateObject("Excel.Application") '创建Excel应用 Set 表格 = Excel对象.workbooks.Open("c:\孙兴华.xlsx") '打开Excel表格 For 阅读全文

摘要： 1. 创建集合 Set col = New Collection 2. 添加元素（核心） 语法：col.Add 元素 [, 键]（键为唯一字符串，可选） col.Add ThisDocument.Paragraphs(1), "para1" ' 存段落对象+键 col.Add "文本内容" ' 存普 阅读全文