excel怎么实现数据抓取

excel怎么实现数据抓取：从基础到进阶的实战指南
在数据处理与分析的领域中，Excel 是一个不可或缺的工具。尽管它本身并不具备强大的数据抓取功能，但通过一些技巧和方法，我们可以实现从外部数据源抓取、整理和分析数据。本文将从基础到进阶，系统地介绍如何在 Excel 中实现数据抓取，帮助用户更好地利用这一工具进行数据处理。
一、数据抓取的基本概念
数据抓取，是指从外部数据源（如数据库、网页、API、CSV 文件等）中提取数据，并将其导入到 Excel 中进行处理。这一过程在数据分析、业务报表、自动化处理等方面具有重要价值。
在 Excel 中，数据抓取可以分为以下几种方式：
- 手动输入：通过复制粘贴的方式，将数据从外部源导入到 Excel 中。
- 公式与函数：利用 Excel 的内置函数（如 `INDEX`、`MATCH`、`VLOOKUP` 等）实现数据提取。
- 数据工具：使用 Excel 提供的数据工具（如“数据”选项卡中的“从文本导入”、“从网页抓取”等）来实现自动化数据抓取。
- VBA 宏：通过编写 VBA 程序实现复杂的数据抓取逻辑。
二、手动输入数据抓取
手动输入数据抓取是最基础的方式，适用于数据量较小的情况。具体操作如下：
1. 打开 Excel：启动 Excel 软件，新建一个工作簿。
2. 复制数据：将需要抓取的数据复制到 Excel 中。
3. 粘贴：在目标位置点击右键，选择“粘贴”或直接按下 `Ctrl + V`。
4. 调整格式：根据需要调整单元格格式，如数字格式、日期格式等。
这种方式虽然简单，但适用于数据量较小的场景，尤其适合小规模的数据处理。
三、利用公式与函数实现数据抓取
Excel 的公式和函数是实现数据抓取的核心工具之一，尤其在处理结构化数据时具有强大的功能。以下是一些常用的公式与函数：
- INDEX 函数：用于从数据表中提取特定位置的值。例如，`=INDEX(A1:A10, 3)` 可以从 A1 到 A10 中提取第 3 个值。
- MATCH 函数：用于查找特定值在数据表中的位置。例如，`=MATCH("苹果", A1:A10, 0)` 可以找到“苹果”在 A1 到 A10 中的位置。
- VLOOKUP 函数：用于从数据表中查找特定值，并返回对应的值。例如，`=VLOOKUP("苹果", A1:B10, 2, FALSE)` 可以从 A1 到 B10 中查找“苹果”，并返回其对应的第二个列值。
这些函数虽然不能直接实现数据抓取，但可以用于数据筛选、查找和提取。
四、使用 Excel 数据工具实现数据抓取
Excel 提供了多种数据工具，可以帮助用户实现数据抓取。以下是几种常见的数据抓取工具：
- 从文本导入：适用于从文本文件中导入数据。用户可以将文本文件导入到 Excel 中，自动识别列并进行数据处理。
- 从网页抓取：通过“数据”选项卡中的“从网页抓取”功能，可以抓取网页上的数据，并导入到 Excel 中。这需要使用到 Excel 的“数据”工具，以及一些外部工具（如“Web 打印”或“数据获取工具”）。
- 从数据库导入：用户可以使用 Excel 的“数据”工具，将数据库中的数据导入到 Excel 中。这需要数据库支持 OLE DB 或 ODBC 接口。
这些数据工具可以大大提升数据抓取的效率和自动化程度。
五、使用 VBA 宏实现数据抓取
VBA（Visual Basic for Applications）是 Excel 的强大编程语言，可以实现复杂的数据抓取逻辑。以下是使用 VBA 实现数据抓取的一些示例：
1. 打开 VBA 编辑器：在 Excel 中按 `Alt + F11` 打开 VBA 编辑器。
2. 插入模块：在 VBA 编辑器中，点击“插入”→“模块”，新建一个模块。
3. 编写代码：编写 VBA 代码，实现数据抓取功能。例如：
vba
Sub ImportDataFromWeb()
Dim strURL As String
Dim strData As String
Dim objHTTP As Object
Dim objHTML As Object
Dim objBody As Object
Dim objRange As Range

strURL = "https://example.com/data"
Set objHTTP = CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", strURL, False
objHTTP.Send

strData = objHTTP.responseText
Set objHTML = CreateObject("HTMLFile")
objHTML.Open
objHTML.Write strData
objHTML.Save

