Dim xlAppDim xlApp2Dim xlBookDim xlBook2Dim xlSheetDim xlSheet2Dim getPathDim savePathDim re As RegExpDim msg As StringPrivate Sub Command1_Click()CommonDialog1.FileName = ""CommonDialog1.Flags = cdlOFNFileMustExistCommonDialog1.Filter = "All Files|*.*|(*.xls)|*.xls"CommonDialog1.Filt