vb读取WPS的EXCEL文档并另存为其他

最新推荐文章于 2021-02-11 14:05:24 发布

原创

最新推荐文章于 2021-02-11 14:05:24 发布 · 7.8k 阅读

7 ·

CC 4.0 BY-SA版权

文章标签：

#VB #excel

这篇博客展示了如何使用VB代码打开一个WPS Excel文档，读取特定单元格的数据，并将其复制到新的Excel文件中。通过正则表达式解析数据，然后将结果保存到新的工作簿中，实现数据的转换和另存为操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.FilterIndex = 2
CommonDialog2.DialogTitle = "另存为(*.xls)"
CommonDialog2.Action = 2
savePath = CommonDialog2.FileName
    If savePath <> "" Then
        '打开文件
        Set xlApp = CreateObject("Excel.Application")
        Set xlApp2 = CreateObject("Excel.Application")
        Set xlBook = xlApp.Workbooks.Open(getPath)
        Set xlSheet = xlBook.Worksheets