sofeien的专栏

Private Sub readButton_Click()FileNumber = FreeFileOpen "D:\test.txt" For Input As #FileNumberDo While Not EOF(FileNumber) Line Input #FileNumber, TextLine temp = temp + TextLine + vbC

Dim xlAppDim xlApp2Dim xlBookDim xlBook2Dim xlSheetDim xlSheet2Dim getPathDim savePathDim re As RegExpDim msg As StringPrivate Sub Command1_Click()CommonDialog1.FileName = ""