vb wps 链接单元格_vb读取WPS的EXCEL文档并另存为其他

编程之家收集整理的这篇文章主要介绍了vb读取WPS的EXCEL文档并另存为其他，编程之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

Dim xlApp

Dim xlApp2

Dim xlBook

Dim xlBook2

Dim xlSheet

Dim xlSheet2

Dim getPath

Dim savePath

Dim re As RegExp

Dim msg As String

Private Sub Command1_Click()

CommonDialog1.FileName = ""

CommonDialog1.Flags = cdlOFNFileMustExist

CommonDialog1.Filter = "All Files|*.*|(*.xls)|*.xls"

CommonDialog1.FilterIndex = 2

CommonDialog1.DialogTitle = "打开文件(*.xls)"

CommonDialog1.Action = 1

getPath = CommonDialog1.FileName

End Sub

Private Sub Command2_Click()

If getPath <> "" Then

CommonDialog2.FileName = ""

CommonDialog2.Filter = "All Files|*.*|(*.xls)|*.xls"

CommonDialog2.Fi