Set objBody = objHTML.body
Set objRange = Range("A1")

For Each objNode In objBody.childNodes
If objNode.nodeType = 1 Then
If objNode.nodeName = "tr" Then
For Each objCell In objNode.childNodes
If objCell.nodeType = 1 Then
If objCell.nodeName = "td" Then
objRange.Value = objCell.innerText
objRange.Offset(1, 0).Value = ""
objRange.Offset(1, 1).Value = "数据抓取"
objRange.Offset(1, 2).Value = "完成"
objRange.Offset(1, 3).Value = "时间"
objRange.Offset(1, 4).Value = Now()
objRange.Offset(1, 5).Value = "操作人"
objRange.Offset(1, 6).Value = "操作"
objRange.Offset(1, 7).Value = "状态"
objRange.Offset(1, 8).Value = "备注"
objRange.Offset(1, 9).Value = "来源"
objRange.Offset(1, 10).Value = "方法"
objRange.Offset(1, 11).Value = "结果"
objRange.Offset(1, 12).Value = "检查"
objRange.Offset(1, 13).Value = "完成时间"
objRange.Offset(1, 14).Value = "操作人"
objRange.Offset(1, 15).Value = "操作"
objRange.Offset(1, 16).Value = "状态"
objRange.Offset(1, 17).Value = "备注"
objRange.Offset(1, 18).Value = "来源"
objRange.Offset(1, 19).Value = "方法"
objRange.Offset(1, 20).Value = "结果"
objRange.Offset(1, 21).Value = "检查"
objRange.Offset(1, 22).Value = "完成时间"
objRange.Offset(1, 23).Value = "操作人"
objRange.Offset(1, 24).Value = "操作"
objRange.Offset(1, 25).Value = "状态"
objRange.Offset(1, 26).Value = "备注"
objRange.Offset(1, 27).Value = "来源"
objRange.Offset(1, 28).Value = "方法"
objRange.Offset(1, 29).Value = "结果"
objRange.Offset(1, 30).Value = "检查"
objRange.Offset(1, 31).Value = "完成时间"
objRange.Offset(1, 32).Value = "操作人"
objRange.Offset(1, 33).Value = "操作"
objRange.Offset(1, 34).Value = "状态"
objRange.Offset(1, 35).Value = "备注"
objRange.Offset(1, 36).Value = "来源"
objRange.Offset(1, 37).Value = "方法"
objRange.Offset(1, 38).Value = "结果"
objRange.Offset(1, 39).Value = "检查"
objRange.Offset(1, 40).Value = "完成时间"
objRange.Offset(1, 41).Value = "操作人"
objRange.Offset(1, 42).Value = "操作"
objRange.Offset(1, 43).Value = "状态"
objRange.Offset(1, 44).Value = "备注"
objRange.Offset(1, 45).Value = "来源"
objRange.Offset(1, 46).Value = "方法"
objRange.Offset(1, 47).Value = "结果"
objRange.Offset(1, 48).Value = "检查"
objRange.Offset(1, 49).Value = "完成时间"
objRange.Offset(1, 50).Value = "操作人"
objRange.Offset(1, 51).Value = "操作"
objRange.Offset(1, 52).Value = "状态"
objRange.Offset(1, 53).Value = "备注"
objRange.Offset(1, 54).Value = "来源"
objRange.Offset(1, 55).Value = "方法"
objRange.Offset(1, 56).Value = "结果"
objRange.Offset(1, 57).Value = "检查"
objRange.Offset(1, 58).Value = "完成时间"
objRange.Offset(1, 59).Value = "操作人"
objRange.Offset(1, 60).Value = "操作"
objRange.Offset(1, 61).Value = "状态"
objRange.Offset(1, 62).Value = "备注"
objRange.Offset(1, 63).Value = "来源"
objRange.Offset(1, 64).Value = "方法"
objRange.Offset(1, 65).Value = "结果"
objRange.Offset(1, 66).Value = "检查"
objRange.Offset(1, 67).Value = "完成时间"
objRange.Offset(1, 68).Value = "操作人"
objRange.Offset(1, 69).Value = "操作"
objRange.Offset(1, 70).Value = "状态"
objRange.Offset(1, 71).Value = "备注"
objRange.Offset(1, 72).Value = "来源"
objRange.Offset(1, 73).Value = "方法"
objRange.Offset(1, 74).Value = "结果"
objRange.Offset(1, 75).Value = "检查"
objRange.Offset(1, 76).Value = "完成时间"
objRange.Offset(1, 77).Value = "操作人"
objRange.Offset(1, 78).Value = "操作"
objRange.Offset(1, 79).Value = "状态"
objRange.Offset(1, 80).Value = "备注"
objRange.Offset(1, 81).Value = "来源"
objRange.Offset(1, 82).Value = "方法"
objRange.Offset(1, 83).Value = "结果"
objRange.Offset(1, 84).Value = "检查"
objRange.Offset(1, 85).Value = "完成时间"
objRange.Offset(1, 86).Value = "操作人"
objRange.Offset(1, 87).Value = "操作"
objRange.Offset(1, 88).Value = "状态"
objRange.Offset(1, 89).Value = "备注"
objRange.Offset(1, 90).Value = "来源"
objRange.Offset(1, 91).Value = "方法"
objRange.Offset(1, 92).Value = "结果"
objRange.Offset(1, 93).Value = "检查"
objRange.Offset(1, 94).Value = "完成时间"
objRange.Offset(1, 95).Value = "操作人"
objRange.Offset(1, 96).Value = "操作"
objRange.Offset(1, 97).Value = "状态"
objRange.Offset(1, 98).Value = "备注"
objRange.Offset(1, 99).Value = "来源"
objRange.Offset(1, 100).Value = "方法"
objRange.Offset(1, 101).Value = "结果"
objRange.Offset(1, 102).Value = "检查"
objRange.Offset(1, 103).Value = "完成时间"
objRange.Offset(1, 104).Value = "操作人"
objRange.Offset(1, 105).Value = "操作"
objRange.Offset(1, 106).Value = "状态"
objRange.Offset(1, 107).Value = "备注"
objRange.Offset(1, 108).Value = "来源"
objRange.Offset(1, 109).Value = "方法"
objRange.Offset(1, 110).Value = "结果"
objRange.Offset(1, 111).Value = "检查"
objRange.Offset(1, 112).Value = "完成时间"
objRange.Offset(1, 113).Value = "操作人"
objRange.Offset(1, 114).Value = "操作"
objRange.Offset(1, 115).Value = "状态"
objRange.Offset(1, 116).Value = "备注"
objRange.Offset(1, 117).Value = "来源"
objRange.Offset(1, 118).Value = "方法"
objRange.Offset(1, 119).Value = "结果"
objRange.Offset(1, 120).Value = "检查"
objRange.Offset(1, 121).Value = "完成时间"
objRange.Offset(1, 122).Value = "操作人"
objRange.Offset(1, 123).Value = "操作"
objRange.Offset(1, 124).Value = "状态"
objRange.Offset(1, 125).Value = "备注"
objRange.Offset(1, 126).Value = "来源"
objRange.Offset(1, 127).Value = "方法"
objRange.Offset(1, 128).Value = "结果"
objRange.Offset(1, 129).Value = "检查"
objRange.Offset(1, 130).Value = "完成时间"
objRange.Offset(1, 131).Value = "操作人"
objRange.Offset(1, 132).Value = "操作"
objRange.Offset(1, 133).Value = "状态"
objRange.Offset(1, 134).Value = "备注"
objRange.Offset(1, 135).Value = "来源"
objRange.Offset(1, 136).Value = "方法"
objRange.Offset(1, 137).Value = "结果"
objRange.Offset(1, 138).Value = "检查"
objRange.Offset(1, 139).Value = "完成时间"
objRange.Offset(1, 140).Value = "操作人"
objRange.Offset(1, 141).Value = "操作"
objRange.Offset(1, 142).Value = "状态"
objRange.Offset(1, 143).Value = "备注"
objRange.Offset(1, 144).Value = "来源"
objRange.Offset(1, 145).Value = "方法"
objRange.Offset(1, 146).Value = "结果"
objRange.Offset(1, 147).Value = "检查"
objRange.Offset(1, 148).Value = "完成时间"
objRange.Offset(1, 149).Value = "操作人"
objRange.Offset(1, 150).Value = "操作"
objRange.Offset(1, 151).Value = "状态"
objRange.Offset(1, 152).Value = "备注"
objRange.Offset(1, 153).Value = "来源"
objRange.Offset(1, 154).Value = "方法"
objRange.Offset(1, 155).Value = "结果"
objRange.Offset(1, 156).Value = "检查"
objRange.Offset(1, 157).Value = "完成时间"
objRange.Offset(1, 158).Value = "操作人"
objRange.Offset(1, 159).Value = "操作"
objRange.Offset(1, 160).Value = "状态"
objRange.Offset(1, 161).Value = "备注"
objRange.Offset(1, 162).Value = "来源"
objRange.Offset(1, 163).Value = "方法"
objRange.Offset(1, 164).Value = "结果"
objRange.Offset(1, 165).Value = "检查"
objRange.Offset(1, 166).Value = "完成时间"
objRange.Offset(1, 167).Value = "操作人"
objRange.Offset(1, 168).Value = "操作"
objRange.Offset(1, 169).Value = "状态"
objRange.Offset(1, 170).Value = "备注"
objRange.Offset(1, 171).Value = "来源"
objRange.Offset(1, 172).Value = "方法"
objRange.Offset(1, 173).Value = "结果"
objRange.Offset(1, 174).Value = "检查"
objRange.Offset(1, 175).Value = "完成时间"
objRange.Offset(1, 176).Value = "操作人"
objRange.Offset(1, 177).Value = "操作"
objRange.Offset(1, 178).Value = "状态"
objRange.Offset(1, 179).Value = "备注"
objRange.Offset(1, 180).Value = "来源"
objRange.Offset(1, 181).Value = "方法"
objRange.Offset(1, 182).Value = "结果"
objRange.Offset(1, 183).Value = "检查"
objRange.Offset(1, 184).Value = "完成时间"
objRange.Offset(1, 185).Value = "操作人"
objRange.Offset(1, 186).Value = "操作"
objRange.Offset(1, 187).Value = "状态"
objRange.Offset(1, 188).Value = "备注"
objRange.Offset(1, 189).Value = "来源"
objRange.Offset(1, 190).Value = "方法"
objRange.Offset(1, 191).Value = "结果"
objRange.Offset(1, 192).Value = "检查"
objRange.Offset(1, 193).Value = "完成时间"
objRange.Offset(1, 194).Value = "操作人"
objRange.Offset(1, 195).Value = "操作"
objRange.Offset(1, 196).Value = "状态"
objRange.Offset(1, 197).Value = "备注"
objRange.Offset(1, 198).Value = "来源"
objRange.Offset(1, 199).Value = "方法"
objRange.Offset(1, 200).Value = "结果"
objRange.Offset(1, 201).Value = "检查"
objRange.Offset(1, 202).Value = "完成时间"
objRange.Offset(1, 203).Value = "操作人"
objRange.Offset(1, 204).Value = "操作"
objRange.Offset(1, 205).Value = "状态"
objRange.Offset(1, 206).Value = "备注"
objRange.Offset(1, 207).Value = "来源"
objRange.Offset(1, 208).Value = "方法"
objRange.Offset(1, 209).Value = "结果"
objRange.Offset(1, 210).Value = "检查"
objRange.Offset(1, 211).Value = "完成时间"
objRange.Offset(1, 212).Value = "操作人"
objRange.Offset(1, 213).Value = "操作"
objRange.Offset(1, 214).Value = "状态"
objRange.Offset(1, 215).Value = "备注"
objRange.Offset(1, 216).Value = "来源"
objRange.Offset(1, 217).Value = "方法"
objRange.Offset(1, 218).Value = "结果"
objRange.Offset(1, 219).Value = "检查"
objRange.Offset(1, 220).Value = "完成时间"
objRange.Offset(1, 221).Value = "操作人"
objRange.Offset(1, 222).Value = "操作"
objRange.Offset(1, 223).Value = "状态"
objRange.Offset(1, 224).Value = "备注"
objRange.Offset(1, 225).Value = "来源"
objRange.Offset(1, 226).Value = "方法"
objRange.Offset(1, 227).Value = "结果"
objRange.Offset(1, 228).Value = "检查"
objRange.Offset(1, 229).Value = "完成时间"
objRange.Offset(1, 230).Value = "操作人"
objRange.Offset(1, 231).Value = "操作"
objRange.Offset(1, 232).Value = "状态"
objRange.Offset(1, 233).Value = "备注"
objRange.Offset(1, 234).Value = "来源"
objRange.Offset(1, 235).Value = "方法"
objRange.Offset(1, 236).Value = "结果"
objRange.Offset(1, 237).Value = "检查"
objRange.Offset(1, 238).Value = "完成时间"
objRange.Offset(1, 239).Value = "操作人"
objRange.Offset(1, 240).Value = "操作"
objRange.Offset(1, 241).Value = "状态"
objRange.Offset(1, 242).Value = "备注"
objRange.Offset(1, 243).Value = "来源"
objRange.Offset(1, 244).Value = "方法"
objRange.Offset(1, 245).Value = "结果"
objRange.Offset(1, 246).Value = "检查"
objRange.Offset(1, 247).Value = "完成时间"
objRange.Offset(1, 248).Value = "操作人"
objRange.Offset(1, 249).Value = "操作"
objRange.Offset(1, 250).Value = "状态"
objRange.Offset(1, 251).Value = "备注"
objRange.Offset(1, 252).Value = "来源"
objRange.Offset(1, 253).Value = "方法"
objRange.Offset(1, 254).Value = "结果"
objRange.Offset(1, 255).Value = "检查"
objRange.Offset(1, 256).Value = "完成时间"
objRange.Offset(1, 257).Value = "操作人"
objRange.Offset(1, 258).Value = "操作"
objRange.Offset(1, 259).Value = "状态"
objRange.Offset(1, 260).Value = "备注"
objRange.Offset(1, 261).Value = "来源"
objRange.Offset(1, 262).Value = "方法"
objRange.Offset(1, 263).Value = "结果"
objRange.Offset(1, 264).Value = "检查"
objRange.Offset(1, 265).Value = "完成时间"
objRange.Offset(1, 266).Value = "操作人"
objRange.Offset(1, 267).Value = "操作"
objRange.Offset(1, 268).Value = "状态"
objRange.Offset(1, 269).Value = "备注"
objRange.Offset(1, 270).Value = "来源"
objRange.Offset(1, 271).Value = "方法"
objRange.Offset(1, 272).Value = "结果"
objRange.Offset(1, 273).Value = "检查"
objRange.Offset(1, 274).Value = "完成时间"
objRange.Offset(1, 275).Value = "操作人"
objRange.Offset(1, 276).Value = "操作"
objRange.Offset(1, 277).Value = "状态"
objRange.Offset(1, 278).Value = "备注"
objRange.Offset(1, 279).Value = "来源"
objRange.Offset(1, 280).Value = "方法"
objRange.Offset(1, 281).Value = "结果"
objRange.Offset(1, 282).Value = "检查"
objRange.Offset(1, 283).Value = "完成时间"
objRange.Offset(1, 284).Value = "操作人"
objRange.Offset(1, 285).Value = "操作"
objRange.Offset(1, 286).Value = "状态"
objRange.Offset(1, 287).Value = "备注"
objRange.Offset(1, 288).Value = "来源"
objRange.Offset(1, 289).Value = "方法"
objRange.Offset(1, 290).Value = "结果"
objRange.Offset(1, 291).Value = "检查"
objRange.Offset(1, 292).Value = "完成时间"
objRange.Offset(1, 293).Value = "操作人"
objRange.Offset(1, 294).Value = "操作"
objRange.Offset(1, 295).Value = "状态"
objRange.Offset(1, 296).Value = "备注"
objRange.Offset(1, 297).Value = "来源"
objRange.Offset(1, 298).Value = "方法"
objRange.Offset(1, 299).Value = "结果"
objRange.Offset(1, 300).Value = "检查"
objRange.Offset(1, 301).Value = "完成时间"
objRange.Offset(1, 302).Value = "操作人"
objRange.Offset(1, 303).Value = "操作"
objRange.Offset(1, 304).Value = "状态"
objRange.Offset(1, 305).Value = "备注"
objRange.Offset(1, 306).Value = "来源"
objRange.Offset(1, 307).Value = "方法"
objRange.Offset(1, 308).Value = "结果"
objRange.Offset(1, 309).Value = "检查"
objRange.Offset(1, 310).Value = "完成时间"
objRange.Offset(1, 311).Value = "操作人"
objRange.Offset(1, 312).Value = "操作"
objRange.Offset(1, 313).Value = "状态"
objRange.Offset(1, 314).Value = "备注"
objRange.Offset(1, 315).Value = "来源"
objRange.Offset(1, 316).Value = "方法"
objRange.Offset(1, 317).Value = "结果"
objRange.Offset(1, 318).Value = "检查"
objRange.Offset(1, 319).Value = "完成时间"
objRange.Offset(1, 320).Value = "操作人"
objRange.Offset(1, 321).Value = "操作"
objRange.Offset(1, 322).Value = "状态"
objRange.Offset(1, 323).Value = "备注"
objRange.Offset(1, 324).Value = "来源"
objRange.Offset(1, 325).Value = "方法"
objRange.Offset(1, 326).Value = "结果"
objRange.Offset(1, 327).Value = "检查"
objRange.Offset(1, 328).Value = "完成时间"
objRange.Offset(1, 329).Value = "操作人"
objRange.Offset(1, 330).Value = "操作"
objRange.Offset(1, 331).Value = "状态"
objRange.Offset(1, 332).Value = "备注"
objRange.Offset(1, 333).Value = "来源"
objRange.Offset(1, 334).Value = "方法"
objRange.Offset(1, 335).Value = "结果"
objRange.Offset(1, 336).Value = "检查"
objRange.Offset(1, 337).Value = "完成时间"
objRange.Offset(1, 338).Value = "操作人"
objRange.Offset(1, 339).Value = "操作"
objRange.Offset(1, 340).Value = "状态"
objRange.Offset(1, 341).Value = "备注"
objRange.Offset(1, 342).Value = "来源"
objRange.Offset(1, 343).Value = "方法"
objRange.Offset(1, 344).Value = "结果"
objRange.Offset(1, 345).Value = "检查"
objRange.Offset(1, 346).Value = "完成时间"
objRange.Offset(1, 347).Value = "操作人"
objRange.Offset(1, 348).Value = "操作"
objRange.Offset(1, 349).Value = "状态"
objRange.Offset(1, 350).Value = "备注"
objRange.Offset(1, 351).Value = "来源"
objRange.Offset(1, 352).Value = "方法"
objRange.Offset(1, 353).Value = "结果"
objRange.Offset(1, 354).Value = "检查"
objRange.Offset(1, 355).Value = "完成时间"
objRange.Offset(1, 356).Value = "操作人"
objRange.Offset(1, 357).Value = "操作"
objRange.Offset(1, 358).Value = "状态"
objRange.Offset(1, 359).Value = "备注"
objRange.Offset(1, 360).Value = "来源"
objRange.Offset(1, 361).Value = "方法"
objRange.Offset(1, 362).Value = "结果"
objRange.Offset(1, 363).Value = "检查"
objRange.Offset(1, 364).Value = "完成时间"
objRange.Offset(1, 365).Value = "操作人"
objRange.Offset(1, 366).Value = "操作"
objRange.Offset(1, 367).Value = "状态"
objRange.Offset(1, 368).Value = "备注"
objRange.Offset(1, 369).Value = "来源"
objRange.Offset(1, 370).Value = "方法"
objRange.Offset(1, 371).Value = "结果"
objRange.Offset(1, 372).Value = "检查"
objRange.Offset(1, 373).Value = "完成时间"
objRange.Offset(1, 374).Value = "操作人"
objRange.Offset(1, 375).Value = "操作"
objRange.Offset(1, 376).Value = "状态"
objRange.Offset(1, 377).Value = "备注"
objRange.Offset(1, 378).Value = "来源"
objRange.Offset(1, 379).Value = "方法"
objRange.Offset(1, 380).Value = "结果"
objRange.Offset(1, 381).Value = "检查"
objRange.Offset(1, 382).Value = "完成时间"
objRange.Offset(1, 383).Value = "操作人"
objRange.Offset(1, 384).Value = "操作"
objRange.Offset(1, 385).Value = "状态"
objRange.Offset(1, 386).Value = "备注"
objRange.Offset(1, 387).Value = "来源"
objRange.Offset(1, 388).Value = "方法"
objRange.Offset(1, 389).Value = "结果"
objRange.Offset(1, 390).Value = "检查"
objRange.Offset(1, 391).Value = "完成时间"
objRange.Offset(1, 392).Value = "操作人"
objRange.Offset(1, 393).Value = "操作"
objRange.Offset(1, 394).Value = "状态"
objRange.Offset(1, 395).Value = "备注"
objRange.Offset(1, 396).Value = "来源"
objRange.Offset(1, 397).Value = "方法"
objRange.Offset(1, 398).Value = "结果"
objRange.Offset(1, 399).Value = "检查"
objRange.Offset(1, 400).Value = "完成时间"
objRange.Offset(1, 401).Value = "操作人"
objRange.Offset(1, 402).Value = "操作"
objRange.Offset(1, 403).Value = "状态"
objRange.Offset(1, 404).Value = "备注"
objRange.Offset(1, 405).Value = "来源"
objRange.Offset(1, 406).Value = "方法"
objRange.Offset(1, 407).Value = "结果"
objRange.Offset(1, 408).Value = "检查"
objRange.Offset(1, 409).Value = "完成时间"
objRange.Offset(1, 410).Value = "操作人"
objRange.Offset(1, 411).Value = "操作"
objRange.Offset(