使用XLSXApp对象修改和读取XLSX文件内容
修改单元格内容
添加按钮，标题修改为“按单元格名称修改内容”
双击按钮，输入代码
Private Sub Command3_Click()运行后Excel文件的变化
Dim DoXLSX As XLSXApp
Dim Error As String
Set DoXLSX = New XLSXApp
'打开XLSX文件
If DoXLSX.Open("Test1.xlsx", Error) = False Then
MsgBox Error
Set DoXLSX = Nothing
Exit Sub
End If
'选择Sheet1
If DoXLSX.SelSheet("Sheet1", Error) = False Then
DoXLSX.Close
Set DoXLSX = Nothing
MsgBox Error
Exit Sub
End If
'修改数据
DoXLSX.SetCellValue2 "A1", "你好！"
'关闭XLSX文件
DoXLSX.Save
DoXLSX.Close
End Sub
读取单元格内容
添加按钮，标题修改为“按单元格名称读取内容”
双击按钮，输入代码
Private Sub Command5_Click()运行结果
Dim DoXLSX As XLSXApp
Dim Error As String
Set DoXLSX = New XLSXApp
'打开XLSX文件
If DoXLSX.Open("Test1.xlsx", Error) = False Then
MsgBox Error
Set DoXLSX = Nothing
Exit Sub
End If
'选择Sheet1
【按单元格名称修改和读取XLSX内容-SystemExcel库使用教程】If DoXLSX.SelSheet("Sheet1", Error) = False Then
DoXLSX.Close
Set DoXLSX = Nothing
MsgBox Error
Exit Sub
End If
'读取数据
MsgBox "A1单元格的内容是：" & DoXLSX.Rs2("A1")
'关闭XLSX文件
DoXLSX.Close
End Sub
