xlsx文件怎么打开 xlsx下载

时间：2023-05-26 05:51/span> 作者：tiger 分类：新知浏览：9372 评论：0

使用XLSXApp对象克隆XLSX文件的工作表

打开VB6工程，添加或者打开窗体，添加按钮

双击按钮，添加代码

Private Sub cmbCloneSheet_Click()
Dim DoXLSX As XLSXApp
Dim SheetName As String
Dim Error As String
Set DoXLSX = New XLSXApp
&39;打开XLSX文件
If DoXLSX.Open(&34;Test1.xlsx&34;, Error) = False Then
MsgBox Error
Set DoXLSX = Nothing
Exit Sub
End If
If DoXLSX.SheetExist(&34;克隆表&34;) = True Then
MsgBox &34;克隆表已存在！&34;
Set DoXLSX = Nothing
Exit Sub
End If
&39;克隆表
If DoXLSX.CloneSheet(&34;Sheet1&34;, &34;克隆表&34;, Error) = False Then
MsgBox Error
Set DoXLSX = Nothing
Exit Sub
End If
DoXLSX.Save
&39;关闭XLSX文件
DoXLSX.Close
Set DoXLSX = Nothing
MsgBox &34;操作成功！&34;
End Sub