### VBS操作Excel常见方法详解
#### 一、概述
VBS (Visual Basic Script) 是一种轻量级的脚本语言，广泛应用于Windows系统中，用于自动化任务处理。通过VBS，用户能够轻松地实现对Excel文件的读取、写入、格式调整等操作。下面将详细介绍VBS控制Excel的一些常见方法。
#### 二、创建Excel对象
**1. 创建Excel应用对象**
```vbscript
Set oExcel = CreateObject("Excel.Application")
```
这里使用`CreateObject`函数创建了一个Excel应用对象`oExcel`。
**2. 设置可见性**
```vbscript
oExcel.Visible = True
```
使Excel界面可见，便于调试。
**3. 更改Excel标题栏**
```vbscript
oExcel.Caption = "应用程序调用MicrosoftExcel"
```
修改Excel窗口的标题。
#### 三、操作工作簿
**1. 添加新工作簿**
```vbscript
oExcel.Workbooks.Add
```
创建一个新的空白工作簿。
**2. 打开已存在的工作簿**
```vbscript
oExcel.Workbooks.Open "C:\Excel\Demo.xls"
```
打开指定路径下的Excel文件。
**3. 操作工作表**
```vbscript
Set oSheet = oWb.Sheets("Sheet1")
```
选择特定的工作表进行操作。
**4. 提取单元格内容**
```vbscript
MsgBox oSheet.Range("B2").Value
```
提取单元格B2的内容并显示。
#### 四、操作单元格与表格
**1. 给单元格赋值**
```vbscript
oExcel.Cells(1, 4).Value = "第一行第四列"
```
设置单元格A4的值为“第一行第四列”。
**2. 设置列宽**
```vbscript
oExcel.ActiveSheet.Columns(1).ColumnWidth = 5
```
设置第一列的宽度为5个字符。
**3. 设置行高**
```vbscript
oExcel.ActiveSheet.Rows(2).RowHeight = 1 / 0.035 ' 1厘米
```
设置第二行的高度为1厘米。
**4. 插入分页符**
```vbscript
oExcel.Worksheets(1).Rows(8).PageBreak = 1
```
在第8行前插入分页符。
**5. 删除分页符**
```vbscript
oExcel.ActiveSheet.Columns(4).PageBreak = 0
```
删除第4列前的分页符。
**6. 设置边框**
```vbscript
oExcel.ActiveSheet.Range("B3:D4").Borders(2).Weight = 3
```
设置B3至D4区域的右边界线宽度为3。
- **左边界**：1
- **右边界**：2
- **顶部边界**：3
- **底部边界**：4
- **斜线（\）**：5
- **斜线（/）**：6
**7. 清除单元格内容**
```vbscript
oExcel.ActiveSheet.Cells(1, 4).ClearContents
```
清除单元格A4中的内容。
**8. 设置字体属性**
```vbscript
oExcel.ActiveSheet.Rows(1).Font.Name = "隶书"
oExcel.ActiveSheet.Rows(1).Font.Color = clBlue
oExcel.ActiveSheet.Rows(1).Font.Bold = True
oExcel.ActiveSheet.Rows(1).Font.Underline = True
```
设置第一行的字体为隶书、蓝色、加粗、下划线。
#### 五、页面设置
**1. 页眉设置**
```vbscript
oExcel.ActiveSheet.PageSetup.CenterHeader = "报表演示"
```
设置页眉中心位置的内容。
**2. 页脚设置**
```vbscript
oExcel.ActiveSheet.PageSetup.CenterFooter = "第&P页"
```
设置页脚中心位置的内容，显示当前页码。
**3. 边距设置**
```vbscript
oExcel.ActiveSheet.PageSetup.HeaderMargin = 2 / 0.035 ' 2厘米
oExcel.ActiveSheet.PageSetup.FooterMargin = 3 / 0.035 ' 3厘米
oExcel.ActiveSheet.PageSetup.TopMargin = 2 / 0.035 ' 2厘米
oExcel.ActiveSheet.PageSetup.BottomMargin = 2 / 0.035 ' 2厘米
oExcel.ActiveSheet.PageSetup.LeftMargin = 2 / 0.035 ' 2厘米
oExcel.ActiveSheet.PageSetup.RightMargin = 2 / 0.035 ' 2厘米
```
设置各边距，其中`1厘米 = 1/0.035`磅。
**4. 页面居中**
```vbscript
oExcel.ActiveSheet.PageSetup.CenterHorizontally = True
```
使页面内容水平居中。
#### 六、扩展知识点：文件对话框
**1. 使用文件对话框选择文件**
```vbscript
Set objFileDlg = CreateObject("UserAccounts.CommonDialog")
objFileDlg.Filter = "Excel File (*.xls)|*.xls"
If objFileDlg.ShowOpen Then
MsgBox "您选择的文件是：" & objFileDlg.FileName
End If
```
通过文件对话框让用户选择Excel文件，并显示文件名。
#### 七、总结
以上介绍了VBS控制Excel的一些常见方法，包括创建Excel对象、操作工作簿、单元格与表格、页面设置等。这些方法能够帮助开发者和用户更高效地完成数据处理任务。通过灵活运用这些技巧，可以极大地提高工作效率和自动化程度。
